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MANUAL-DEL  USUARIO 


Introduction 


AMSTRAD  CPC6128 

-  Sistema  integrado  de  ordenador/disco 

-  Una  evolution  logica 


Los  dos  modelos  anteriores  de  Amstrad,  el  CPC464  y  el  CPC664,  que  tan  inmenso  exi- 
to  han  tenido,  nan  constituido  la  base  a  partir  de  la  cual  hemos  desarrollado  este  nuevo 
sistema:  el  CPC6128. 

Continuando  con  nuestra  norma  de  compatibilidad,  el  CPC6128  puede  funcionar  con 
los  programas  escritos  para  el  CPC464  y  el  CPC664,  y  ademas  dispone  de  64K  de  RAM 
adicionales  que  pueden  ser  aprovechados  por  CP/M  y  otros  programas. 


CP/M  Plus 


El  sistema  operativo  CP/M  Plus  (tambien  conocido  como  CP/M  3.1)  proporciona  el 
acceso  inmediato  a  la  amplia  biblioteca  de  programas  disenados  para  CP/M  80.  Gra- 
cias  a  los  61K  de  TPA  (area  para  programas  transitorios),  cualquier  programa  de 
CP/M  80  encuentra  espacio  mas  que  suficiente  para  si  mismo  y  para  los  datos.  CP/M 
Plus  es  compatible  con  CP/M  2.2;  no  obstante,  hemos  incluido  ambas  versiones  para 
permitir  que  las  aplicaciones  que  hayan  sido  desarrolladas  utilizando  funciones  del  sis- 
tema operativo  CP/M  2.2  en  Amstrad  funcionen  sin  requerir  modificaci6n. 

CP/M  Plus  esta  dotado  de  numerosas  funciones  que  contribuyen  a  mejorar  las  presta- 
ciones  del  sistema;  casi  todos  los  programas  escritos  para  CP/M  2.2  pueden  aprovechar 
estas  funciones  sin  conflicto.  El  sistema  CP/M  Plus  incluye  un  'emulador  de  consola' 
gracias  al  cual  los  programas  que  han  sido  configurados  para  adaptarse  al  metodo  de 
control  de  la  pantalla  de  los  terminales  VT52  y  Zenith  Z19/Z29  pueden  funcionar  en 
el  CPC6128  sin  necesidad  de  mas  adaptaci6n. 


GSX 

GSX  es  un  sistema  de  gestidn  de  graficos,  suministrado  con  esta  versidn  de  CP/M  Plus, 
que  permite  a  los  programas  controlar,  mediante  instrucciones  estandar,  la  emisi6n  de 
graficos  a  travel  de  la  pantalla  o  de  impresoras  o  plotters.  Los  programas  que  utilicen 
GSX  podran  comunicarse  cpn  diversos  dispositivos  graficos  para  producir  copias  en 
papel  de  diagramas  de  barras,  graficas,  etc. 


Introduccidn 


Dr.  LOGO 


El  LOGO  de  Digital  Research  contimia  abriendo  caminos  nuevos  en  la  ensenanza  de 
la  informatica;  gracias  a  la  memoria  adicional  del  6128,  ha  sido  posible  ampliar  la  ante- 
rior version  de  Dr.  LOGO  (para  CP/M  2.2)  con  nuevas  instrucciones.  Por  supuesto, 
los  programas  escritos  para  la  version  antigua  son  compatibles  con  la  nueva. 


Discos 


El  CPC664  establecio  un  punto  de  referencia  para  el  future  con  su  unidad  de  disco 
incorporada  en  la  propia  maquina.  El  CPC6128  sigue  ofreciendo  las  ventajas  del 
sistema  de  disco  a  un  numero  cada  vez  mayor  de  usuarios  que  demandan  las 
prestaciones  de  los  ordenadores  personales  a  precio  de  ordenadores  domesticos.  Los 
programas  que  utilizan  las  funciones  mas  avanzadas  de  CP/M  Plus  y  GSX  no  podran 
funcionar  en  los  modelos  anteriores. 

Finalmente,  el  CPC6128  esta  apoyado  por  uno  de  los  fabricantes  de  productos 
electr6nicos  de  gran  consumo  mas  grandes  del  Reino  Unido.  Por  otra  parte,  la  revista 
oficial  de  Amstrad  se  ha  convertido  ya  en  la  principal  y  mas  fiabie  fuente  de 
informaci6n  y  noticias  para  los  usuarios  de  los  ordenadores  Amstrad. 


Programas 


El  CPC6128  puede  ejecutar  todos  los  programas  disponibles  en  disco  para  los  sistemas 
CPC664  y  CPC464/DDI1,  y  casi  todos  los  disponibles  en  cinta  (conectando  un 
magnet6fono  de  cassettes,  por  supuesto).  Esto  significa  que  el  usuario  del  CPC6128 
puede  elegir,  sin  necesidad  de  espera  alguna,  entre  los  muchos  programas  publicados 
por  Amsoft  y  otras  casas  de  software. 


AMSOFT 

A  division  of 


CONSUMER  ELECTRONICS  PLC 
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Introduccidn 


El  contenido  de  este  manual  y  el  producto  en  61  descrito  no  pueden  ser  adaptados  ni  reproducidos,  ni  total 
ni  parcialmente,  salvo  con  el  permiso  escrito  de  AMSTRAD  Consumer  Electronics  pic  ('Amstrad'). 

El  producto  descrito  en  este  manual,  as!  como  los  disenados  para  ser  utilizados  con  61,  estan  sujetos  a 
desarrollo  y  mejoras  continuas.  Toda  la  informaci6n  tecnica  relativa  al  producto  y  su  utilizacidn  (incluida 
la  que  figura  en  este  manual)  es  suministrada  por  AMSTRAD  de  buena  fe.  Admitimos,  no  obstante,  que 
en  este  manual  puede  haber  errores  u  omisiones.  El  usuario  puede  obtener  una  lista  de  correcciones  y  mo- 
dificaciones  solicitandola  de  AMSOFT  Technical  Enquiries  o  de  sus  distribuidores.  Rogamos  a  los  usua- 
rios  que  rellenen  y  envien  a  los  distribuidores  las  tarjetas  de  registro  y  de  garantia. 

AMSOFT  agradecera  el  envfo  de  comentarios  y  sugerencias  relativos  a  este  manual  y  al 
producto  en  61  descrito. 

Toda  la  correspondencia  se  debe  dirigir  a 

AMSOFT 

Aravaca,  22 

28040  Madrid 

Espana 

Toda  reparaci6n  u  operaci6n  de  mantenimiento  de  este  producto  debe  ser  confiada  a  los 
distribuidores  autorizados  de  AMSOFT.  Ni  AMSOFT  ni  AMSTRAD  pueden  aceptar 
ninguna  responsabilidad  derivada  del  daflo  o  perdida  que  se  pueda  ocasionar  como  resul- 
tado  de  reparaciones  efectuadas  por  personal  no  autorizado.  El  objetivo  de  este  manual 
no  es  sino  servir  de  ayuda  al  usuario  en  la  utilizacidn  del  producto;  por  consiguiente, 
AMSTRAD  y  AMSOFT  quedan  eximidos  de  responsabilidad  por  el  daflo  o  perdida  a  que 
pueda  dar  lugar  la  utilizaci6n  de  la  informaci6n  aqui  publicada  o  la  incorrecta  utilizaci6n 
del  producto. 

Dr.  LOGO,  CP/M,  CP/M  Plus,  GSX  y  DR  Graph  son  marcas  registradas  de 

Digital  Research  Inc. 

Z80  es  marca  registrada  de  Zilog  Inc. 

IBM  e  IBM  PC  son  marcas  registradas  de  International  Business  Machines  Inc. 

Z19,  Z29  y  H89  son  marcas  registradas  de  Zenith  Data  Systems,  Inc. 

VT52  es  marca  registrada  de  Digital  Equipment  Corp. 

AMSDOS,  CPC6128,  CPC664,  CPC472  y  CPC464  son  marcas  registradas  de 

AMSTRAD  Consumer  Electronics  pic 
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Introducci6n 


IMPORTANTE 


Por  favor,  lea  las  siguientes  . . . 

Notas  de  instalacion 

1.  Conecte  el  cable  de  alimentaci6n  a  una  clavija  siguiendo  para  ello  las  instrucciones 
que  se  dan  en  la  Parte  1  del  'Curso  de  Introducci6n\ 

2.  No  intente  conectar  este  equipo  a  una  red  de  distribuci6n  de  energia  electrica  que 
no  sea  de  220-240  V  c.a.,  50  Hz. 

3.  El  mantenimiento  que  pueda  hacer  el  usuario  no  requiere  en  ningun  caso  acceder 
al  interior  de  la  carcasa.  Asi  pues,  no  abra  nunca  el  equipo.  Confie  todas  las 
reparaciones  y  operaciones  de  mantenimiento  a  personal  cualificado. 

4.  Para  evitar  la  fatiga  visual,  ponga  el  monitor  lo  mas  alejado  posible  del  teclado  y 
trabaje  con  luz  ambiente  adecuada.  Deje  el  control  de  brillo  del  monitor  lo  mas  bajo 
posible. 

5.  El  ordenador  deberia  estar  centrado  con  respecto  al  monitor,  lo  mas  lejos  posible 
de  el.  Para  optimizar  la  fiabilidad  del  almacenamiento  de  datos,  la  unidad  de  disco 
no  deberia  quedar  frente  al  monitor,  sino  a  su  derecha.  No  ponga  el  ordenador  cerca 
de  fuentes  de  interferencia  electrica. 

6.  Evite  que  las  unidades  de  disco  y  los  propios  discos  estgn  sometidos  a  la  influencia 
de  campos  magneticos. 

7.  Si  tiene  conectada  la  segunda  unidad  de  disco,  mantenga  alejado  el  cable  de  datos 
del  cable  de  alimentaci6n. 

8.  No  obstruya  ni  cubra  los  orificios  de  ventilaci6n. 

9.  No  utilice  ni  almacene  el  equipo  a  temperaturas  demasiado  altas  ni  demasiado 
bajas,  ni  en  lugares  humedos  ni  polvorientos. 


Notas  de  operation 

(No  se  preocupe  si  al  principio  le  resulta  extrafia  la  terminologia  utilizada  en  esta 
secci6n;  el  significado  de  estas  advertencias  ira  quedando  mas  claro  segiin  avance  en 
la  lectura  de  este  manual.) 

1 .  No  encienda  ni  apague  el  sistema  mientras  haya  un  disco  en  la  unidad,  so  pena  de 
perder  la  informaci6n  en  61  grabada. 


Introduction 


—  C*2.  Haga  copias  de  todos  los  discos  que  contengan  datos  o  programas  valipsos.  En 

particular, /copie  los  discos  de  CP/M  que  se  suministran  con  el  CPC6128Jpues  si 
"~  se  deteriorasen  accidenTalnientTsu™sustituci6n  sena  costosa. 

"""  3.  Para  evitar  el  riesgo  de  borrar  accidentalmente  los  discos  de  CP/M,  cerciorese  de 

_  que  los  orificios  de  protection  contra  escritura  de  los  discos  esten  abiertos. 

4.  Si  esta  utilizando  un  sistema  de  dos  discos,  es  decir,  si  ha  adquirido  una  unidad 
AMSTRAD  FD1  adicional,  encienda  siempre  la  segunda  unidad  antes  que  el 

—  ordenador. 

«^.  5.  No  toque  la  superficie  de  los  discos. 

__  6.  No  extraiga  el  disco  mientras  el  ordenador  no  haya  terminado  de  leer  o  escribir 

en  el. 

7.  Recuerde  que  al  inicializar  los  discos  se  borra  su  contenido  anterior. 

"  8.  El  interfaz  de  la  unidad  de  discos  ocupa  una  pequefla  portion  de  la  memoria. 

„  Algunos  programas  publicados  en  cassette  para  el  CPC464  aprovechan  esa  zona  de 

la  memoria,  y  por  lo  tanto  no  pueden  funcionar  en  el  sistema  CPC6128+cassette. 

—  En  caso  de  duda  sobre  la  compatibilidad  de  los  programas  basados  en  cinta, 
pongase  en  contacto  con  AMSOFT  o  con  su  distribuidor.  Tenga  en  cuenta,  no 
obstante,  que  casi  todos  los  programas  de  AMSOFT  estan  disponibles  en  disco  para 

—  su  utilizacion  en  el  CPC6128. 

_         h(9.  El  acuerdo  de  licencia  para  el  sistema  operativo  CP/M  (que  esta  codificado 

mediante  un  mimero  de  serie  grabado  en  los  discos)  permite  su  utilizacion  en  un  solo 

~*  ordenador.  Esto  significa,  en  particular,,  que  al  usuario  le  esta  prohibido  ceder  a 

__  otras  personas  copias  de  su  CP/M.  Lea  atentamente  el  'Acuerdo  de  licencia  para 

el  usuario  final'  (Apendice  1  de  este  manual). 
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Curso  de  introduccion 


Parte  1:  Instalacion  y  mantenimiento 


El  CPC6128  puede  ser  instalado  con: 

1.  El  monitor  de  f6sforo  verde  AMSTRAD  GT65. 

2.  El  monitor  de  color  AMSTRAD  CTM644. 

3.  O  la  unidad  modulador/fuente  de  alimentaci6n  AMSTRAD  MP2  conectada  a 
un  televisor  de  color  (en  UHF). 


Conexion  del  ordenador  a  la  red 


El  CPC6128  s61o  se  puede  conectar  a  la  red  de  220-240V  c.a.,  50  Hz. 

No  extraiga  ningiin  tornillo  ni  trate  de  abrir  la  carcasa  del  ordenador,  del  monitor  ni 
de  la  unidad  MP2.  Lea  y  respete  las  advertencias  que  se  dan  en  la  etiqueta  de  caracteris- 
ticas,  que  esta  situada  en  la  cara  inferior  de  la  carcasa  del  ordenador  y  de  la  fuente  de 
alimentaci6n: 

Desconectar  cuando  no  se  utilice. 

jATENCION! 

No  manipular  en  su  interior 

y  en  la  cara  posterior  de  los  monitores: 

NO  ABRIR  SIN  ANTES  DESCONECTAR 
LA  TENSION  DE  RED 


Curso  de  introducci6n  '/i 


Conexion  del  ordenador  a  un  monitor 

(Si  va  a  utilizar  su  CPC6128  con  la  unidad  MP2,  no  es  necesario  que  lea  esta  secci6n.) 

1.  Cerci6rese  de  que  el  monitor  no  esta  conectado  a  la  red. 

2.  Conecte  el  cable  que  sale  de  la  cara  frontal  del  monitor  y  termina  en  una  clavija 
grande  (DIN  de  6  patillas)  al  z6caIo  posterior  del  ordenador  marcado  con 
MONITOR. 

3.  Conecte  el  cable  que  sale  de  la  cara  frontal  del  monitor  y  termina  en  la  clavija  mas 
pequefla  al  z6caIo  posterior  del  ordenador  marcado  con  5V  c.c. 

4.  Conecte  el  cable  que  sale  de  la  cara  posterior  del  ordenador  y  termina  en  una  clavija 
pequefla  (12V  c.c.)  al  z6ca!o  que  hay  en  la  cara  frontal  del  monitor. 


PANEL  POSTERIOR 
DEL  ORDENADOR 


CARA  FRONTAL  DEL  MONITOR 


POWER 
□ 
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Conexion  del  ordenador  a  la  unidad 
modulador/fuente  de  alimentation  MP2 

La  MP2  es  una  unidad  optional  que  el  usuario  puede  querer  adquirir  si  esta  utilizando 
actualmente  el  CPC6128  con  el  monitor  de  f6sforo  verde  GT65.  La  MP2  permite  co- 
nectar  el  CPC6128  a  un  televisor  de  color  domestico,  para  asi  disfrutar  de  las  posibili- 
dades  de  color  del  CPC6128. 

La  MP2  se  debe  colocar  inmediatamente  a  la  derecha  del  CPC6128. 

1 .  Cerci6rese  de  que  la  MP2  no  esta  conectada  a  la  red. 

2.  Conecte  el  cable  de  la  MP2  que  termina  en  una  clavija  grande  (DIN  de  6  patillas) 
al  z6calo  posterior  del  ordenador  marcado  con  MONITOR. 

3.  Conecte  el  cable  de  la  MP2  que  termina  en  una  clavija  pequefla  al  z6calo  posterior 
del  ordenador  marcado  con  5V  c.c. 

4.  Conecte  el  cable  que  sale  de  la  MP2  y  termina  en  una  clavija  de  antena  a  la  entrada 
de  antena  de  su  televisor. 

5.  Conecte  el  cable  que  sale  de  la  cara  posterior  del  ordenador  y  termina  en  una  clavija 
pequefla  (12V  c.c.)  al  zocalo  posterior  de  la  MP2. 


CARA  POSTERIOR  DE  LA 
CLAVIJA         UNIDAD  MODULADOR/FUENTE 
DE  RED  DE  ALIMENTACION  MP2 

UUUUUUUUUUUUUUUUUIJ 


CARA  POSTERIOR 
DEL  ORDENADOR 

JUUUUUUUUUUUUUUL 


A  LA  ENTRADA  DE 
ANTENA  DEL  TELEVISOR 
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Encendido  del  sistema  CPC6128  con  GT65  o  con 
CTM644 

(Si  va  a  utilizar  su  CPC6128  con  la  unidad  MP2,  no  es  necesario  que  lea  esta  seccidn.) 

Una  vez  conectado  el  sistema  segun  se  ha  explicado  en  secciones  anteriores,  inserte  la 
clavija  de  red  en  la  toma  mural.  Para  encender  el  sistema,  pulse  el  botdn  ALIMENTA- 
CI0N  que  esta  en  la  cara  frontal  del  monitor,  de  modo  que  quede  en  posicidn  «ENC.». 
Si  este  botdn  esta  en  «APAG.»,  el  suministro  de  corriente  al  resto  del  sistema  queda 
interrumpido. 

Encienda  el  ordenador  mediante  el  interruptor  deslizante  marcado  con  ALIMENTA- 
CI(3n,  que  esta  en  su  cara  derecha. 

En  este  momento  se  debe  encender  el  piloto  rojo  (ENC)  que  esta  a  la  derecha  del  tecla- 
do;  en  el  monitor  se  vera  el  siguiente  mensaje: 


An s trad  128K  Hicroconputer   (s3) 

brad  Consumer  Electronic     _ 
and  Loconotive  Software  Ltd. 


(31985  An s trad  Consumer  Electronics  pic 


BASIC  1.1 
Ready 


Para  evitar  la  fatiga  visual  excesiva,  ajuste  el  control  de  brillo  marcado  con  BRILLO 
al  minimo  necesario  para  que  el  texto  se  vea  cdmodamente,  sin  que  deslumbre  ni  resulte 
borroso. 

El  control  BRILLO  se  encuentra  en  la  parte  inferior  de  la  cara  frontal  del  monitor 
GT65  y  en  el  lateral  derecho  del  CTM644. 

En  el  caso  del  GT65,  puede  ser  necesario  ajustar  los  controles  de  contraste  (CON- 
TRASTE)  y  de  fijacidn  del  cuadro  vertical  (SINCRO.  VERT.),  que  estan  en  el  panel 
frontal. 

El  mando  de  CONTRASTE  se  debe  poner  en  el  minimo  compatible  con  la  cdmoda  vi- 
sualization de  los  textos. 
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Encendido  del  sistema  CPC6128  con  la  unidad 
modulador/fuente  de  alimentation  MP2 

Una  vez  conectado  el  sistema  segun  se  ha  explicado  en  secciones  anteriores,  inserte  la 
clavija  de  red  en  la  toma  mural.  Encienda  el  ordenador  mediante  el  interruptor  desli- 
zante  que  esta  en  su  lateral  derecho. 

En  este  momento  se  debe  encender  el  piloto  rojo  que  esta  en  el  centro  del  teclado.  Aho- 
ra  debe  sintonizar  el  televisor  para  recibir  las  sefiales  del  ordenador. 

Si  su  televisor  tiene  un  selector  de  canales  de  botonera,  pulse  el  bot6n  correspondiente 
a  un  canal  no  utilizado.  Ajuste  el  mando  de  sintom'a  siguiendo  las  instrucciones  del  ma- 
nual del  televisor  (si  dispone  de  un  dial  de  sintom'a,  pruebe  en  las  proximidades  del  ca- 
nal 36)  hasta  obtener  la  siguiente  imagen: 

An s trad  128K  Microcomputer   (s3> 

§1985  Am s trad  Consumer  Electronics  pic 
and  Locomotive  Software  Ltd. 

BASIC  1.1 

Ready 


Trate  de  conseguir  la  maxima  nitidez  posible.  El  texto  aparecera  en  color  amarillo  do- 
rado sobre  fondo  azul. 

Si  el  televisor  tiene  un  selector  de  canales  rotatorio,  girelo  hasta  que  pueda  ver  la  ima- 
gen y  esta  sea  estable  (canal  36,  aproximadamente). 
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Anomalias  en  el  funcionamiento  del  sistema 

AI  pulsar  el  interruptor  de  alimentacidn  no  se  ilumina  la  pantalla 

—  Apague  el  interruptor  pulsandolo  por  segunda  vez. 

—  Desconecte  el  ordenador  de  la  toma  mural. 

—  Enchufe  en  ella  una  lampara  que  usted  sepa  que  funciona  para  comprobar  que 
llega  corriente. 

—  Deconecte  la  impresora. 

—  Si  tiene  instalado  un  interfaz  RS232,  desconectelo. 

—  Vuelva  a  enchufar  el  ordenador  en  la  toma  mural;  si  hay  algiin  interruptor  que 
controle  el  paso  de  corriente  al  enchufe,  enciendalo. 

—  Finalmente,  vuelva  a  pulsar  el  interruptor  de  alimentaci6n. 

Si  el  problema  persiste,  consulte  a  su  distribuidor. 


No  se  puede  introducir  el  disco  en  la  unidad 

—  Compruebe  que  no  hay  otro  disco  en  la  unidad.  Si  lo  hay,  se  vera  la  etiqueta. 
En  tal  caso  pulse  el  boton  de  eyeccidn  para  extraerlo. 

—  Cerci6rese  de  que  no  estd  intentando  introducir  el  disco  al  reves  (vease  la  section 
3.1.2). 


Limpieza 

Para  la  limpieza  de  la  pantalla  y  el  teclado  recomendamos  el  uso  de  espumas  antiestati- 
cas  en  aerosol.  En  ningiin  caso  se  puede  utilizar  productos  limpiadores  espirituosos. 

Finalmente,  asegiirese  de  que  ha  tenido  en  cuenta  las  advertencias  que  hemos  hecho 
al  principio  de  este  manual,  en  la  secci6n  titulada  'IMPORTANTE': 

NOTAS  DE  INSTALACI6N  1,  2,  4,  5,  6,  7  y  8  (pag.  4) 
NOTA  DE  OPERACI6N  1  (pig.  4) 
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Parte  2:  Conexion  de  los  perifericos 


En  esta  secci6n  vamos  a  explicar  c6mo  se  conectan  al  sistema  CPC6128  diversos  perife- 
ricos, cuyo  funcionamiento  se  explica  en  las  correspondientes  secciones  de  este  manual. 


Joysticks  (bastoncillos  de  mando) 

El  joystick  AMSOFT  modelo  JY2  es  un  aparato  opcional  que  el  usuario  puede  desear 
adquirir  si  va  a  utilizar  su  CPC6128  con  programas  de  juegos  disenados  para  aprove- 
char  las  posibilidades  de  control  y  disparo  del  joystick. 

Conecte  el  cable  procedente  del  joystick  en  el  z6calo  marcado  con  MANDO  A  DIS- 
TANCIA  en  el  ordenador.  El  CPC6128  admite  dos  joysticks;  el  segundo  se  conecta  en 
el  z6calo  que  hay  en  la  peana  del  primero. 

Con  este  ordenador  se  puede  utilizar  tambien  el  joystick  AMSOFT  modelo  JY1. 

En  secciones  posteriores  de  este  manual  daremos  mas  informaci6n  sobre  los  joysticks. 


Magnetofono  de  cassettes 


Los  programas  pueden  ser  leidos  o  grabados  en  cinta,  en  lugar  de  en  disco.  Mas  adelan- 
te  describiremos  las  6rdenes  que  indican  al  ordenador  cuando  debe  leer  o  enviar  datos 
a  la  cinta  o  al  disco. 

Para  conectar  el  magnet6fono  al  ordenador  se  requiere  el  cable  AMSOFT  CL1,  o  un 
cable  estandar  equivalente. 

Inserte  el  extremo  del  cable  que  termina  en  una  clavija  grande  (DIN  de  5  patillas)  en 
el  z6calo  del  ordenador  que  esta  marcado  con  CINTA. 

Inserte  la  clavija  en  la  que  termina  el  cable  azul  en  la  hembra  del  magnet6fono  que  este 
marcada  con  REMOTE  o  REM  (control  remoto,  si  lo  tiene). 

Inserte  la  clavija  en  la  que  termina  el  cable  rojo  en  la  hembra  del  magnet6fono  que 
est£  marcada  con  MIC,  COMPUTER  IN  o  INPUT  (entrada). 

Inserte  la  clavija  en  la  que  termina  el  cable  bianco  en  la  hembra  del  magnet6fono  que 
est£  marcada  con  EAR,  COMPUTER  OUT  o  OUTPUT  (salida). 
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Es  importante  observar  que  el  exito  en  la  transferencia  de  datos  entre  el  CPC6128  y 
la  cinta  depende  en  gran  medida  del  correcto  ajuste  del  control  de  nivel  o  de  volumen 
del  magnet6fono.  Si  encuentra  dificultad  en  la  grabaci6n  o  lectura  de  los  programas, 
pruebe  con  diferentes  posiciones  del  control  de  volumen  y  de  tono  del  magnetofono 
hasta  optimizar  los  resultados,  o  pruebe  con  la  otra  cara  de  la  cinta  si  en  ella  hay  la 
misma  grabaci6n. 


Impresora 

El  CPC6128  puede  ser  conectado  a  cualquier  impresora  de  interfaz  tipo  Centronics. 
Para  conectar  el  ordenador  a  la  impresora  AMSTRAD,  basta  con  utilizar  el  cable  sumi- 
nistrado  con  esta. 

Para  conectar  cualquier  otra  impresora  de  tipo  Centronics  se  necesita  el  cable 
AMSOFT  PL1. 

Inserte  el  extremo  del  cable  que  termina  en  un  conector  piano  en  el  z6calo  del  ordena- 
dor marcado  con  IMPRESORA. 

Inserte  el  otro  extremo  del  cable,  que  termina  en  el  conector  de  tipo  Centronics,  en  el 
z6calo  de  la  impresora.  Si  la  impresora  tiene  abrazaderas  de  seguridad,  fijelas  en  las 
ranuras  que  hay  en  los  laterales  del  conector. 

Mas  adelante  daremos  informaci6n  sobre  el  manejo  de  la  impresora. 


Segunda  unidad  de  disco  (AMSTRAD  FD1) 

La  unidad  AMSTRAD  FD1  se  puede  incorporar  al  sistema  como  segunda  unidad  de 
disco.  Las  ventajas  de  disponer  de  dos  unidades  seran  particularmente  evidentes  para 
el  usuario  habitual  de  CP/M,  pues  muchos  programas  estan  diseflados  para  funcionar 
con  los  discos  de  programas  en  una  unidad  y  los  ficheros  de  datos  en  la  otra. 

El  sistema  operativo  CP/M  siempre  requiere  que  los  programas  se  carguen  desde  el  dis- 
co (no  permite  el  acceso  a  la  ROM  de  BASIC).  CP/M  permite  acceder  a  ficheros  multi- 
ples mediante  una  tecnica  que  hace  posible  la  ejecuci6n  de  programas  que  de  otra  for- 
ma no  cabrian  en  la  RAM;  pero  en  muchas  ocasiones  el  disco  de  programas  contiene 
tantos,  que  practicamente  no  queda  espacio  para  los  ficheros  de  datos. 

Gracias  a  la  versatilidad  de  los  programas  de  ayuda  sumimstrados  con  los  discos  del 
sistema,  todas  la  operaciones  de  mantenimiento  de  ficheros  (copia,  borrado,  etc.)  se 
pueden  realizar  con  una  sola  unidad  de  disco.  Sin  embargo,  la  segunda  unidad  facilita 
y  acelera  estos  procesos,  y  reduce  notablemente  el  riesgo  de  accidentes. 

Para  conectar  la  unidad  FD1  al  CPC6128  se  requiere  el  cable  AMSOFT  DI2. 
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Inserte  el  conector  piano  mayor  en  el  zocalo  del  ordenador  que  esta  marcado  con 

UNffiAD  DE  DISCO  2. 

Inserte  el  otro  conector  mas  pequeflo  del  cable  en  el  zocalo  de  unidad  FD1. 

Ambos  conectores  tienen  marcada  la  cara  superior;  el  cable  piano  va  hacia  abajo.  En 
caso  de  duda  consulte  a  su  distribuidor. 

NO  OLVIDE  que,  antes  de  encender  o  apagar  la  segunda  unidad  de  disco,  debe  extraer 
los  discos  que  pueda  haber  en  ambas  unidades  y  apagar  el  sistema.  Si  se  modifica  algu- 
na  conexi6n  mientras  el  sistema  esta  encendido,  lo  mas  probable  es  que  se  pierda  o  alte- 
re  el  programa  actualmente  residente  en  la  memoria.  Tenga  la  precauci6n  de  grabar 
el  programa  antes  de  modificar  las  conexiones  de  los  perifSricos. 

Si  tiene  conectada  una  FD1  al  CPC6128,  encienda  primero  la  FD1  con  el  interruptor 
deslizante  que  esta  en  el  panel  posterior;  despuls  encienda  el  CPC6128  con  el  interrup- 
tor deslizante  que  esta  en  la  cara  posterior  del  ordenador.  Deberan  iluminarse  los  dos 
pilotos,  rojo  y  verde,  de  la  FD1;  esto  indicara  que  la  segunda  unidad  de  disco  esta  pre- 
parada  para  su  uso. 
Mas  adelante  explicaremos  el  funcionamiento  de  la  segunda  unidad  de  disco. 


Amplificador  y  altavoces  externos 

El  CPC6128  puede  ser  conectado  a  un  sistema  de  amplificador  y  altavoces  estereof6ni- 
cos,  linica  forma  de  apreciar  plenamente  las  capacidades  sonoras  del  ordenador. 

El  cable  de  entrada  al  amplificador  debe  teminar  en  una  clavija  estereo  de  3.5  mm,  que 
se  inserta  en  la  hembra  marcada  con  ESTEREO  en  el  ordenador. 

Las  conexiones  de  la  clavija  deben  ser  las  siguientes: 

Extremo  de  la  clavija:  canal  izquierdo. 
Anillo  intermedio:  canal  derecho. 
Cuerpo  de  la  clavija:  masa. 

El  CPC6128  entrega  a  la  salida  ESTEREO  una  serial  de  nivel  constante;  asi  pues,  el 

volumen,  el  balance  y  el  tono  deben  ser  regulados  con  los  mandos  del  amplificador 

externo. 

Tambien  se  pueden  conectar  auriculares  de  alta  impedancia,  aunque  el  volumen  no  po- 

dra  ser  regulado  por  el  mando  de  VOLUMEN  del  ordenador.  Los  auriculares  de  baja 

impedancia,  que  son  los  habitualmente  utilizados  con  los  equipos  de  alta  fidelidad,  no 

pueden  ser  conectados  directamente  al  ordenador. 

Mas  adelante  explicaremos  c6mo  enviar  sonidos  a  cada  uno  de  los  tres  canales  del 
CPC6128. 
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Dispositivos  de  expansion 

Al  ordenador  CPC6128  se  le  pueden  conectar  diversos  dispositivos  de  expansi6n  (inter- 
faz  serie,  modem,  lapiz  fotosensible,  ROMs,  etc.)  por  medio  del  z6calo  marcado  con 
EXPANSION  que  esta  en  la  cara  posterior  del  ordenador. 

Tambien  se  puede  conectar  en  ese  zocalo  el  amplificador/sintetizador  de  voz  AMSOFT 
modelo  SSA2. 

Las  conexiones  del  z6calo  EXPANSION  se  describen  en  el  capitulo  titulado  'Para  su 
referencia  . . .'. 

Finalmente,  antes  de  proseguir,  asegurese  de  que  ha  tenido  en  cuenta  las  advertencias 
que  hemos  hecho  al  principio  de  este  manual,  en  la  seccidn  titulada  'IMPORTANTE': 

NOTAS  DE  INSTALACION  6  y  7  (pig.  4) 
NOTAS  DE  OPERACION  4  y  8  (pig.  5) 
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Parte  3:  En  cuanto  a  los  discos  . . . 


El  AMSTRAD  CPC6128  usa  discos  compactos  de  3  pulgadas.  Le  sugerimos  que  no  co- 
rra  riesgos  indebidos  y  que,  para  garantizar  la  fiabilidad  de  la  transferencia  de  datos 
del  ordenador  a  los  discos,  utilice  solamente  los  discos  AMSOFT  CF2.  Puede,  no  obs- 
tante, utilizar  tambien  los  de  otras  marcas  de  maxima  garantia. 


Insertion 


Se  pueden  utilizar  las  dos  caras  del  disco,  aunque  no  simultaneamente.  La  forma  co- 
rrecta  de  insertar  los  dicos  es  con  la  etiqueta  hacia  fuera  (visible)  y  con  la  cara  que  se 
va  a  usar  hacia  arriba: 
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Proteccion  contra  escritura 


En  el  extremo  posterior  izquierdo  de  cada  cara  del  disco  se  puede  ver  una  flecha  que 
seflala  un  pequeflo  orificio  obturado:  es  el  orificio  de  'protecci6n  contra  escritura',  cu- 
ya  mision  es  evitar  el  borrado  accidental  del  contenido  del  disco: 


Orificio  de  protecci6n 
contra  escritura 


Cuando  el  orificio  esta  cerrado,  el  ordenador  puede  'escribir'  en  el  disco.  En  cambio, 
si  el  orificio  esta  abierto,  el  disco  esta  protegido  contra  la  escritura,  impidiendo  el  bo- 
rrado accidental  de  programas  o  datos  valiosos. 

Los  diversos  fabricantes  utilizan  diferentes  mecanismos  de  apertura  y  cierre  del  orifi- 
cio. En  los  discos  AMSOFT  CF2  el  funcionamiento  es  como  sigue: 

Para  abrir  el  orificio,  haga  deslizar  el  pequeflo  obturador  situado  en  la  esquina  izquier- 
da  del  disco: 


Orificio  de  proteccion 
contra  escritura  (ABIERTO) 


* 


Obturador       J*| 

ABIERTO  I  , 
i 
i 

T 


/^\ 


Protecci6n  activada 
PROTEGIDO 

U 


Obturador 
CERRADO" 


:£J 


r~\ 


K.J 


Protecci6n  desactivada 
NO  PROTEGIDO 

-U 


Para  cerrar  el  orificio,  haga  deslizar  el  obturador  en  sentido  contrario. 
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En  algunos  discos  compactos  el  mecanismo  consiste  en  una  pequefla  palanca  de  plasti- 
co  situada  en  una  ranura  que  tienen  en  la  esquina  izquierda: 


i  i« 


Orificio  de  proteccion 

contra  escritura 

(CERRADO) 


Para  abrir  el  orificio  en  los  discos  de  este  tipo,  desplace  la  palanca  hacia  el  centro  del 
disco,  ayudandose  con  la  punta  de  un  bolfgrafo  u  objeto  similar: 


Desplace  la  palanca 

hacia  el  centro 

del  disco 


Orificio  de  proteccion 

contra  escritura 

(ABIERTO) 


Observe  que,  cualquiera  que  sea  el  mecanismo  de  obturaci6n,  el  efecto  es  siempre  el 
mismo:  el  disco  queda  protegido  cuando  el  orificio  esta  abierto. 


IMPORTANTE 

Cerciorese  de  que  los  orificios  de  proteccion  de  sus  discos  maestros  de  CP/M  estan 
abiertos. 
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Despues  de  introducido  el  disco 


En  la  cara  frontal  de  la  unidad  de  disco  hay  un  piloto  rojo  y  un  bot6n  de  eyeccion: 


Boton  de 
eyeccion 


JL/uuinriJiJinji^^ 


Piloto 


Cuando  esta  encendido,  indica  que  el  ordenador  esta  leyendo  datos  del  disco  o  escri- 
biendo  en  el. 

Si  se  ha  conectado  una  segunda  unidad  de  disco  (unidad  B),  su  piloto  estara  encendido 
constantemente,  y  se  apagara  cuando  se  encienda  el  de  la  unidad  principal  (unidad  A). 


Boton  de  eyeccion 


Al  pulsar  este  bot6n  se  expulsa  parcialmente  el  disco,  lo  que  permite  que  el  usuario  lo 
extraiga. 


Finalmente,  antes  de  proseguir,  asegiirese  de  que  ha  tenido  en  cuenta  las  advertencias 
que  hemos  hecho  al  principio  de  este  manual,  en  la  secci6n  titulada  'IMPORTANT^': 

NOTAS  DE  OPERAClON  1,  3,  4,  5  y  6  (pags.  4  y  5) 
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Parte  4:  Manos  al  teclado  . . . 


Antes  de  empezar  a  cargar  y  grabar  programas  necesitamos  familiarizarnos  con  algu- 
nas  teclas  del  ordenador.  Si  tiene  usted  alguna  experiencia  en  el  manejo  de  los  ordena- 
dores,  puede  omitir  la  lectura  de  esta  section. 

Encienda  el  ordenador  y  vera  el  mensaje  initial  en  la  pantalla.  Vamos  a  explicar  las 
funciones  de  las  diversas  teclas: 


Las  cuatro  teclas  que  estan  marcadas  con  sendas  flechas  (y  situadas  en  el  extremo  infe- 
rior derecho  del  teclado)  son  las  'teclas  de  movimiento  del  cursor'.  Estas  teclas  sirven, 
pues,  para  mover  el  cursor  por  la  pantalla. 

Piilselas  todas  ellas  y  practique  hasta  familiarizarse  con  su  funcionamiento. 


RETURN 


La  tecla  [RETURN}  sirve  para  introducir  en  el  ordenador  lo  que  usted  ha  tecleado.  Una 
vez  pulsada  la  tecla  [RETURN},  el  cursor  salta  automaticamente  a  la  linea  siguiente  de 
la  pantalla.  Siempre  que  escriba  una  orden  directa  o  una  instruction  de  programa,  pul- 
se [RETURN]  al  final. 

De  ahora  en  adelante  escribiremos  [RETURN]  para  indicar  que  se  debe  pulsar  esta  tecla 
al  terminar  de  teclear  ordenes  o  instrucciones  de  programa. 
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En  circunstancias  normales  (esto  es,  si  no  se  modifica  por  programa  su  funci6n),  esta 
tecla  tiene  el  mismo  efecto  que  [RETURN]  y  puede  ser  utilizada  en  su  lugar.  Sin  embar- 
go, al  igual  que  las  restantes  teclas  de  funci6n  del  teclado  numSrico,  [INTRO]  puede 
ser  redefinida,  segiin  explicaremos  mas  adelante. 


^BORR 

Esta  tecla  sirve  par  borrar  el  caracter  (letra,  numero  o  signo)  que  esta  a  la  izquierda 
del  cursor. 

Teclee  abed  y  observe  que  el  cursor  queda  inmediatamente  a  la  derecha  de  la  letra  d. 
Para  borrar  la  d,  pulse  la  tecla  [+-BORR].  Si  la  mantiene  pulsada  durante  algun  tiem- 
po,  vera  c6mo  se  borran  tambien  las  otras  tres  letras. 


Hay  dos  teclas  [MAYS],  una  a  cada  lado  del  teclado.  Si  mantiene  pulsada  una  de  ellas 
al  tiempo  que  pulsa  una  tecla  literal  (de  letras),  en  la  pantalla  aparecera  la  correspon- 
diente  letra  en  mayuscula. 

Escriba  la  letra  e,  pulse  la  tecla  [MAYS]  y,  antes  de  soltarla,  vuelva  a  teclear  la  e.  En 
la  pantalla  vera  lo  siguiente: 

eE 

Escriba  ahora  unos  cuantos  espacios  (manteniendo  pulsada  durante  algun  tiempo  la 
barra  espaciadora).  Para  probar  el  efecto  de  [MAYS]  con  las  teclas  numericas,  escriba 
el  2,  pulse  [MAYS]  y,  sin  soltarla,  vuelva  a  escribir  el  2.  El  la  pantalla  aparecera  lo 
siguiente: 

2" 
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Haga  pruebas  con  las  diferentes  teclas  de  caracteres  para  observar  su  efecto  con  y  sin 
[MAYS]. 


FIJA 
MAYS 

Su  efecto  es  en  cierto  modo  similar  al  de  [MAYS].  Con  solo  pulsarla  una  vez,  las  letras 
que  se  escriban  a  continuaci6n  apareceran  en  mayusculas  en  la  pantalla,  pero,  en  cam- 
bio,  las  teclas  numericas  y  de  signos  no  resultan  afectadas. 

Pulse  [FIJA  MAYS]  una  sola  vez  y  luego  escriba  lo  siguiente: 

abcde-f  123456 
En  la  pantalla  aparecera: 

ABCDEF123456 

Observe  que  las  letras  han  sido  convertidas  a  mayusculas  y  que,  sin  embargo,  los  nume- 
ros  no  han  sido  convertidos  a  los  signos  que  estan  grabados  en  la  parte  superior  de  las 
teclas  numericas.  Para  obtener  estos  signos  se  pulsa  la  tecla  correspondiente  en  combi- 
naci6n  con  [MAYS].  Escriba  ahora  lo  siguiente,  manteniendo  pulsada  la  tecla 
[MAYS]: 

abcde-f  123456 

En  la  pantalla  aparecera: 
ABCDEF!  H#*%8< 

Para  volver  a  caracteres  normales  (en  minusculas),  pulse  por  segunda  vez  [FIJA 
MAYS]. 


CONTROL 


FIJA 
MAYS 

Si  lo  que  desea  es  obtener  letras  mayusculas  y  los  signos  marcados  en  la  parte  superior 
de  las  teclas,  sin  tener  que  mantener  pulsada  la  tecla  [MAYS],  puede  hacer  lo  siguiente: 
mantenga  pulsada  la  tecla  [CONTROL]  y  pulse  [FIJA  MAYS]  una  sola  vez.  Para  com- 
probar  el  efecto  de  esta  combination,  escriba  lo  siguiente: 
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abcde-f  123456 

En  la  pantalla  aparecera: 

ABCDEF! "#*%k 

En  esta  situaci6n,  se  pueden  escribir  numeros  utilizando  el  teclado  numerico  (teclas  fO 
a  f9)  que  esta  a  la  derecha  del  teclado  principal. 

Manteniendo  pulsada  la  tecla  [CONTROL]  al  tiempo  que  se  pulsa  [FIJA  MAYS]  se 
vuelve  al  modo  anterior  (es  decir,  a  minusculas  o  a  bloqueo  de  mayusculas).  Si  el  modo 
al  que  ha  vuelto  es  a  bloqueo  de  mayusculas,  pulse  [FIJA  MAYS]  para  retornar  al  mo- 
do normal,  esto  es,  a  minusculas. 


Esta  tecla  borra  el  caracter  que  esta  bajo  el  cursor. 

Escriba  ABCDEFGH.  El  cursor  ha  quedado  a  la  derecha  de  la  ultima  letra  (la  H).  Pulse 
cuatro  veces  la  tecla  0-  El  cursor  se  ha  movido  cuatro  posiciones  hacia  la  izquierda, 
de  modo  que  esta  super puesto  a  la  letra  E. 

Observe  que  la  letra  E  es  visible  a  traves  del  cursor.  Pulse  [CLR]  y  observe  como  desa- 
parece  la  letra  E  y  c6mo  se  mueven  hacia  la  izquierda  las  Ietras  FGH;  bajo  el  cursor 
queda  la  F.  Pulse  durante  unos  instantes  [CLR]:  primero  desaparece  la  F,  y  luego  la 
G  y  la  H. 


ESC 


Esta  tecla  se  utiliza  para  abandonar  una  funci6n  que  el  ordenador  este  realizando.  Si 
se  pulsa  [ESC]  una  vez,  el  ordenador  interrumpe  su  tarea  momentaneamente,  y  la  rea- 
nuda  si  a  continuation  se  pulsa  cualquier  otra  tecla. 

Si  se  pulsa  [ESC]  dos  veces  seguidas,  el  ordenador  abandona  definitivamente  la  tarea 
que  esta  realizando  y  queda  a  la  espera  de  otras  or  denes. 
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Importante 


Cuando  se  han  escrito  40  caracteres  en  una  linea,  el  cursor  esta  en  el  extreme*  derecho 
de  ella;  el  siguiente  caracter  aparecera  automaticamente  al  principio  de  la  linea  siguien- 
te.  Esto  significa  que  no  se  debe  pulsar  [RETURN],  a  diferencia  de  lo  que  se  haria  si 
se  estuviera  trabajando  con  una  maquina  de  escribir,  en  la  que  se  ha  de  teclear  el  retor- 
no  del  carro  al  acercarse  al  final  de  cada  linea. 

El  ordenador  realiza  esta  funcidn  automaticamente;  ante  un  [RETURN]  indebido, 
reaccionara  con  un  mensaje  de  error,  generalmente  Syntax  error,  bien  en  el  acto  o 
bien  mas  tarde,  cuando  se  ejecute  el  programa. 


Syntax  error  (error  de  sintaxis) 

Cuando  en  la  pantalla  aparece  el  mensaje  Syntax  error,  el  ordenador  esta  diciendo 
que  no  ha  entendido  la  orden  que  se  le  ha  dado. 

Por  ejemplo,  escriba 

printt    [RETURN] 
En  la  pantalla  aparecera  el  mensaje: 

Syntax  error 

Esto  ocurre  porque  el  ordenador  no  entiende  la  instruction  printt. 
Si  el  mismo  error  se  comete  en  una  linea  de  programa,  tal  como 

10  printt  "abc"  [RETURN] 

en  mensaje  Syntax  error  no  aparece  hasta  que  se  ejecuta  el  programa.  Escriba: 

run  [RETURN] 

(Esta  orden  pide  al  ordenador  que  ejecute  el  programa  que  tiene  en  este  momento  alma- 
cenado  en  la  memoria.)  En  la  pantalla  aparece: 

Syntax  error  in  10 
10  Brintt  "abc" 

Este  mensaje  indica  en  que  linea  se  ha  detectado  el  error  y  exhibe  la  linea  con  el  cursor 
ya  preparado  para  que  el  usuario  pueda  corregirla. 
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Lleve  el  cursor,  con  la  tecla  Q,  hasta  una  letra  t  de  printt.  Pulse  [CLR]  para  borrar 
la  t  que  sobra  y  luego  pulse  [RETURN]  para  introducir  la  linea  corregida  en  el 
ordenador. 

Escriba  ahora: 

run    [RETURN! 
El  ordenador  ha  entendido  la  instruction;  de  hecho,  ha  escrito  en  la  pantalla: 

abc 


Finalmente,  asegiirese  de  que  ha  tenido  en  cuenta  las  advertencias  que  hemos  hecho 
al  principio  de  este  manual,  en  la  section  titulada  'IMPORT ANTE': 


NOTAS  DE  INSTALACI6N  4  y  5  (pig.  4) 
NOTA  DE  OPERACI6N  1  (pag.  4) 
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Parte  5:  Carga  de  programas  . . . 


Vamos  a  hacer  una  demostracion  de  lo  rapida  que  es  la  carga  de  programas  grabados 
en  disco.  Encienda  el  equipo,  inserte  la  cuarta  cara  de  los  discos  maestros  de  CP/M 
(cara  marcada  con  'Side  4'  hacia  arriba)  y  teclee  lo  siguiente: 

run  "rointime.dem"  [RETURN3 

Al  cabo  de  unos  segundos  el  programa  habra  quedado  cargado  en  la  memoria  del  orde- 
nador.  Responda  a  la  pregunta  de  si  esta  utilizando  un  monitor  de  f6sforo  verde 
("green  monitor";  teclee  Y  para  'si',  o  N  para  'no')  y  podra  ver  una  demostracion  del 
juego  'Roland  in  Time'  en  la  pantalla.  Quiza  se  anime  a  comprarlo. 

Cuando  haya  terminado  de  ver  la  demostraci6n,  puede  'escapar'  del  programa  de  la 
siguiente  forma:  pulse  las  teclas  [CONTROL]  y  [MAYS]  y,  antes  de  soltarlas,  pulse 
[ESC].  Esta  acci6n  reinicializa  por  completo  la  maquina;  llevela  a  cabo  siempre  que 
quiera  volver  a  la  situation  en  que  se  encuentra  la  maquina  cuando  acaba  de  encender- 
la.  (Cuando  se  reinicializa  el  ordenador  de  esta  forma,  no  es  necesario  extraer  el  disco 
que  pueda  haber  en  la  unidad.) 

Si  el  programa  no  se  ha  cargado  normalmente,  estudie  el  mensaje  que  ha  aparecido  en 
la  pantalla  para  averiguar  que  ha  ocurrido.  Por  ejemplo, 

Drive  A:  disc  missing 
Retry,  Ignore  or  Cancel? 

significa  que  no  ha  insertado  el  disco,  o  que  no  lo  ha  hecho  correctamente,  o  quiza  que 
lo  ha  puesto  en  la  unidad  B. 

ROINTIME.DEM  not  -found 

significa  que  no  ha  puesto  el  disco  correcto,  o  que  ha  puesto  la  otra  cara,  o  que  no 
ha  tecleado  correctamente  el  nombre  del  programa,  ROINTIME.DEM. 

Si  aparece  el  mensaje 

Bad    command 

lo  mas  probable  es  que  haya  tecleado  mal  ROINTIME.DEM,  quiza  incluyendo  un  es- 
pacio  o  un  signo  de  puntuacion. 

Type   mismatch 
significa  que  ha  omitido  las  comillas  ("). 
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Syntax  error 

indica  que  ha  tecleado  incorrectamente  la  orden  run. 
El  mensaje 

Drive  A:  read  -fail 
Retry,  Ignore  or  Cancel? 

indica  que  el  ordenador  no  ha  conseguido  leer  los  datos  grabados  en  el  disco.  Comprue- 
be  que  el  disco  que  ha  insertado  es  el  correcto  y  pulse  R  (de  Retry,  'volver  a  intentarlo'). 
Este  es  el  mensaje  que  aparece  siempre  que  se  ha  estropeado  un  disco  por  dejarlo  den- 
tro  de  la  unidad  al  apagar  o  encender  el  sistema. 

Cuando  hayamos  explicado  c6mo  hacer  copia  de  los  discos,  copie  sistematicamente  to- 
dos  los  programas  valiosos,  en  particular  los  discos  maestros  de  CP/M. 


Carga  de  programas  AMSOFT  y  del  programa 
WELCOME 

Esperamos  haberle  abierto  el  apetito,  asi  que  vamos  a  cargar  un  juego. 
Inserte  en  la  unidad  un  disco  de  juegos  y  teclee: 

run    "disc"     [RETURN] 

Al  cabo  de  unos  segundos  el  juego  estara  cargado  y  en  marcha.  Si  teclea  run"disc" 
con  el  disco  maestro  de  CP/M  (cara  4)  instalado  en  la  unidad,  podra  ver  y  oir  el  progra- 
ma de  demostracidn  'Welcome'. 

Cuando  haya  terminado  de  ver  'Welcome',  reinicialice  el  ordenador  mediante  las  teclas 
[CONTROL]  [MAYS]  [ESC]. 

La  orden  descrita  (run"disc")  sirve  para  cargar  casi  todos  los  programas  de  AMSOFT 
grabados  en  disco,  aunque  en  ocasiones  habra  que  teclear  algo  distinto.  En  todo  caso, 
las  instrucciones  de  carga  estan  impresas  en  la  etiqueta  del  disco;  sigalas  siempre 
escrupulosamente. 

Para  terminar,  asegurese  de  que  ha  tenido  en  cuenta  las  advertencias  que  hemos  hecho 
al  principio  de  este  manual,  en  la  secci6n  titulada  'IMPORT ANTE': 

NOTA  DE  INSTALACION  6  (pag.  4) 

NOTAS  DE  OPERACION  1,  5  y  6  (pags.  4  y  5) 
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Parte  6:  Empecemos  a  trabajar  . . . 


A  estas  alturas  ya  sabemos  que  podemos  y  que  no  podemos  hacer  con  el  ordenador, 
asi  como  la  forma  de  conectarle  perifericos.  Sabemos  para  que  sirven  algunas  teclas 
del  ordenador  y  como  cargar  programas.  Ahora  vamos  a  ver  algunas  de  la  ordenes  e 
instrucciones  que  usted  puede  teclear  para  que  empiecen  a  ocurrir  cosas  .... 

Al  ordenador  le  ocurre  lo  que  a  los  humanos:  solo  puede  entender  instrucciones  que 
se  le  dan  en  el  lenguaje  que  el  conoce.  En  el  caso  del  ordenador,  ese  lenguaje  es  BASIC 
(siglas  de  Beginners'  All-purpose  Symbolic  Instruction  Code,  'c6digo  de  instrucciones 
simbolicas  de  uso  general  para  principiantes').  Las  palabras  del  vocabulario  de  BASIC 
son  la  llamadas  'palabras  clave',  'palabras  reservadas'  o  'palabras  de  instruction'.  Ca- 
da  una  de  ellas  ordena  a  la  maquina  que  realice  una  determinada  funcion.  Todos  los 
lenguajes  tienen  sus  reglas  gramaticales,  y  BASIC  no  es  la  excepci6n.  Aqui,  el  concepto 
de  gramatica  se  reduce  al  de  'sintaxis';  de  ahf  que  el  ordenador  tenga  la  amabilidad  de 
decirnos  de  vez  en  cuando  que  hemos  cometido  un  error  de  sintaxis:  Syntax  error. 


Introduction  a  las  palabras  clave  del  BASIC  de 
AMSTRAD 

En  el  tercer  capitulo,  titulado  'Lista  completa  de  las  palabras  clave  del  BASIC  del 
ASMTRAD',  daremos  una  description  de  todas  las  palabras  del  dialecto  de  BASIC  que 
entiende  este  ordenador.  En  esta  secci6n  vamos  a  presentar  solo  las  que  se  utilizan  con 
mayor  frecuencia. 

CLS 

Para  borrar  la  pantalla  escriba: 

els  [RETURN] 

Como  puede  observar,  la  pantalla  efectivamente  se  borra  y  en  su  extremo  superior  iz- 
quierdo  aparecen  la  palabra  Ready  y  el  cursor  ■  . 

Para  introducir  palabras  davp  Hp  R^SIC  valen  tantn  las  letra.^  mayfocufo  como  las 
minusculas. 
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PRINT 

Esta  instruccion  sirve  para  hacer  que  el  ordenador  escriba  en  la  pantalla  caracteres  suel- 
tos,  palabras  completas,  f rases  o  numeros.  Teclee  la  siguiente  orden: 

print  "hoi a"  [RETURN] 

En  la  pantalla  puede  ver: 

hola 

Las  comillas  ""  indican  al  ordenador  que  es  lo  que  debe  escribir.  La  palabra  hola  apa- 
recio  en  la  pantalla  en  cuanto  se  pulso  [RETURN].  Teclee 

els    [RETURN] 
para  borrar  la  pantalla. 


RUN 

I  I    II 10 


En  el  ejemplo  anterior  hemos  visto  como  obedece  el  ordenador  una  orden  directa.  Pero 
esto  no  siempre  es  deseable,  ya  que  el  ordenador  olvida  la  orden  inmediatamente  des- 
pues  de  ejecutarla.  Podemos  almacenar  en  la  memoria  del  ordenador  una  sucesion  de 
instrucciones  para  que  mas  tarde  sean  ejecutadas  en  un  orden  determinado.  Tal  suce- 
sion de  instrucciones  constituira  un  programa.  Las  instrucciones  de  BASIC  que  pode- 
mos incluir  en  un  programa  tienen  la  forma  que  hemos  visto,  pero  van  precedidas  de 
un  ruimero  de  linea.  Si  el  programa  consta  de  mas  de  una  instruccion,  los  numeros  de 
linea  indican  al  ordenador  en  que  orden  debe  ejecutarlas.  Cuando  despues  de  teclear 
una  linea  de  instrucci6n  se  pulsa  [RETURN],  la  b'nea  queda  almacenada  en  la  memoria 
hasta  que  pidamos  al  ordenador  que  ejecute  el  programa.  Escriba  lo  siguiente: 

10  print  "hola"  [RETURN! 

Observe  que  en  este  caso,  aunque  ha  pulsado  [RETURN],  la  palabra  hola  no  ha  apare- 
cido  en  la  pantalla,  sino  que  ha  quedado  almacenada  en  la  memoria  del  ordenador, 
incluida  en  la  linea  de  programa.  Para  ejecutar  este  pequeno  programa  debemos  dar 
al  ordenador  la  orden  directa  run.  Escriba 

run    [RETURN] 

Ahora  si  aparece  la  palabra  hola  en  la  pantalla. 

Observe  algo  interesante:  en  lugar  de  escribir  la  palabra  print  completa,  basta  con  te- 
clear el  signo  de  interrogation  ?;  por  ejemplo, 

10  ?    "hola"    [RETURN] 
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LIST 

Cuando  se  tiene  un  programa  almacenado  en  la  memoria,  se  puede  comprobar  su  con- 
tenido  haciendo  un  'listado'.  Escriba 

list  [RETURN] 

En  la  pantalla  aparece 

10   PRINT    "hola" 

que  es  la  linica  lfnea  de  njiestro  .programa. 

Observe  que  ahora  la  palabra  PRINT  esta  en  mayiisculas.  Esto  nos  indica  que  el  orde- 
nador  ha  reconocido  PRINT  como  palabra  clave  de  BASIC. 

Escriba  cls[RETURN]  para  borrar  la  pantalla.  Observe  que,  aunque  se  ha  borrado  el 
texto  que  habia  en  la  pantalla,  el  programa  sigue  estando  en  la  memoria  del  ordenador. 

GOTO 

Esta  instrucci6n  pide  al  ordenador  que  salte  de  la  linea  actual  a  la  linea  especificada, 
para  no  ejecutar  un  grupo  de  instrucciones,  si  el  salto  es  hacia  delante,  o  para  formar 
un  bucle,  si  el  salto  es  hacia  atras.  Escriba 

10  print  "hola"  [RETURN! 
20    goto  10  [RETURN! 

y  luego 

run  [RETURN! 

Como  puede  ver,  el  ordenador  escribe  repetidamente  la  palabra  hola,  a  la  izquierda 
de  la  pantalla,  saltando  cada  vez  a  la  linea  siguiente.  La  razon  es  que,  al  llegar  a  la  linea 
20,  la  instruction  goto  10  reenvia  el  programa  a  la  linea  10. 

Para  detener  el  programa,  pulse  [ESC]  una  vez.  Para  reanudarlo,  pulse  cualquier  otra 
tecla.  Para  detenerlo  definitivamente,  de  forma  que  se  pueda  introducir  otras  instruc- 
ciones, pulse  [ESC]  dos  veces. 

Escriba  ahora 

els    [RETURN! 

para  borrar  la  pantalla. 
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Para  inhibir  el  salto  a  la  linea  siguiente  de  la  pantalla  cada  vez  que  el  ordenador  escriba 
hola,  introduzca  nuevamente  el  programa  anterior,  pero  poniendo  ahora  un  signo  de 
punto  y  coma  (;)  al  final  de  las  comillas: 

10  print  "hola";  [RETURN] 
20  goto  10  [RETURN] 
run  [RETURN] 

El  punto  y  coma  indica  al  ordenador  que  debe  escribir  el  siguiente  grupo  de  caracteres 
inmediatamente  a  la  derecha  del  anterior  (suponiendo  que  quepan  en  la  misma  linea). 

Para  detener  este  programa  pulse  [ESC]  dos  veces.  Escriba  otra  vez  la  linea  10,  pero 
poniendo  una  coma  (,)  en  lugar  del  punto  y  coma  (;): 

10  print  "hola",  [RETURN] 
run  [RETURN] 

Como  puede  observar,  la  coma  ha  indicado  al  ordenador  que  escriba  el  siguiente  grupo 
de  caracteres  13  posiciones  a  la  derecha  del  lugar  en  que  empez6  a  escribir  el  anterior. 
Esta  funci6n  es  litil  cuando  se  quiere  visualizar  information  en  columnas.  No  obstante, 
si  el  niimero  de  caracteres  del  grupo  es  mayor  que  12,  la  escritura  empezara  otras  13 
posiciones  mas  a  la  derecha,  de  forma  que  entre  columnas  siempre  quedara  algun 
espacio. 

Este  niimero,  13,  es  modificable  con  la  instruction  ZONE,  que  describiremos  mas 
adelante. 

Para  detener  este  programa,  pulse  [ESC]  dos  veces.  Para  borrar  completamente  la 
memoria  del  ordenador,  pulse  las  teclas  [CONTROL]  y  [MAYS]  y,  antes  de  soltarlas, 
pulse  [ESC]. 


INPUT 

Esta  instruccidn  hace  que  el  ordenador  quede  a  la  espera  de  que  el  usuario  introduzca 
informacidn  por  el  teclado;  por  ejemplo,  en  respuesta  a  alguna  pregunta. 

Escriba  lo  siguiente: 

10  input  "cuantos  arros  tienes";edad  [RETURN] 
20   print  "pues  no  aparentas  tener ■" ; edad ; 

"altos."  [RETURN] 
run  [RETURN] 

En  la  pantalla  aparece  la  pregunta: 
cuantos   arros    tienes? 
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Escriba  su  edad  y  pulse  [RETURN].  Si,  por  ejemplo,  su  edad  es  18  aflos,  el  programa 
escribe  lo  siguiente: 

pues  no  aparentas  tener  18  aftos. 

Este  ejemplo  ilustra  la  utilization  de  input  combinada  con  una  variable  numerica.  He- 
mos  puesto  la  palabra  edad  al  final  de  la  linea  10,  y  por  consiguiente  en  la  memoria, 
para  que  el  ordenador  pueda  asociarla  al  niimero  que  el  usuario  introduzca;  despues, 
en  la  linea  20,  en  lugar  de  edad  escribira  ese  numero.  Nada  nos  obligaba  a  elegir  preci- 
samente  ese  nombre,  edad,  y  podiamos  haber  utilizado  una  letra  cualquiera,  por  ejem- 
plo, b. 

Reinicialice  el  ordenador  para  borrar  la  memoria  (teclas  [CONTROL]  [MAYS]  [ESC]). 
Si  queremos  captar  por  el  teclado  una  respuesta  que  este  formada  por  caracteres  cuales- 
quiera  (letras  solas  o  letras  mezcladas  con  numeros),  debemos  poner  el  signo  de  d61ar 
($)  al  final  del  nombre  de  la  variable.  Las  variables  de  este  tipo  son  las  que  denomina- 
mos  variables  literates. 

Escriba  el  siguiente  programa  (observe  que  en  la  linea  20  hay  que  poner  un  espacio  des- 
pues de  la  primera  coma,  pero  no  antes  de  la  segunda): 

10  input  "como  te  1  lamas" 5 nombre*  [RETURN! 
20  print  "hola,  "; nombre*;",  yo  me  llamo 

Rolando"  [RETURN] 
run  [RETURN! 

En  la  pantalla  puede  ver: 

como    te    llamas? 

Escriba  su  nombre  y  luego  pulse  [RETURN].  Si  el  nombre  introducido  es,  por  ejemplo, 
Manolo,  el  programa  escribe: 

hola,  Manolo,  yo  me  llamo  Rolando 

En  este  caso  hemos  usado  nombre$  como  nombre  de  la  variable  literal,  pero  perfecta- 
mente  podriamos  haber  elegido  una  letra  cualquiera,  por  ejemplo,  a$.  Vamos  a  combi- 
nar  los  dos  ejemplos  anteriores  en  un  solo  programa. 

Reinicialice  la  maquina  con  [CONTROL]  [MAYS]  [ESC].  Escriba  lo  siguiente: 

5   els  [RETURN] 

10  input  "como  te  llamas"; a*  [RETURN] 

20  input  "cuantos  arYos  tienes";b  [RETURN] 

30  print  "desde  luego,  ";a*;",  no  aparentas 

tener ";b; "aftos"  [RETURN] 
run  [RETURN] 
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En  este  programa  hemos  utilizado  dos  variables:  a$  para  representar  el  nombre  y  b 
para  representar  la  edad.  En  la  pantalla  aparece  la  primera  pregunta: 

como    te    llamas? 

Escriba  su  nombre  (supongamos  que  es  Manolo)  y  luego  pulse  [RETURN].  El  ordena- 
dor  le  pregunta  ahora: 

cuantos   arfos   tienes? 

Escriba  su  edad  (supongamos  que  es  18  aflos)  y  luego  pulse  [RETURN]. 

Si  lo  que  hemos  supuesto  es  cierto,  en  la  pantalla  aparecera  la  siguiente  frase: 

desde  luego,  Manolo,  no  aparentas  tener  18  arfos 


Edition  de  programas 


Si  alguna  de  las  b'neas  del  programa  anterior  hubiera  sido  mecanografiada  incorrecta- 
mente,  lo  que  podria  provocar  el  mensaje  de  error  Syntax  error  o  algiin  otro,  en  lugar 
de  escribirla  de  nuevo  es  posible  corregirla  ('editarla'  es  como  se  dice  en  informatica). 
Para  ilustrar  como  hacerlo,  vamos  a  escribir  incorrectamente  el  programa: 

5   clss  [RETURN] 

10  input  "como  t  llamas"; a*  [RETURN] 
20  input  "cuantos  arras  tienes" ;b  [RETURN] 
30  print  "desde  luego, " ; a*; " ,  no  aparentas 
tener "}b;  "arfos"  [RETURN] 

En  este  programa  hay  tres  errores: 

En  la  linea  5  hemos  escrito  clss  en  lugar  de  els. 

En  la  linea  10  hemos  escrito  t  en  lugar  de  te. 

En  la  linea  30  hemos  olvidado  poner  un  espacio  entre  la  coma  y  el  signo  de  cerrar 

comillas. 

Hay  tres  metodos  para  corregir  un  programa.  El  primero  consiste  en  escribir  nueva- 
mente  la  linea  erronea.  Al  hacerlo,  la  linea  nueva  sustituye  a  la  que  habia  en  la  memoria 
con  el  mismo  numero. 

El  segundo  es  el  'metodo  del  cursor  de  edition'. 

El  tercero  es  el  'metodo  del  cursor  de  copia'. 
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Metodo  del  cursor  de  edition 

Vamos  a  corregir  el  error  de  la  lfnea  5. 
Escriba  lo  siguiente: 

edit  5  [RETURN] 

En  la  pantalla  aparece  la  linea  5,  por  debajo  de  la  30,  con  el  cursor  situado  sobre  la 
c  de  clss. 

Para  suprimir  la  s  que  sobra,  pulse  la  tecla  de  movimiento  del  cursor  0  hasta  que  este 
quede  sobre  la  ultima  s  de  clss;  pulse  la  tecla  [CLR]  y  observe  como  desaparece  la  s. 

A  continuaci6n  pulse  [RETURN]  para  introducir  la  version  corregida  de  la  linea  5  en 
la  memoria.  Escriba 

list  [RETURN] 

y  comprobara  que  la  linea  ha  quedado  corregida. 

La  orden  AUTO,  que  descibiremos  mas  adelante  en  este  manual,  se  puede  combinar 
con  este  metodo  para  corregir  un  grupo  de  lineas  sucesivas. 


Metodo  del  cursor  de  copia 


El  cursor  de  copia  es  un  segundo  cursor,  distinto  del  que  puede  ver  en  este  momento 
en  la  pantalla,  que  aparece  cuando  se  pulsa  [MAYS]  en  combination  con  alguna  de 
las  teclas  de  movimiento  del  cursor.  De  esta  forma,  el  cursor  de  copia  se  separa  del  cur- 
sor ordinario  y  puede  ser  llevado  a  cualquier  lugar  de  la  pantalla. 

Para  corregir  los  errores  de  las  lineas  10  y  30,  pulse  la  tecla  [MAYS]  y,  sin  soltarla, 
pulse  \f\  hasta  llevar  el  cursor  de  copia  al  principio  de  la  linea  10.  Observe  que  el  cursor 
principal  no  se  ha  movido,  por  lo  que  hay  dos  cursores  en  la  pantalla.  Ahora  pulse  va- 
rias  veces  [COPIA]  hasta  que  el  cursor  de  copia  este  sobre  el  espacio  que  hay  entre  la 
t  y  la  palabra  llamas.  Observe  que  el  principio  de  la  linea  10  ha  sido  copiado  en  la 
ultima  linea  de  la  pantalla  y  que  el  cursor  principal  se  ha  detenido  en  la  misma  columna 
que  el  de  copia.  Escriba  la  letra  e,  que  aparecera  solamente  en  la  linea  inferior. 

El  cursor  ordinario  se  ha  movido,  pero  el  de  copia  se  ha  quedado  donde  estaba.  Pulse 
ahora  [COPIA]  hasta  completar  la  copia  de  la  linea  10.  Pulse  [RETURN]  para  transfe- 
rs esta  versi6n  de  la  linea  10  a  la  memoria.  El  cursor  de  copia  desaparece  y  el  cursor 
ordinario  queda  por  debajo  de  la  nueva  linea  10. 
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Para  corregir  el  otro  error,  mantenga  pulsada  la  tecla  [MAYS]  y  lleve  el  cursor  de  copia 
con  la  tecla  (T|  hasta  el  principio  de  la  linea  30.  Pulse  [COPIA]  hasta  que  el  cursor  de 
copia  quede  sobre  las  comillas  que  siguen  a  la  coma.  Pulse  la  barra  espaciadora  una 
vez,  con  lo  que  se  inserta  un  espacio  en  la  linea  nueva.  Pulse  [COPIA]  y  no  la  suelte 
hasta  que  haya  terminado  de  copiar  el  resto  de  la  linea  30;  pulse  entonces  [RETURN]. 

Compruebe  que  el  programa  ha  quedado  correctamente  almacenado  en  la  memoria 
escribiendo: 

list  [RETURN] 

Nota.  Para  llevar  el  cursor  (durante  el  proceso  de  edition)  al  principio  o  al  final  de  una 
linea,  pulse  la  tecla  0  o  la  0  una  vez  manteniendo  pulsada  al  mismo  tiempo  la  tecla 
[CONTROL]. 

Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC]. 


IF 

Las  palabras  clave  IF  (si)  y  THEN  (entonces)  se  combinan  para  hacer  que  el  ordenador 
realice  una  determinada  accion  en  funci6n  del  resultado  de  una  comprobacion  especifi- 
cada.  Por  ejemplo,  en  la  instruction 

i-f  1  +  1=2  then  print  "correcto"  [RETURN] 

el  ordenador  comprueba  si  es  cierto  que  1  +  1=2  y  obra  en  consecuencia. 

La  palabra  clave  ELSE  (si  no)  da  un  segundo  curso  de  accion  para  el  caso  de  que  la 
comprobaci6n  de  como  resultado  'falso'  (o  sea,  que  la  condition  no  se  cumpla).  Por 
ejemplo, 

i-f  1  +  1=0  then  print  "correcto''  else  print  "-falso" 
[RETURN] 

Vamos  a  ampliar  nuestro  programa  anterior  con  la  instrucci6n  IF  ...  THEN.  Escriba 
lo  siguiente: 

5   els  [RETURN] 

10  input  "como  te  llamas" 5  a*  [RETURN] 

20  input  "cuantos  aWos  t ienes" ; edad  [RETURN] 

30  i-f  edad  <  13  then  60  [RETURN] 

40  i-f  edad  <  20  then  70  [RETURN] 

50  i-f  edad  >  19  then  80  [RETURN] 

60  print  "Bueno,  ";a*;",  todavia  no  eres  un 

adolescente  a  los" ; edad J "aWos" : end  [RETURN] 
70  print  "Bueno,  ";a*5",  a  tus" ; edad ; "aWos  eres 
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un  adolescente":end  [RETURN] 
80  print  "Que  le  vamos  a  hacer,  ";a*;",  ya  no  eres 
un  adolescente  a  tus" 5 edad ; "affos"  [RETURN] 

(Observe  que  hemos  introducido  dos  simbolos  nuevos:  <,  que  significa  'menor  que' 
y  esta  junto  a  la  tecla  de  la  M,  y  >,  que  significa  'mayor  que'  y  esta  junto  a  la  tecla 
de  < .)  Para  comprobar  que  el  programa  ha  quedado  correctamente  introducido  en  la 
memoria  escriba 

list  [RETURN] 

y  a  continuation 

run  [RETURN] 

Responda  a  las  preguntas  que  le  haga  el  ordenador  y  vea  que  ocurre. 

En  este  ejemplo  puede  observar  el  efecto  de  la  instruction  IF  . . .  THEN.  Tambien  he- 
mos introducido  una  palabra  clave  nueva:  END  (fin);  su  efecto  es  concluir  la  ejecuci6n 
del  programa.  Si  no  estuviera  END  en  la  linea  60,  el  programa  continuaria  en  la  linea 
70.  Por  lo  mismo,  si  no  hubieramos  puesto  END  en  la  linea  70,  el  programa  no  termi- 
naria  en  ella,  sino  que  ejecutaria  tambien  la  80.  El  signo  de  dos  puntos  (:)  que  precede 
a  la  palabra  END  separa  esta  palabra  de  la  instrucci6n  anterior.  Este  signo  se  puede 
utilizar  para  separar  instrucciones  cuando  interese  poner  varias  en  una  misma  linea  de 
programa.  Tambien  hemos  incluido  la  linea  5,  en  la  que  borramos  la  pantalla.  En  lo 
sucesivo  seguiremos  haciendolo,  para  obtener  programas  mas  'elegantes'  y  evitar 
confusiones. 

Reiniciaiicc  la  maquina  pulsando  las  teclas  [CONTROL]  [MAYS]  [ESC]. 

FOR  . . .  NEXT 

Estas  palabras  clave  se  utilizan  cuando  se  desea  que  una  parte  del  programa  se  repita 
cierto  mimero  de  veces.  Las  instrucciones  que  deban  repetirse  son  las  que  se  incluyen 
dentro  del  bucle  FOR  ...  NEXT  (para  . . .  siguiente). 

Escriba  lo  siguiente: 

5  els  [RETURN] 

10  -for  a=l  to  10  [RETURN] 

20  print  "operacion  numero:";a  [RETURN] 

30  next  a  [RETURN] 

run  [RETURN] 

Como  puede  ver,  la  action  de  la  linea  20  ha  sido  realizada  10  veces,  tal  como  exige  la 
instruction  FOR  de  la  linea  10.  Observe  tambien  como  se  ha  ido  incrementando  de  1 
en  1  la  variable  a. 
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La  palabra  clave  STEP  (paso)  se  puede  incluir  en  la  instruction  FOR  ...  NEXT  para 
especificar  la  forma  en  que  debe  incrementarse  o  decrementarse  la  variable  de  control 
del  bucle.  Por  ejemplo,  modifique  la  linea  10  y  ejecute  el  programa: 

10  -for  a=10  to  50  step  5  [RETURN] 

El  paso  tambien  puede  ser  negative  Por  ejemplo: 

10  -For  a=100  to  0  step  -10  [RETURN] 
run  [RETURN] 


REM 

REM  es  abreviatura  de  REMark  (observaci6n,  comentario).  Esta  instruction  indica  al 
ordenador  que  debe  ignorar  todo  lo  que  haya  despues  de  ella  en  la  linea  de  programa. 
Sirve,  pues,  para  hacer  anotaciones  al  programa;  por  ejemplo,  el  titulo,  el  significado 
de  una  variable,  etc.: 

10  REM  Fulminar-  los  invasores  [RETURN] 

20  S=5:REM  numero  de  supervi vientes  [RETURN] 

El  signo  de  comilla  '  (que  se  obtiene  de  la  tecla  del  7  con  [SHIFT])  es  a  su  vez  abreviatu- 
ra de  :REM.  Por  ejemplo, 

10  'Fulminar  los  invasores  [RETURN] 

20  S=5  'numero  de  supervi vientes  [RETURN] 


GOSUB 

Si  en  un  programa  hay  un  grupo  de  instrucciones  que  deban  ser  ejecutadas  varias  veces, 
no  es  necesario  escribirlas  reiteradamente  cada  vez  que  el  programa  las  necesite.  Lo  que 
se  hace  es  ponerlas  en  una  'subrutina',  la  cual  puede  ser  invocada  siempre  que  se  desee 
mediante  la  instruction  GOSUB  (ir  a  subrutina)  seguida  del  numero  de  la  linea  donde 
empieza  la  subrutina.  El  final  de  la  subrutina  se  sefiala  con  la  instruction  RETURN 
(retorno).  Cuando  el  programa  llega  a  RETURN,  la  ejecucion  salta  a  la  instruction  si- 
guiente  al  GOSUB  que  invoco  la  subrutina. 

(Los  dos  programas  siguientes  no  hacen  mas  que  escribir  la  letra  de  una  cancion  popu- 
lar en  la  pantalla,  y  por  lo  tanto  no  es  necesario  que  se  tome  la  molestia  de  introducirlos 
en  el  ordenador.  Los  hemos  incluido  aqui  solamente  para  demostrar  c6mo  se  pueden 
utilizar  las  subrutinas  para  realizar  tareas  repetidas.) 
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En  el  siguiente  programa: 

10  MODE  2  [RETURN] 

20  PRINT  "Dicen  que  no  la  quieres  y  la  regalas" 

[RETURN] 
30  PRINT  "Peritas  de  Don  Guindo  y  uvas  tempranas" 

[RETURN] 
40  PRINT  "Al  tribulete"  [RETURN] 

50  PRINT  "Que  no  quiere  bailar  con  usted"  [RETURN 
60  PRINT  "Dejala,  dejala  sola"  [RETURN] 
70  PRINT  [RETURN] 
80  PRINT  "Es  tu  cara  Id  mismo  que  luna  blanca" 

[RETURN] 
90  PRINT  "Y  tus  ojos  luceros  que  la  acompaftan" 

[RETURN] 
100  PRINT  "Al  tribulete"  [RETURN] 

110  PRINT  "Que  no  quiere  bailar  con  usted"  [RETURN] 
120  PRINT  "Dejala,  dejala  sola"  [RETURN] 
130  PRINT  [RETURN] 
140  PRINT  "Tengo  yo  comparado,  ni?ra,  tu  rostro" 

[RETURN] 
150  PRINT  "Con  la  luna  de  enero  y  el  sol  de  agosto" 

[RETURN] 
180  PRINT  "Al  tribulete"  [ENTER] 

190  PRINT  "Que  no  quiere  bailar  con  usted"  [RETURN] 
200  PRINT  "Dejala,  dejala  sola"  [RETURN] 
210  PRINT  [RETURN] 
run  [RETURN] 

puede  observar  que  hemos  repetido  varias  instrucciones.  Por  ejemplo,  la  linea  40  (prin- 
cipio  del  estribillo)  esta  repetida  en  la  100  y  en  la  180.  Pongamos  todo  el  estribillo  en 
una  subrutina,  con  RETURN  al  final;  entonces  podremos  'llamarlo'  con  la  instrucci6n 
GOSUB  180  cada  vez  que  lo  necesitemos.  El  programa  queda  de  la  siguiente  forma: 

10  MODE  2  [RETURN] 

20  PRINT  "Dicen  que  no  la  quieres  y  la  regalas" 

[RETURN] 
30  PRINT  "Peritas  de  Don  Guindo  y  uvas  tempranas" 

[RETURN] 
40  GOSUB  180  [RETURN] 
80  PRINT  "Es  tu  cara  lo  mismo  que  luna  blanca" 

[RETURN] 
90  PRINT  "Y  tus  ojos  luceros  que  la  acompaffan" 

[RETURN] 
100  GOSUB  180  [RETURN] 
140  PRINT  "Tengo  yo  comparado,  niWa,  tu  rostro" 
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[RETURN] 

150  PRINT  "Con  la  luna  de  enero  y  el  sol  de  agosto" 

[RETURN] 
170  END  [RETURN] 

180  PRINT  "Al  tribulete"  [RETURN] 

190  PRINT  "Que  no  quiere  bailar  con  usted"  [RETURN] 
200  PRINT  "Dejala,  dejala  sola"  [RETURN] 
210  PRINT  [RETURN] 
220  RETURN  [RETURN] 
run  [RETURN] 

El  ahorro  de  trabajo  es  evidente.  El  correcto  diseiio  de  subrutinas  es  una  faceta  esencial 
de  la  informatica.  Con  ellas  se  puede  escribir  programas  'estructurados';  son  la  base 
para  la  adquisici6n  de  buenos  habitos  de  programaci6n. 

Cuando  escriba  subrutinas,  tenga  en  cuenta  que  no  esta  obligado  a  saltar  siempre  a  su 
primera  linea.  Por  ejemplo,  si  hay  una  rutina  en  las  lineas  500  a  800,  podria  interesar 
llamarla  con  GOSUB  500,  con  GOSUB  640  o  con  GOSUB  790,  segiin  las  funciones 
de  la  subrutina  que  se  desee  ejecutar. 

Observe  que  en  el  programa  anterior  hemos  incluido  la  instruction  END  en  la  linea  170 
para  aislar  la  subrutina  del  resto  del  programa.  De  no  haberlo  hecho,  el  programa  pasa- 
ria  de  la  linea  160  a  la  180. 


Aritmetica  sencilla 

El  ordenador  se  puede  utilizar  como  calculadora. 

Para  aprender  como  hacerlo,  pruebe  los  siguientes  ejemplos.  En  esta  section  utilizamos 
el  signo  de  interrogaci6n  ?  como  abreviatura  de  print.  El  ordenador  escribe  la  respues- 
ta  en  cuanto  se  pulsa  [RETURN]. 


Suma 

Escriba: 


?3+3  [RETURN] 
6 

(No  se  teclea  el  signo  =). 
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Escriba: 


?8  +  4    [RETURN] 

12 


Resta 

(no  confundir  el  signo  menos  '  -  '  con  el  de  subrayado  '_')• 

Escriba: 

?4-3    [RETURN] 
1 


Escriba: 


?8-4    [RETURN] 
4 


Multiplication 

(el  signo  de  multiplicacidn  es  el  asterisco  *). 
Escriba: 


?3*3    [RETURN] 

9 

Escriba: 

?8*4    [RETURN] 
32 


Division 

(el  signo  de  dividir  es  la  barra  inclinada  hacia  la  derecha,  /). 
Escriba: 

?3/3  [RETURN] 
1 
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Escriba: 


?8/4    [RETURN] 

2 


Division  entera 


(es  la  division  en  la  que  se  ignora  el  resto;  su  signo  es  la  barra  inclinada  hacia  la  izquier- 
da  \). 


Escriba: 


?10\6    [RETURN!! 
1 


Escriba: 


?20\3  [RETURN] 
6 


Modulo 

(la  funcion  MOD  da  el  resto  de  la  division  entera). 
Escriba: 

?10    MOD    4    [RETURN] 

2 

Escriba: 

?9  MOD  3  [RETURN] 

0 


Raiz  cuadrada 

Para  hallar  la  raiz  cuadrada  de  un  numero  se  utiliza  la  funcion  sqr{  ).  El  niimero  del 
que  se  va  a  extraer  la  raiz  (esto  es,  el  radicando)  se  pone  entre  los  parentesis. 

Escriba: 

?sqr(16)     [RETURN] 
4 


(esto  significa  V16) 
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Escriba: 


?sqr(100)     [RETURN] 
10 


Potenciacion 

(en  los  ordenadores  el  signo  de  'elevar  a  una  potencia'  es  la  flecha  hacia  arriba,  que 
en  el  AMSTRAD  se  obtiene  de  la  tecla  de  Ft  sin  [MAYS]). 

La  potenciacion  es  la  operation  de  elevar  un  numero  a  una  potencia;  es  decir,  multipli- 
carlo  por  si  mismo  tantas  veces  como  indica  el  exponente.  Por  ejemplo,  3  al  cuadrado 
(32),  3  al  cubo  (33),  3  a  la  cuarta  (34),  etc. 

Escriba: 

?3t3  [RETURN] 
27 

(esto  significa  33). 
Escriba: 

?8f4  [RETURN] 

(esto  significa  84). 


Raiz  ciibica 

Extraer  la  raiz  ciibica  de  un  numero  es  lo  mismo  que  elevarlo  a  la  potencia  %. 
Asi,  para  hallar  la  raiz  ciibica  de  27  (v27)  escriba: 

?27td/3)     [RETURN] 

3 

Para  hallar  la  raiz  ciibica  de  125  escriba: 

?125t(l/3)  [RETURN] 

5 


Operaciones  combinadas  (+,  -,  *,  /) 

El  ordenador  entiende  correctamente  las  operaciones  combinadas,  pero  es  necesario  sa- 
ber con  que  orden  de  prioridad  las  realiza. 
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La  primera  prioridad  es  para  la  multiplication  y  la  division;  la  segunda,  para  la  suma 
y  la  resta.  Este  orden  de  prioridad  es  valido  solamente  para  los  calculos  en  los  que  no 
intervienen  mas  que  estas  operaciones. 

Si  la  operation  fuera: 

3  +  7-2*7/4 

se  podrfa  pensar  que  el  ordenador  la  realizaria  de  la  forma: 

3+7-2  *7/4 
=  8  *7/4 
=  56/4 
=  14 

Sin  embargo,  el  proceso  de  cdlculo  es  como  sigue: 

3  +  7-2*7/4 
=  3  +  7-14/4 
=  3  +  7-3.5 
=  10-3.5 
=6.5 

Compruebelo  escribiendo 

?3+7-2*7/4  [RETURN] 
6.5 

Para  alterar  este  orden  se  pueden  incluir  parentesis  segiin  convenga.  El  ordenador  reali- 
za  las  operaciones  internas  a  los  parentesis  antes  que  las  externas.  Compruebelo  escri- 
biendo lo  siguiente: 

?<3+7-2)*7/4    [RETURN] 
14 

El  orden  completo  de  prioridad  de  las  operaciones  matematicas  es  el  siguiente: 

t  Potentiation 

MOD  M6dulo 

—  Cambio  de  signo 

*  y  /  Multiplication  y  division 

\  Division  entera 

+  y  -  Suma  y  resta 
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Mas  exponentes 

Cuando  en  los  calculos  van  a  intervenir  numeros  muy  grandes  o  muy  pequenos,  es  con- 
veniente  a  veces  utilizar  notacion  cientifica.  La  letra  E  (mayuscula  o  minuscula)  indica 
que  el  numero  que  esta  a  su  derecha  es  una  potencia  de  10. 

Por  ejemplo,  300  es  lo  mismo  que  3  x  102.  En  notacion  cientifica  escribiriamos  3E2. 
Analogamente,  0.03  es  igual  a  3  x  10  "2;  en  notacion  cientifica,  3E-2.  Pruebe  los  si- 
guientes  ejemplos. 

Puede  escribir 

730*10    C RETURN] 
300 


o  bien 


?3E1*1E1  CRETURN3 
300 

73000*1000  CRETURN3   ...  o  bien  ...   ?3E3*1E3  CRETURN3 
3000000 

73000*0.001  CRETURN3   ...  o  bien  ...   ?3E3*lE-3  [RETURN] 

3 
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Parte  7:  Grabelo  en  disco  . . . 

Ahora  que  ha  ejercitado  su  habilidad  como  mecan6grafo  escribiendo  unas  cuantas  ins- 
trucciones,  seguramente  querra  saber  como  grabar  en  disco  un  programa  almacenado 
en  la  memoria  del  ordenador,  para  luego  cargarlo  del  disco  al  ordenador. 

Aunque  usted  tenga  experiencia  en  la  grabaci6n  y  carga  de  programas  en  cinta,  hay 
algunas  peculiaridades  del  sistema  de  grabacion  en  disco  que  es  necesario  tener  en 
cuenta. 

Hay  dos  diferencias  fundamentales  entre  los  discos  y  las  cintas.  La  primera  es  que,  a 
diferencia  de  lo  que  ocurre  con  la  cintas,  para  grabar  en  un  disco  no  basta  con  sacarlo 
de  la  caja  e  introducirlo  en  la  unidad.  Los  discos  nuevos  tienen  que  ser  'formateados' 
o  'inicializados';  enseguida  veremos  como  hacerlo. 

La  otra  diferencia  tiene  que  ver  con  los  nombres  que  se  puede  dar  a  los  ficheros.  En 
el  sistema  de  grabaci6n  en  cinta,  los  nombres  de  los  ficheros  practicamente  no  siguen 
ninguna  regla,  salvo  la  de  la  longitud;  incluso  se  pueden  grabar  ficheros  sin  nombre. 
No  ocurre  asi  con  el  sistema  de  grabacion  en  disco,  en  el  que  los  nombres  de  los  ficheros 
deben  atenerse  a  las  normas  de  CP/M,  como  veremos  mas  adelante. 

Initialization  de  discos 

Antes  de  poder  escribir  datos  en  un  disco  virgen  es  necesario  inicializarlo  o  formatear- 
lo.  Esta  operation  consiste  en  preparar  una  especie  de  estanteria  en  el  disco;  los  estantes 
son  los  lugares  en  los  que  mas  tarde  se  va  a  almacenar  la  information. 

Al  inicializar  un  disco,  este  queda  dividido  en  360  zonas: 


Pista  39 


Caja  de  proteccion 


Sector 


Pista  0 
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Radialmente  el  disco  se  divide  en  40  pistas  circulares,  desde  la  numero  0,  que  es  la  mas 
externa,  hasta  la  39.  Cada  pista  se  divide  en  9  sectores. 

Cada  sector  puede  almacenar  512  bytes;  por  lo  tanto,  la  capacidad  total  de  cada  cara 
del  disco  es  de  180K. 

Primeros  pasos  en  la  utilization  de  los  discos 
maestros  de  CP/M 

Antes  de  poder  grabar  programas  en  un  disco  virgen  es  necesario  inicializarlo,  y  para 
ello  se  requiere  la  cara  1  de  los  discos  maestros  de  CP/M  (suministrados  con  el 
ordenador). 

Encienda  el  equipo  e  inserte  la  cara  1  de  los  discos  de  CP/M  en  la  unidad.  Si  su  sistema 
dispone  de  dos  unidades  de  disco,  utilice  la  incorporada  en  el  ordenador  (unidad  A). 

Escriba  lo  siguiente: 

Icpm  [RETURN] 

(El  simbolo  !  se  obtiene  de  la  tecla  @  con  [MAYS].) 

Al  cabo  de  unos  segundos  aparecera  en  la  pantalla  el  siguiente  mensaje: 

CP/M  Plus    Amstrad  Consumer  Electronics  pic 

Esto  es  un  mensaje  de  saludo  que  indica  que  el  ordenador  esta  siendo  controlado  por 
sistema  operativo  CP/M. 

Los  caracteres  A>  constituyen  un  inductor,  analogo  al  Ready  de  BASIC,  que  avisa 
al  usuario  de  que  el  ordenador  esta  a  la  espera  de  sus  instrucciones. 

Una  vez  cargado  CP/M,  ya  no  se  pueden  teclear  instrucciones  de  BASIC,  pues  el  orde- 
nador no  las  entenderia. 

Por  ejemplo,  si  escribimos 

els    IRETURN3 
el  ordenador  repite  lo  tecleado  junto  con  un  signo  de  interrogation: 

CLS? 
lo  que  indica  que  no  ha  entendido  la  instruction. 
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Par  dar  un  breve  repaso  a  algunas  ordenes  de  CP/M,  escriba: 
dir    t RETURN ] 

En  la  pantalla  aparece  una  lista  del  contenido  del  disco,  incluidas  algunas  ordenes  tran- 
sitorias.  Una  de  ellas  es  DISCKIT3.  Escriba: 

disckit3       [RETURN] 

Al  cabo  de  unos  instantes  vera  aparecer  en  la  pantalla  el  mensaje  de  presentation  de 
DISCKIT3,  seguido  de: 

One  drive  -found 

Esto  confirma  que  estamos  ejecutando  el  programa  de  ayuda  DISC  KIT  y  que  el  orde- 
nador  solo  ha  detectado  una  unidad  de  disco  (la  incorporada  en  la  maquina). 

En  cambio,  si  esta  conectada  la  segunda  unidad  de  disco,  el  mensaje  sera: 

Two   drives   -found 
En  la  parte  inferior  de  la  pantalla  se  puede  ver  el  siguiente  menu: 


Copy 

Format 

Ver  i-f  y 

Exit    -from   program 


7 

4 

1 

0 

Copiar 

Inicializar 

Verificar 

Fin  del  programa 


Es  el  menu  principal  del  programa  DISCKIT3.  Los  niimeros  recuadrados  hacen  refe- 
renda a  las  teclas  de  funci6n  del  teclado  numerico  (marcadas  con  fO,  fl,  f4  y  f7).  Pul- 
sando  una  de  estas  teclas  se  elige  la  opci6n  deseada. 

Observese  que  la  opci6n  0  de  este  menu  hace  que  se  abandone  el  programa  DISCKIT3 
y  se  vuelva  al  modo  directo  de  consola  de  CP/M  (inductor  A>). 

Como  lo  que  queremos  hacer  ahora  es  inicializar  un  disco,  pulse  la  tecla  de  funcion 
mimero  4  (f4). 


PRECAUCION 

AL  INICIALIZAR  UN  DISCO  SE  BORRA  SU  CONTENIDO  ANTERIOR. 
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El  programa  ofrece  un  nuevo  menu  con  las  diferentes  opciones  de  formato: 


System  -format 
Data  -format 
Vendor  -format 
Exit  menu 


9 
6 

3 


Formato  de  sistema 
Formato  de  datos 
Formato  comercial 
Vuelta  al  menu 


Pulsando  una  de  las  teclas  de  funcion  (f3,  f6  o  f9)  se  selecciona  el  formato  deseado. 
Mas  adelante  explicaremos  las  diferencias  entre  los  di versos  formatos.  Por  ahora,  elija 
el  formato  de  datos  pulsando  la  tecla  de  funcion  numero  6  (f6). 

Observese  que  al  pulsar  la  tecla  .  (que  esta  debajo  de  f3,  f6  y  f9)  se  sale  de  la  option 
de  inicializacion  y  se  vuelve  al  menu  principal  del  programa  DISCKIT3. 

Despues  de  pulsar  la  tecla  de  funcion  numero  6  (y  suponiendo  que  no  tenga  conectada 
la  segunda  unidad  de  disco)  podra  ver  en  la  pantalla  lo  siguiente: 


Format  as  Data 

Any  other  key  to  exit  menu 


Inicializar  con 
formato  de  datos 

Cualquier  otra  tecla 
para  volver  al  menu 


En  este  momento  debe  extraer  el  disco  de  CP/M  e  insertar  el  disco  nuevo,  con  la  cara 
que  desee  inicializar  hacia  arriba. 

Pulse  ahora  la  tecla  Y  (de  yes,  "si"),  lo  que  equivale  a  decide  al  ordenador:  "de  acuer- 
do,  inicializa  el  disco". 

El  proceso  de  inicializacion  comienza  con  la  pista  0  y  termina  con  la  39;  en  cada  mo- 
mento, el  numero  de  la  pista  que  esta  siendo  inicializada  aparece  en  el  extremo  superior 
izquierdo  de  la  pantalla. 

El  sistema  no  permite  inicializar  un  disco  que  tenga  abierto  el  orificio  de  protection 
contra  escritura.  Si  lo  intenta,  el  ordenador  emite  el  mensaje: 


Disc  wri te-protected 
Insert  disc  to  -format 
R-etry  or  C-ancel 


El  disco  esta  protegido  contra  escritura 
Insertar  disco  a  inicializar 
R-eintentar  o  C-ancelar 
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Lo  que  se  debe  hacer  en  este  caso  es  pulsar  C  para  cancelar  la  operaci6n,  extraer  el 
disco  e  insertar  el  disco  que  si  se  quiere  inicializar,  con  el  orificio  de  proteccion 
obturado. 

Es  muy  importante  no  cerrar  los  orificios  de  proteccion  de  los  discos  que  contengan 
programas  valiosos.  NO  CERRAR  NUNCA  los  orificios  de  proteccion  de  los  discos 
maestros  de  CP/M. 

Cuando  termina  la  inicializacion,  el  ordenador  le  pide  que  extraiga  el  disco  recien  ini- 
cializado  y  que  pulse  cualquier  tecla  para  continuar. 

Una  vez  hecho  esto,  puede  inicializar  otro  disco  insertandolo  en  la  unidad  y  pulsando 
de  nuevo  la  tecla  Y.  Este  proceso  se  puede  repetir  tantas  veces  como  discos  tenga  que 
inicializar  con  este  formato  concrete 

Cuando  no  haya  mas  discos  que  inicializar,  pulse  cualquier  tecla  (distinta  de  la  Y)  para 
volver  al  menu. 

Mas  adelante  explicaremos  las  opciones  Copy  y  Verify.  Por  ahora  nos  basta  con  haber 
aprendido  a  inicializar  discos  con  CP/M.  Reinicialice  la  maquina  con  [CONTROL] 
[MAYS]  [ESC]. 

Guarde  siempre  en  lugar  seguro  los  discos  maestros  de  CP/M,  que  son,  literalmente, 
la  Have  del  sistema.  En  un  capitulo  posterior  explicaremos  como  hacer  'copias  de  traba- 
jo'  de  los  discos  de  CP/M,  de  forma  que  pueda  guardar  los  originales  a  salvo  de  toda 
posibilidad  de  accidente. 


Inicializacion  en  un  sistema  de  2  unidades  de 
disco 


Siga  las  instrucciones  anteriores:  pulse  f4  en  el  menu  principal  de  DISCKIT3  para  elegir 
la  opci6n  Format  (inicializaci6n)  y  luego  pulse  la  tecla  f6  para  elegir  Data  format  (for- 
mato de  datos). 

El  ordenador  le  muestra  un  tercer  menu,  en  el  que  se  puede  elegir  la  unidad  de  disco 
que  se  desee  utilizar: 


Format  A: 
Format  B: 
Exit  menu 


8 

5 

2 

Inicializar  en  A: 
Inicializar  en  B: 
Vuelta  al  menu 
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Para  no  tener  que  extraer  el  disco  de  CP/M  (cara  1)  de  la  unidad  A,  se  puede  elegir, 
pulsando  la  tecla  f5,  la  opcion  Format  B:.  Ponga  en  la  unidad  B  el  disco  que  desee 
inicializar. 

Despues  de  elegida  esta  opcion,  puede  pulsar  Y  para  permitir  que  continue  el  proceso 
de  inicializacion,  o  bien  cualquier  otra  tecla  para  volver  al  menu  principal  de  DISCKIT3. 

Si  elige  la  opci6n  Format  A:  (tecla  f8),  NO  OLVIDE  extraer  de  la  unidad  A  el  disco 
de  CP/M.  Inserte  luego  en  ella  el  disco  que  desee  inicializar. 

NO  SE  EXPONGA  NUNCA  AL  RIESGO  DE  BORRAR 
LOS  DISCOS  MAESTROS  DE  CP/M 

Ahora  que  ya  tenemos  uno  o  dos  discos  preparados,  vamos  a  empezar  a  transferir  pro- 
gramas  de  BASIC  del  ordenador  al  disco  y  viceversa. 


Grabacion  de  un  programa  en  disco 

Cuando  se  tiene  un  programa  en  la  memoria  del  ordenador,  se  lo  puede  grabar  en  disco 
mediante  la  orden 

save  "nombre-fi"  [RETURN] 

Observe  que  es  indispensable  dar  un  nombre  al  programa. 

El  nombre  de  un  fichero  grabado  en  disco  consta  de  dos  partes  (campos).  La  primera 
es  obligatoria  y  puede  contener  hasta  8caracteres.  Se  pueden  utilizar  letras  o  numeros, 
pero  no  espacios  ni  signos  de  puntuacion.  Este  primer  campo  suele  contener  el  nombre 
del  programa. 

El  segundo  campo  es  opcional.  Puede  contener  hasta  3  caracteres  que  no  sean  ni  espa- 
cios ni  signos  de  puntuacion.  Los  dos  campos  se  separan  por  un  punto  (.). 

Si  el  usuario  no  especifica  el  segundo  campo,  el  sistema  le  asigna  automaticamente  un 
distintivo:  .BAS  para  ficheros  de  BASIC  o  .BIN  para  ficheros  binarios  (en  codigo  de 
maquina). 

Para  practicar  la  grabacion  en  disco,  introduzca  un  programa  corto  en  la  memoria  del 
ordenador,  inserte  en  la  unidad  un  disco  inicializado  y  escriba  lo  siguiente: 

save  "ejemplo"  [RETURN] 

Al  cabo  de  unos  segundos  aparecera  en  la  pantalla  el  mensaje  Ready,  lo  que  indica 
que  el  programa  ha  quedado  grabado  en  el  disco.  (De  no  ser  asi,  observe  los  mensajes 
emitidos  por  el  ordenador,  pues  puede  ocurrir  que  no  haya  insertado  el  disco  en  la  uni- 
dad correcta,  que  este  abierto  el  orificio  de  protection  o  que  se  haya  equivocado  al  te- 
clear  la  orden.) 
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Catalogo 


Una  vez  grabado  el  programa,  escriba  lo  siguiente: 

cat  [RETURN] 

En  la  pantalla  podra  ver 

Drive  A:  user  0 
EJEMPLO.EAS  IK 
168  K  -free 

o  sea,  el  nombre  del  fichero,  incluido  el  segundo  campo,  seguido  de  la  longitud  aproxi- 
mada  en  K.  En  la  ultima  linea  se  indica  tambien  el  espacio  que  queda  libre  en  el  disco. 

Carga  del  disco  a  la  memoria  del  ordenador 

Los  programas  se  pueden  cargar  y  ejecutar  con  las  ordenes  siguientes: 

load  "nombre-f  i "  [RETURN] 
run  [RETURN] 

Pero  tambien  se  los  puede  ejecutar  directamente  con  una  sola  orden: 

run  "nombre-f  i "  [RETURN] 

Los  programas  protegidos  solo  se  pueden  ejecutar  por  este  segundo  metodo. 


Ay  !B 


Si  tiene  conectada  la  segunda  unidad  de  disco,  puede  especificar  en  que  unidad  desea 
que  se  realice  cada  funcion  escribiendo 

!a  [RETURN] 
o  bien 

lb  [RETURN] 
antes  de  las  ordenes  SAVE,  CAT  o  LOAD. 
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Copia  de  programas  de  disco  a  disco 

Para  copiar  programas  de  un  disco  a  otro  utilizando  las  ordenes  que  hemos  aprendido 
en  esta  section,  basta  con  hacer  lo  siguiente:  cargar  el  programa  en  memoria  leyendolo 
del  disco  original  (fuente),  sacar  el  disco,  insertar  el  disco  nuevo  (destino)  y  grabar  en 
61  el  programa. 

En  cambio,  cuando  se  dispone  de  dos  unidades  de  disco,  es  mas  comodo  insertar  el  dis- 
co fuente  en  una  unidad,  por  ejemplo  la  B,  y  el  disco  destino  en  la  A.  Para  copiar  un 
programa  se  escribe  entonces  lo  siguiente: 

!b    [RETURN] 

load  "nombre-fi"  [RETURN J 

la  [RETURN] 

save  "norabrefi"  [RETURN] 

Hay  cuatro  formas  de  grabar  programas  con  el  CPC6128.  Una  de  ellas  es  la  ya 
conocida: 

save  "nombre-fi"  [RETURN] 

Las  otras  tres  tienen  aplicaciones  mas  expecializadas: 


Ficheros  ASCII 

save  "  nombre-f  i ",  a  [RETURN] 

El  sufijo  ,a  indica  al  ordenador  que  debe  grabar  el  programa  o  los  datos  en  forma  de 
fichero  de  texto  ASCII.  Este  metodo  de  grabacion  de  datos  es  aplicable  a  los  ficheros 
generados  por  procesadores  de  textos  y  otros  programas;  lo  explicaremos  mas  deteni- 
damente  cuando  hablemos  de  esas  aplicaciones. 


Ficheros  protegidos 

save  "nombre-f  i",p  [RETURN] 

El  sufijo  ,p  indica  al  ordenador  que  el  fichero  debe  ser  protegido.  Cuando  un  programa 
esta  asf  protegido,  no  es  posible  cargarlo  (LOAD)  para  luego  listarlo  (LIST),  ni  tampo- 
co  interrumpirlo  con  la  tecla  [ESC]  despues  de  haber  iniciado  su  ejecucion  con  RUN. 
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Los  programas  grabados  por  este  procedimiento  s61o  pueden  ser  ejecutados  directa- 
mente,  bien  con  la  orden 

run    "nombre-f  i"    [RETURN] 
bien  con 

chain  "nombre-f  i "  [RETURN] 

Siempre  que  se  prevea  la  posibilidad  de  que  mas  tarde  se  vaya  a  corregir  o  modificar 
un  programa,  se  debe  guardar  una  copia  no  protegida,  esto  es,  grabada  sin  el  sufijo  ,p. 

Ficheros  binarios 

save    "nombre-f  i "  ,b,    Uireccitm  inicial)    ,    <]ongitud  en  bytes) 
[,    <pu»to  de  entrala,  opcional)    ]    [RETURN] 

Esta  option  permite  realizar  un  volcado  directo  de  datos  desde  la  memoria  RAM  del 
ordenador  hacia  el  disco.  Ademas  del  sufijo  ,b,  es  necesario  indicar  al  ordenador  en 
que  direccidn  de  memoria  empieza  el  bloque  que  se  desea  transferir,  cual  es  la  longitud 
en  bytes  y,  en  su  caso,  en  que  direccidn  de  memoria  debe  empezar  la  ejecucion  cuando 
se  cargue  el  fichero  como  programa. 

Volcado  de  pantalla 

Este  metodo  de  grabacion  de  ficheros  binarios  permite  hacer  un  volcado  de  la  memoria 
dedicada  a  la  pantalla.  El  contenido  de  la  pantalla  se  graba  mediante  la  siguiente  orden: 

save  "volcpant",b, 49152,16334  [RETURN] 

donde  49152  es  la  direction  en  la  que  empieza  la  zona  de  memoria  dedicada  a  la  panta- 
lla y  16384  es  el  tamafio  de  esa  zona  en  bytes. 

Para  cargar  nuevamente  esos  datos  en  el  ordenador  se  escribe: 

load  "vole pant"  [RETURN] 

En  un  capitulo  posterior  de  este  manual  daremos  mas  information  sobre  la  transferen- 
cia  de  datos  de  un  disco  a  otro,  de  cinta  a  disco  y  de  disco  a  cinta. 

Finalmente,  asegurese  de  que  ha  tenido  en  cuenta  las  advertencias  que  hemos  hecho 
al  principio  del  manual,  en  la  section  titulada  'IMPORTANTE': 

NOTAS  DE  INSTALACI6N  5,  6  y  7   (pag.  4) 

NOTAS  DE  OPERACI6N  1,  2,  3,  4,  5,  6,  7  y  9   (pags.  4  y  5) 
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Parte  8:  Introduction  a  los  modos  de 
pantalla,  colores  y  graficos 

El  AMSTRAD  CPC6128  puede  funcionar  en  tres  modos  de  pantalla:  modo  0,  modo  1 
y  modo  2. 

Al  encenderlo,  el  ordenador  selecciona  automaticamente  el  modo  1. 

Para  apreciar  las  diferencias  entre  los  tres  modos,  encienda  el  ordenador  y  pulse  la  tecla 
del  1.  Mantengala  pulsada  hasta  que  se  hayan  llenado  dos  lineas  de  pantalla.  Si  cuenta 
los  unos,  observara  que  hay  40  en  cada  linea.  Esto  quiere  decir  que  en.  modo  1  la  panta- 
lla tiene  40  columnas.  Pulse  [RETURN]:  el  ordenador  respondera  con  un  mensaje  de 
Syntax  error,  pero  no  se  preocupe;  esta  es  una  forma  rapida  de  obtener  nuevamente 
el  mensaje  Ready,  que  indica  que  el  ordenador  esta  preparado  para  recibir  nuestras 
instrucciones. 

Escriba  ahora: 

mode  0  [RETURN] 

Observara  que  ahora  los  earacteres  son  mas  grandes.  Pulse  otra  vez  la  tecla  del  1  y  no 
la  suelte  hasta  que  se  hayan  llenado  dos  lineas  de  la  pantalla.  Compruebe  que  ahora 
hay  20  unos  por  linea.  Esto  significa  que  en  modo  0  la  pantalla  tiene  20  columnas.  Pul- 
se nuevamente  [RETURN]  y  luego  escriba: 

mode  2  [RETURN] 

Observe  que  ahora  los  earacteres  son  muy  pequefios.  Puede  comprobar  que  en  modo 
2  la  pantalla  tiene  80  columnas. 

Resumiendo, 

Modo  0  ->  20  columnas 
Modo  1  -» 40  columnas 
Modo  2  -»  80  columnas 

Finalmente,  vuelva  a  pulsar  [RETURN]. 


Colores 

Este  ordenador  puede  manejar  27  colores.  En  el  monitor  de  f6sforo  verde  (GT65)  apa- 
recen  como  distintas  gradaciones  de  verde.  Si  usted  adquiri6  el  sistema  con  el  monitor 
GT65,  en  cualquier  momento  puede  comprar  la  unidad  modulador/fuente  de  alimenta- 
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ci6n  MP2,  con  la  que  podra  disfrutar  de  los  colores  del  ordenador  conectandolo  a  un 
televisor  domestico. 

En  modo  0  se  puede  visualizar  simultaneamente  16  de  los  27  colores  disponibles. 
En  modo  1  se  puede  visualizar  simultaneamente  4  de  los  27  colores. 
En  modo  2  se  puede  visualizar  simultaneamente  2  de  los  27  colores. 

Se  puede  controlar  los  colores  del  borde,  del  papel  (fondo)  y  de  la  pluma  (trazo)  inde- 
pendientemente  unos  de  otros. 

Los  27  colores  disponibles  son  los  relacionados  en  la  tabla  1,  en  la  que  incluimos  tam- 
bien  los  numeros  de  referencia  para  la  instruction  INK  (tinta). 

Para  mayor  comodidad,  esta  tabla  aparece  tambien  en  la  carcasa  del  ordenador,  al  lado 
derecho. 


Niimero 

Niimero 

Numero 

de  tinta 

Color 

de  tinta 

Color 

de  tinta 

Color 

0 

Negro 

9 

Verde 

18 

Verde  intenso 

1 

Azul 

10 

Cyan 

19 

Verde  mar 

2 

Azul  intenso 

11 

Azul  celeste 

20 

Cyan  intenso 

3 

Rojo 

12 

Amarillo 

21 

Verde  lima 

4 

Magenta 

13 

Blanco 

22 

Verde  pastel 

5 

Malva 

14 

Azul  pastel 

23 

Cyan  pastel 

6 

Rojo  intenso 

15 

Anaranjado 

24 

Amarillo  intenso 

7 

Morado 

16 

Rosado 

25 

Amarillo  pastel 

8 

Magenta  intenso 

17 

Magenta  pastel 

26 

Blanco  intenso 

Tabla  1.  Numeros  de  tinta  y  colores  asociados. 


Como  hemos  dicho,  el  ordenador  se  pone  automaticamente  en  modo  1  al  encenderlo. 
Para  volver  a  modo  1  estando  en  cualquier  otro,  basta  con  escribir: 


mode    1    [RETURN] 

La  pantalla 

El  borde  (BORDER)  es  el  area  que  rodea  el  papel  (PAPER).  (Cuando  se  enciende  el 
ordenador,  el  borde  y  el  papel  son  ambos  azules.)  Los  caracteres  que  escribimos  en  la 
pantalla  solo  puede  estar  en  la  region  interior  al  borde.  El  papel  es  el  fondo  sobre  el 
que  la  pluma  (PEN)  escribe  los  caracteres. 
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I tMML 


PEN 


BORDER 
PAPER 


Vamos  a  explicar  como  se  realiza  la  selection  de  los  colores. 

Cuando  se  enciende  o  reinicializa  el  ordenador,  este  selecciona  automaticamente  el  co- 
lor niimero  1  para  el  borde.  Como  puede  comprobar  en  la  tabla  1 ,  el  color  niimero  1 
es  el  azul.  El  color  del  borde  se  puede  cambiar  mediante  la  orden  BORDER  seguida 
del  niimero  del  color  deseado.  Por  ejemplo,  escriba: 

border  13  [RETURN] 

Esto  es  facil,  pero  en  el  interior  de  la  pantalla  las  cosas  son  algo  mas  complicadas: 

Cuando  se  enciende  o  reinicializa  la  maquina,  el  niimero  de  papel  seleccionado  automa- 
ticamene  es  el  0,  y  el  de  la  pluma  es  el  1 .  Esto  no  quiere  decir  que  los  colores  correspon- 
dientes  sean  los  que  figuran  en  la  tabla  anterior  con  los  mimeros  0  y  1 . 

Lo  que  ocurre  es  que  el  0  y  el  1  son  mimeros  de  papel  y  de  pluma,  no  mimeros  de  tinta. 
Vamos  a  explicarnos.  Supongamos  que  tenemos  en  nuestra  mesa  cuatro  plumas,  nume- 
radas  del  0  al  3,  y  27  tinteros,  numerados  del  0  al  26.  Es  evidente  que  cuando  decimos 
'pluma  mimero  1 '  no  necesariamente  estamos  refiriendonos  al  color  mimero  1 .  La  plu- 
ma niimero  1  puede  estar  cargada  con  tinta  de  cualquier  color;  de  hecho,  podemos  te- 
ner  las  cuatro  plumas  cargadas  con  la  misma  tinta. 

Pues  bien,  algo  similar  ocurre  en  el  ordenador.  Con  la  instruction  PEN  (pluma)  pode- 
mos elegir  la  pluma  con  la  que  vamos  a  escribir;  la  instruction  INK  (tinta)  nos  permite 
'cargar'  esa  pluma  con  tinta  del  color  deseado. 

Recordando  que  estamos  en  modo  1  (40  columnas),  consulte  la  tabla  2  y  comprobara 
que  la  pluma  mimero  1  esta  cargada  inicialmente  con  tinta  de  color  24.  Pero  el  color 
24  es,  como  podemos  ver  en  la  tabla  1,  amarillo  intenso:  el  color  con  que  se  escriben 
los  caracteres  cuando  acabamos  de  encender  el  ordenador. 
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Niimero  de 

Color  de  tinta 

Color  de  tinta 

Color  de  tinta 

papel/pluma 

Modo  0 

Modo  1 

Modo  2 

0 

1 

1 

1 

1 

24 

24 

24 

2 

20 

20 

1 

3 

6 

6 

24 

4 

26 

1 

1 

5 

0 

24 

24 

6 

2 

20 

1 

7 

8 

6 

24 

8 

10 

1 

1 

9 

12 

24 

24 

10 

14 

20 

1 

11 

16 

6 

24 

12 

18 

1 

1 

13 

22 

24 

24 

14 

Parpadeo  1,24 

20 

1 

15 

Parpadeo  16,11 

6 

24 

Tabla  2.  Asignaci6n  initial  de  tintas  a  los  papeles  y  las  plumas. 

Las  relaciones  entre  papel,  pluma  y  tinta  no  son  fijas.  Los  valores  que  se  muestran  en 
la  tabla  2  son  los  seleccionados  automaticamente  en  el  momento  de  encender  la  maqui- 
na.  Se  los  puede  cambiar  mediante  la  instrucci6n  INK  (tinta).  Esta  instrucci6n  va  segui- 
da  de  dos  numeros  (parametros).  El  primero  es  el  niimero  de  papel  o  de  pluma  que  va- 
mos  a  cargar;  el  segundo  es  el  color  con  que  vamos  a  cargarlo.  Los  parametros  van 
separados  por  una  coma. 

Puesto  que  estamos  utilizando  la  pluma  niimero  1 ,  vamos  a  cambiar  el  color  de  tinta 
correspondiente:  la  cargaremos  con  tinta  de  color  anaranjado.  Escriba: 

ink  1,15  [RETURN] 

Los  caracteres  han  cambiado  instantaneamente  de  color. 

Tambien  vamos  a  cambiar  el  color  del  fondo  mediante  la  instruction  INK.  Sabemos 
que  el  niimero  de  papel  seleccionado  al  encender  la  maquina  es  el  0;  vamos  a  cambiar 
el  color  a  verde  (color  niimero  9)  escribiendo: 

ink  0,9  [RETURN] 

Ahora  vamos  a  cambiar  de  pluma.  Escriba: 

pen  3  [RETURN] 
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El  color  de  los  caracteres  ya  escritos  no  ha  cambiado.  Esta  instrucci6n  afecta  solamente 
a  los  que  escribamos  a  continuaci6n.  En  este  momento  estamos  utilizando  la  pluma  mi- 
mero  3.  Como  puede  comprobar  en  las  tablas  1  y  2,  la  tinta  con  que  esta  pluma  esta 
cargada  inicialmente  es  la  de  color  numero  6  (rojo  intenso).  Para  cambiarla  a  rosado 
escriba: 

ink  3,16  [RETURN] 

Recuerde  que  el  3  es  el  color  de  la  pluma  (seleccionado  con  la  anterior  instrucci6n  pen  3) 
y  que  el  16  es  el  color  de  la  tinta  con  que  la  cargamos  (rosado). 

Cambiemos  ahora  de  papel.  Cuando  lo  hagamos,  el  anterior  color  de  fondo  no  cambia- 
ra,  porque  ese  color  ha  sido  impreso  con  otro  papel.  Escriba  lo  siguiente: 

paper  2  [RETURN] 

Consultando  nuevamente  las  tablas  1  y  2,  compruebe  que  el  color  inicialmente  asigna- 
do  al  papel  numero  2  es  cyan  intenso.  Cambielo  a  negro  escribiendo: 

ink  2,0  [RETURN] 

En  este  momento,  en  la  pantalla  tenemos  caracteres  escritos  por  las  plumas  1  y  3,  sobre 
fondos  de  papel  numeros  0  y  2.  Tambi6n  se  puede  cambiar  el  color  de  la  tinta  de  una 
pluma  o  de  un  papel  que  no  esten  siendo  utilizados.  Por  ejemplo,  escriba  la  orden: 

ink  1,2  [RETURN] 

que  cambia  el  color  de  todos  los  caracteres  que  habiamos  escrito  antes  con  la  pluma 
numero  1. 

Escriba: 

els  [RETURN] 

para  borrar  la  pantalla. 

El  lector  ya  deberia  ser  capaz  de  hacer  que  el  ordenador  vuelva  a  los  colores  iniciales 
(borde  y  fondo  azul  y  caracteres  amarillos)  utilizando  las  instrucciones  BORDER, 
PAPER,  PEN  e  INK.  Intentelo.  Si  no  lo  consigue,  reinicialice  el  ordenador  con 
[CONTROU  [MAYS]  [ESC]. 


Colores  parpadeantes 


Es  posible  hacer  que  una  tinta  cambie  intermitentemente  de  color.  Para  ello  se  debe 
anadir  otro  numero  a  la  instrucci6n  INK  que  asigna  tintas  a  la  pluma  utilizada. 
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Vamos  a  hacer  que  los  caracteres  que  escribamos  alternen  entre  los  colores  bianco  in- 
tense y  rojo  intense  Reinicialice  la  maquina  con  [CONTROL]  [MAYS]  [ESC]  y  escri- 
ba  lo  siguiente: 

ink    1,26,6    [RETURN! 

En  este  caso  el  1  es  el  numero  de  la  pluma,  el  26  es  el  del  color  bianco  intenso  y  el  6 
es  el  del  segundo  color,  rojo  intenso. 

El  mismo  efecto  de  parpadeo  se  puede  dar  a  los  colores  del  fondo,  para  lo  cual  se  afiade 
un  segundo  numero  de  color  a  la  instrucci6n  INK  que  asigna  tintas  al  papel  actual.  Para 
hacer  que  el  color  del  fondo  alterne  entre  verde  y  amarillo  intenso  escriba: 

ink    0,9,24    [RETURN! 

En  este  caso  0  es  el  numero  del  papel,  9  es  el  numero  del  color  verde  y  24  es  el  numero 
d  segundo  color,  el  amarillo  intenso. 

Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC]. 

Observe  en  la  tabla  2  que  en  modo  0  hay  dos  niimeros  de  pluma  y  dos  niimeros  de  pa- 
pel, el  14  y  el  15,  que  tienen  asignadas  tintas  parpadeantes.  Es  decir,  sus  correspondien- 
tes  tintas  estan  preprogramadas  con  un  color  adicional. 

Escriba  lo  siguiente: 

mode  0  [RETURN] 
pen  15  [RETURN] 

y  vera  en  la  pantalla  la  palabra  Ready  parpadeando  entre  azul  celeste  y  rosado.  Escriba 
ahora: 

paper    14    [RETURN] 
els 

El  texto  continiia  parpadeando  como  antes,  pero  ademas  el  fondo  ha  empezado  a  alter- 
nar  entre  los  colores  amarillo  y  azul. 

Los  niimeros  de  pluma  y  de  papel  14  y  15  pueden  ser  reprogramados,  mediante  la  ade- 
cuada  instruccidn  INK,  para  que  parpadeen  con  otras  tintas  o  bien  para  asignarles  un 
color  fijo. 

Finalmente,  se  puede  hacer  parpadear  el  borde  sin  mas  que  especificar  un  segundo  nu- 
mero de  color  en  la  instruccidn  BORDER.  Escriba: 

border  6,9  [RETURN] 

El  borde  esta  parpadeando  entre  los  colores  rojo  intenso  y  verde.  Observe  que  al  borde 
se  le  puede  asignar  uno  o  dos  colores  cualesquiera  de  los  27  disponibles,  independiente- 
mente  del  modo  en  que  este  la  pantalla  (0,  1  o  2). 
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Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC]. 

Introduzca  y  ejecute  el  siguiente  programa,  que  demuestra  los  colores  disponibles. 

10  MODE  0  [RETURN] 

20  velocidad=600:  REM  establece  velocidad  del 

programa  [RETURN] 
30  FOR  b=0  TO  26  [RETURN] 
40  LOCATE  1,12  [RETURN] 
50  BORDER  b  [RETURN] 

60  PRINT  "color  del  borde:"5b  [RETURN] 
70  FOR  t=l  TO  velocidad  [RETURN] 
80  NEXT  t,b  [RETURN] 
90  CLG  [RETURN] 
100  FOR  p=0  TO  15  [RETURN] 
110  PAPER  p  [RETURN] 
120  PRINT  "papel:";p  [RETURN] 
130  FOR  n=0  TO  15  [RETURN] 
140  PEN  n  [RETURN] 
150  PRINT  "pluma:";n  [RETURN] 
160  NEXT  n  [RETURN] 

170  FOR  t=l  TO  velocidad*2  [RETURN] 
180  NEXT  t,p  [RETURN] 
190  MODE  1  [RETURN] 
200  BORDER  1  [RETURN] 
210  PAPER  0  [RETURN] 
220  PEN  1  [RETURN] 
230  INK  0, 1  [RETURN] 
240  INK  1,24  [RETURN] 
run  [RETURN] 


OBSERVACION  MUY  IMPORTANTE 

En  este  programa,  asi  como  en  otros  capitulos  y  listados  de  este  manual,  las  palabras 
clave  de  BASIC  aparecen  en  mayusculas,  pues  el  ordenador  convierte  automaticamen- 
te  minusculas  a  mayusculas  cuando  se  le  pide  que  haga  un  listado  del  programa  (con 
LIST).  En  general,  es  preferible  escribir  las  instrucciones  en  minusculas;  esto  ayudara 
mas  tarde  a  detectar  errores,  ya  que  las  palabras  clave  de  BASIC  que  contengan  algiin 
error  no  seran  convertidas  a  mayusculas. 

En  lo  que  resta  de  este  'Curso  de  introducci6n'  daremos  los  listados  indistintamente 
en  mayusculas  y  minusculas,  para  que  usted  se  familiarice  con  esta  caracteristica  de 
BASIC. 

Los  nombres  de  las  variables,  tales  como  x  o  a$,  no  son  convertidos  a  mayusculas  al 
listar  el  programa.  Sin  embargo,  el  ordenador  reconoce  las  variables  tanto  si  estan  en 
mayusculas  como  si  estan  en  minusculas;  de  hecho,  para  el  ordenador  x  es  la  misma 
variable  que  X. 


Curso  de  introduction  1/55 


Atencion 

A  partir  de  ahora  no  vamos  a  seguir  recordandole  que  debe  pulsar  [RETURN]  al 
terminar  de  escribir  cada  linea  de  programa  y  cada  orden  directa,  pues  suponemos 
que  usted  ya  esta  suficientemente  habituado  a  hacerlo. 


Graficos 

En  la  memoria  del  ordenador  esta  pregrabado  el  diseflo  de  cierto  numero  de  caracteres. 
Para  escribirlos  en  la  pantalla  necesitamos  la  palabra  clave: 

chr*(    ) 

Dentro  de  los  parentesis  se  pone  el  numero  del  caracter,  que  debe  estar  en  el  margen 
de  32  a  255. 

Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC]  y  escriba  lo  siguiente: 
print    chr*<250) 

No  olvide  pulsar  [RETURN].  En  la  pantalla  ha  aparecido  el  caracter  numero  250,  que 
es  la  figura  de  un  hombre  caminando  hacia  la  derecha. 

Para  ver  todos  los  caracteres  y  simbolos,  junto  con  su  numero  correspondiente,  intro- 
duzca  y  ejecute  el  siguiente  programa  (recuerde  que  debe  pulsar  [RETURN]  al  final  de 
cada  linea): 

10  -for  n=32  to  255 
20  print  n;chr*(n) 5 
30  next  n 
run 

Todos  estos  caracteres  y  niimeros  figuran  en  el  capitulo  'Para  su  referencia  . . .'. 

LOCATE 

Esta  instruction  sirve  para  colocar  el  cursor  en  un  lugar  especificado  de  la  pantalla. 
A  menos  que  se  lo  mueva  con  una  instrucci6n  LOCATE,  el  punto  de  partida  del  cursor 
es  el  extremo  superior  izquierdo  de  la  pantalla,  punto  de  coordenadas  1,1  (en  el  sistema 
de  coordenadas  x,  y,  donde  x  es  la  posici6n  horizontal  e  y  es  la  vertical).  En  modo  1 
hay  40  columnas  y  25  filas  (o  lineas).  Asi,  para  colocar  el  cursor  en  el  centro  de  la  pri- 
mera  linea,  tendremos  que  utilizar  20,1  como  coordenadas  x,  y. 
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_        Teclee  lo  siguiente  (sin  olvidar  pulsar  [RETURN]  al  final  de  cada  linea): 

—  mode    1       ...    borra  la  paittalla  y  Ueva  el  cursor  al  extreio  superior  izquierlo 

~        10  locate  20,1 
__        20  print  chr*<250> 
run 

—  Para  comprobar  que  el  caracter  esta  en  la  primera  linea,  cambiemos  el  color  del  borde: 

border   0 

El  borde  es  ahora  negro  y  podemos  ver  que  el  hombrecillo  esta  en  el  centro  de  la  linea 
superior. 

~~         En  modo  0  s61o  hay  20  columnas,  pero  las  mismas  25  lineas.  Si  ahora  escribe: 

mode  0 

run 

__         vera  que  el  hombre  se  ha  ido  al  extremo  superior  derecho  de  la  pantalla.  Esto  ha  ocurri- 
do  porque  la  coordenada  x  =  20  es  la  ultima  columna  en  modo  0.  Escriba: 

mode   2 

run 

_         Vuelva  a  modo  1  con: 

mode    1 

Ahora  pruebe  usted  con  diferentes  posiciones  en  locate  y  diferentes  numeros  en 
chr$(  ).  Por  ejemplo,  escriba: 

locate  20,12:print  chr*(240) 

—  y  vera  una  flecha  en  el  centro  de  la  pantalla.  Observe  que  en  esta  instrucci6n: 

—  20  es  la  coordenada  x  (horizontal)  (margen:  1  a  40) 
12  es  la  coordenada  y  (vertical)  (margen:  1  a  25) 

~"  240  es  el  niimero  del  caracter  (margen:  32  a  255) 
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Para  mover  el  caracter  250  de  izquierda  a  derecha  de  la  pantalla,  escriba  lo  siguiente: 


10  CLS 

20  FOR  x  =  l  TO  39 

30  LOCATE  x,20 

50  PRINT  CHR*<250) 

60  NEXT  x 

70  GOTO  10 

run 


Pulse  [ESC]  dos  veces  para  abandonar  el  programa. 

Si  queremos  borrar  el  caracter  recien  escrito  antes  de  escribir  el  siguiente,  debemos 
hacer 

50   print    "    " ; chr*<250) 


(Esta  nueva  linea  50  reemplaza  automaticamente  la  que  tenfamos  antes.)  Escriba: 
run 

FRAME 

Para  mejorar  la  ilusion  de  movimiento  del  caracter  por  la  pantalla,  ariada  al  programa 
anterior  la  siguiente  linea: 

40   -frame 


La  instruccion  FRAME  sincroniza  el  movimiento  de  objetos  por  la  pantalla  con  la  fre- 
cuencia  a  la  que  se  envian  las  imagenes  al  monitor.  La  explication  es  demasiado  tecni- 
ca,  pero  basta  con  que  recordemos  que  esta  instruccion  se  debe  utilizar  siempre  que 
queramos  mover  objetos  suavemente  por  la  pantalla. 

Este  programa  se  puede  mejorar  introduciendo  pausas  y  utilizando  un  simbolo  distinto 
para  el  retroceso. 

Escriba: 
list 
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~        y  aflada  las  siguientes  h'neas: 


70  FOR  n=l  TO  300: NEXT  n 

80  FOR  x=39  TO  1  STEP  -1 

90  LOCATE  x,20 

100  FRAME 

110  PRINT  CHR*(251) 5 "  " 

120  NEXT  x 

130  FOR  n=l  TO  300: NEXT  n 

140  GOTO  20 

run 


PLOT 

La  instruction  PLOT  es  analoga  a  LOCATE,  pero  controla  la  posici6n  del  cursor  grafi- 
co  y  utiliza  un  sistema  de  coordenadas  distinto,  en  el  que  las  distancias  se  miden  en 
pixels  (un  pixel,  o  punto  grdfico,  es  la  minima  area  de  la  pantalla  controlable 
individualmente) . 

El  cursor  grafico  es  invisible,  y  distinto  en  todos  los  aspectos  del  cursor  de  texto. 

La  pantalla  se  divide  en  640  puntos  en  horizontal  por  400  en  vertical.  Las  coordenadas 
x,  y  se  toman  con  respecto  al  extremo  inferior  izquierdo  de  la  pantalla,  que  es  el  punto 
de  coordenadas  0,0.  A  diferencia  de  lo  que  ocurria  con  LOCATE,  las  coordenadas  de 
este  sistema  no  dependen  del  modo  de  pantalla  (0,  1  o  2). 

Para  comprobarlo,  reinieialice  la  maquina  con  [CONTROL]  [MAYS]  [ESC]  y  escriba: 

plot    320,200 

Observe  el  punto  que  ha  aparecido  en  el  centro  de  la  pantalla. 
Hagamos  lo  mismo  en  modo  0: 

mode  0 

plot  320,200 

El  punto  sigue  estando  en  el  centro  de  la  pantalla,  pero  es  mas  grande.  Para  ver  el  efec- 
to  en  modo  2  escriba: 

mode  2 

plot  320,200 

Como  era  de  esperar,  el  punto  sigue  centrado,  pero  es  mucho  mas  pequeflo. 
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Dibuje  unos  cuantos  puntos  en  diversos  lugares  de  la  pantalla  y  en  modos  distintos  para 
familiarizarse  con  esta  instruction.  Cuando  haya  terminado,  escriba: 

mode    1 
para  volver  a  modo  1  y  borrar  la  pantalla. 


DRAW 

Reinicialice  la  maquina  con  [CONTROL]  [MAYS]  [ESC].  La  instrucci6n  DRAW  dibu- 
ja  una  recta  a  partir  de  la  posici6n  actual  del  cursor  grafico.  Para  verla  en  acci6n,  dibu- 
je un  rectangulo  con  el  siguiente  programa: 

5   els 

10  plot  10, 10 

20  draw  10,390 

30  draw  630,390 

40  draw  630, 10 

50  draw  10, 10 

60  goto  60 
run 

En  la  linea  10  la  instrucci6n  PLOT  coloca  el  cursor  en  el  punto  de  partida  deseado.  A 
continuation,  las  instrucciones  DRAW  van  dibujando  segmentos  de  recta:  hacia  arri- 
ba,  hacia  la  derecha,  etc. 

Pulse  [ESC]  dos  veces  para  abandonar  el  programa. 

(Observe  la  linea  60  de  este  programa.  Esta  linea  establece  un  bucle  infinito,  del  que 
solo  se  sale  deteniendo  el  programa.  Una  instrucci6n  de  este  tipo  es  util  cuando  se  quie- 
re  evitar  que  el  ordenador  exhiba  el  mensaje  Ready  al  terminar  el  programa.) 

Aflada  al  programa  las  siguientes  lineas,  las  cuales  dibujan  un  segundo  rectangulo  den- 
tro  del  anterior: 

60  plot  20,20 
70  draw  20,380 
80  draw  620,380 
90  draw  620,20 
100  draw  20,20 
110  goto  110 
run 


Pulse  [ESC]  dos  veces  para  detener  el  programa. 
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-        MOVE 


Esta  instruccidn  funciona  igual  que  PLOT  en  cuanto  a  llevar  el  cursor  grafico  a  la  posi- 
ci6n  especificada,  pero  no  dibuja  el  punto. 

Escriba: 

els 

move   639,399 

Aunque  no  podamos  verlo,  hemos  llevado  el  cursor  al  extremo  superior  derecho  de  la 
pantalla. 

Para  demostrarlo,  vamos  a  dibujar  una  recta  desde  ese  punto  hasta  el  centro  de  la  pan- 
talla. Escriba: 

draw  320,200 


Circunferencias 


Las  circunferencias  se  pueden  dibujar  punto  a  punto  o  con  trazo  continuo.  Una  forma 
de  dibujar  una  circunferencia  consiste  en  dibujar  puntos  en  las  posiciones  correctas. 
En  la  figura  siguiente  se  ilustra  como  se  calculan  las  coordenadas  x,  y  de  un  punto  p 
de  la  circunferencia.  Las  f6rmulas  son: 

x=190*cos<a) 
y=190*sin<a) 
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Dibujo  de  una  circunferencia 

En  los  programas  anteriores  hemos  referido  todos  los  dibujos  al  extremo  inferior  iz- 
quierdo  de  la  pantalla.  Si  queremos  que  nuestra  circunferencia  quede  centrada  en  la 
pantalla,  debemos  situar  su  centro  en  el  punto  de  coordenadas  320,200,  y  luego  sumar 
a  estos  valores  los  dados  por  las  formulas  anteriores. 

El  siguiente  programa  dibuja  punto  a  punto  una  circunferencia: 

new 

10  CLS 

20  DEG 

30  FOR  a=l  TO  360 

40  MOVE  320,200 

50  PLOT  320+190*COS(a) , 200+190*SIN (a) 

60  NEXT 

run 


Observe  que  hemos  dado  la  orden  NEW  antes  de  introducir  el  programa.  Esta  orden 
hace  que  el  ordenador  borre  el  programa  que  en  ese  momento  tenga  en  la  memoria  (de 
forma  similar  a  lo  que  ocurre  cuando  se  pulsa  [CONTROL]  [MAYS]  [ESC]).  Sin  em- 
bargo, la  pantalla  no  se  borra. 

El  radio  de  la  circunferencia  se  puede  reducir  poniendo  en  lugar  de  190  un  numero  me- 
nor  de  pixels. 

Para  ver  el  efecto  de  dibujar  la  circunferencia  de  otra  forma  (en  radianes),  borre  la  li- 
nea  20  escribiendo: 

20 


En  lugar  de  punto  a  punto,  podemos  dibujar  la  circunferencia  con  trazo  continuo.  Mo- 
difique  la  linea  50  para  poner  draw  en  lugar  de  plot.  La  linea  sera  entonces: 

50  draw  320+190*cos (a) , 200+190*sin (a) 

Pruebe  esta  modification  con  la  linea  20  y  sin  ella. 

Observe  que  en  la  linea  60  de  este  programa  hemos  puesto  NEXT  en  lugar  de  NEXT  a. 
En  efecto,  se  puede  omitir  el  nombre  de  la  variable,  pues  el  ordenador  se  encarga  de 
averiguar  a  que  FOR  corresponde  cada  NEXT.  No  obstante,  en  los  programas  en  los 
que  haya  muchos  bucles  FOR  . . .  NEXT,  puede  ser  conveniente  poner  los  nombres  de 
las  variables  despues  de  NEXT  para  que  el  programa  sea  mas  inteligible  cuando  se  lo 
este  corrigiendo  o  estudiando. 
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ORIGIN 

En  el  programa  anterior  utilizabamos  la  instruction  MOVE  para  establecer  el  centro 
de  la  circunferencia  y  luego  sumabamos  a  las  coordenadas  del  centro  las  coordenadas 
de  los  puntos  de  la  circunferencia.  Podemos  evitar  esas  sumas  si  redefinimos  la  posi- 
tion del  origen  de  coordenadas  con  la  instruction  ORIGIN.  El  ordenador  entendera  las 
coordenadas  que  se  le  suministren  a  continuation  como  referidas  al  nuevo  origen.  Es- 
criba  lo  siguiente: 

new 

10  els 

20  -for  a=l  to  360 

30  origin  320,200 

40  plot  190*cos(a> , 190*sin(a> 

50  next 

run 

El  siguiente  programa  dibuja  cuatro  circunferencias  mas  pequefias: 

new 

10  CLS 

20  FOR  a=l  TO  360 

30  ORIGIN  196,282 

40  PLOT  50*COS(a) , 50*SIN(a) 

50  ORIGIN  442,232 

60  PLOT  50*COS(a) ,50*SIN(a) 

70  ORIGIN  196,116 

80  PLOT  50*COS(a) ,50*SIN(a) 

90  ORIGIN  442, 116 

100  PLOT  50*COS(a) ,50*SIN(a) 

110  NEXT 

run 

Otra  forma  de  dibujar  la  circunferencia  (con  trazo  continuo)  es  la  siguiente: 

new 

10  MODE  1 

20  ORIGIN  320,200 

30  DEG 

40  MOVE  0, 190 

50  FOR  a=0  TO  360  STEP  10 

60  DRAW  190*SIN(a) , 190*COS<a) 

70  NEXT 

run 


Curso  de  introducci6n  V63 


En  este  caso  se  van  dibujando  pequeflos  segmentos  de  recta,  de  un  punto  al  siguiente 
de  la  circunferencia.  Este  metodo  es  mucho  mas  rapido  que  el  de  dibujo  punto  a  punto. 

Observe  una  vez  mas  el  efecto  de  la  instruccidn  DEG:  suprima  la  linea  30  y  ejecute  el 
programa. 


FILL 

La  instruccidn  FILL  (rellenar)  se  utiliza  para  rellenar  una  region  de  la  pantalla  que  este 
delimitada  por  graficos  o  por  los  bordes  de  la  pantalla. 

Reinicialice  la  maquina  con  [CONTROL]  [MAYS]  [ESC]  y  luego  escriba: 

new 

10  els 

20  move  20,20 

30  draw  620,20 

40  draw  310,380 

50  draw  20,20 

run 

En  la  pantalla  ha  aparecido  un  triangulo.  Lleve  el  cursor  grafico  al  centro  de  la  pantalla 
con  la  orden 

mode   320,200 

Vamos  a  utilizar  la  instrucci6n  FILL  seguida  de  un  numero  de  pluma,  por  ejemplo  el 
3,  para  rellenar  con  la  tinta  de  la  pluma  especificada  el  recinto  cerrado  en  que  se  en- 
cuentra  el  cursor.  Escriba  lo  siguiente: 

■fill    3 
Lleve  el  cursor  al  exterior  del  triangulo  con  la  orden 

move  0,0 
Observe  que  ocurre  cuando  escriba: 

■fill    2 

El  ordenador  ha  usado  la  pluma  numero  2  para  rellenar  la  zona  delimitada  por  el  dibu- 
jo y  los  bordes  de  la  pantalla. 
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Modifique  ahora  el  programa  escribiendo  la  lineas  siguientes  y  vea  que  ocurre: 

50  draw  50,50 
60  move  320,200 
70  -fill  3 
run 

La  tinta  'rezuma'  por  la  ranuras. 

Veamoslo  con  otro  ejemplo.  Rellenemos  una  circunferencia  dibujada  punto  a  punto: 

new 

10   CLS 

20   FOR    a=l    TO   360 

30    ORIGIN    320,200 

40   PLOT    190*COS(a) , 190*SIN<a) 

50    NEXT 

60    MOVE    -188,0 

70    FILL    3 

run 

Pruebe  ahora  con: 

new 

10  MODE  1 

20  ORIGIN  320,200 

30  DEG 

40  MOVE  .0,  190 

50  FOR  d=0  TO  360  STEP  10 

60  DRAW  190*SIN<d) ,190*COS<d) 

70  NEXT 

80  MOVE  -188,0 

90  FILL  3 

run 

Para  hacer  que  el  borde  del  circulo  sea  invisible,  dibujamos  la  circunferencia  con  tinta 
del  mismo  color  que  la  del  papel.  Aftada  la  siguiente  linea: 

45  GRAPHICS  PEN  2: INK  2,1 
run 

La  instrucci6n  GRAPHICS  PEN  selecciona  la  pluma  que  haya  de  ser  utilizada  para 
dibujar  graficos.  La  instrucci6n  INK  especifica  el  color  de  tinta  para  esa  pluma,  que 
en  este  caso  coincide  con  el  color  del  papel  (color  numero  1). 
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Finalmente,  introduzca  y  pruebe  el  siguiente  programa: 

new 

10  MODE  0: BORDER  13 

20  MOVE  0,200: DRAW  640,200 

30  FOR  x=80  TO  560  STEP  80 

40  MOVE  x,0:DRAW  x , 400 

50  NEXT: MOVE  -40,300 

60  FOR  c=0  TO  7 

70  MOVER  80,0: FILL  c 

80  MOVER  0,-200: FILL  c+8 

90  MOVER  0,200: NEXT 

100  60T0  100 

run 

Tambien  se  puede    cambiar  los  colores  de  las  zonas  rellenadas: 

100  SPEED  INK  30,30 

110  BORDER  RND*26,RND*26 

120  INK  RND*15,RND*26,RND*26 

130  FOR  t=l  TO  500:NEXT:GOTO  110 

run 


Otros  detalles  . . . 

En  la  section  'Dicho  graficamente',  del  capftulo  titulado  'Cuando  usted  guste  . . . ',  da- 
remos  una  explication  mas  detallada  de  los  graficos  del  CPC6128. 

Para  concluir  esta  section,  le  ofrecemos  unos  programas  de  demostracion  de  graficos 
que  incorporan  muchas  instrucciones  que  el  lector  ya  deberia  entender.  Todos  ellos  di- 
bujan  figuras  en  la  pantalla  continuamente. 

10  BORDER  0: GRAPHICS  PEN  1 

20  m=CINT(RND*2) : MODE  m 

30  i 1 =RND*26 : i  2=RND*26 

40  IF  ABS(il-i2)<10  THEN  30 

50  INK  0, il: INK  1,  i2 

60  s=RND#5+3: ORIGIN  320,-100 

70  FOR  x=-1000  TO  0  STEP  s 

80  MOVE  0,0: DRAW  x, 300: DRAW  0,600 

90  MOVE  0,0: DRAW  -x, 300: DRAW  0,600 

100  NEXT: FOR  t=l  TO  2000: NEXT: GOTO  20 

run 
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10  MODE  l: BORDER  0: PAPER  0 

20  GRAPHICS  PEN  2: INK  0,0:i=14 

30  EVERY  2200  GOSUB  150 

40  indicador=0:CLG 

50    INK    2,  14  +  RNDM2 

60    b%=RND*5+l 

70    c%=RND*5+l 

80  ORIGIN  320,200 

90  FOR  a=0  TO  1000  STEP  PI/30 

100  x%=100*COS(a) 

110  MOVE  x%,y% 

120  DRAW  200*COS(a/b%) , 200*SIN <a/c%) 

130  IF  indicador=l  THEN  40 

140  NEXT 

150  indicador=l:RETURN 

run 


10  MODE  l: BORDER  0:DEG 

20  PRINT  "Por  -favor,  espere" 

30  FOR   n=l  to  3 

40  INK  0,0:INK  1,26:INK  2,6:INK  3,18 

50  IF  n=l  THEN  sa=120 

60  IF  n=2  THEN  sa=135 

70  IF  n=3  THEN  sa=150 

80  IF  n=l  THEN  ORIGIN  0,-50,0,640,0,400  ELSE 

ORIGIN  0,0,0,640,0,400 
90  DIM  cx<5) ,cy(5) ,r<5) , lc<5) 
100  DIM  np(5) 

110  DIM  px%(5,81) ,py%(5,81) 
120  st=l : ex ( 1 ) =320: cy  <  1 ) =200: r ( 1 ) =80 
130  FOR  st=l  TO  4 
140  r <st+l)=r(st) /2 
150  NEXT  st 
160  FOR  st=l  TO  5 
170  lc(st)=0:np<st)=0 
180  np(st)=np(st)+l 

190  px%(st,np(st) )=r(st)*SIN<lc(st) ) 
200  py%(st,np(st) ) =r (st ) *COS ( lc (st ) ) 
210  lc(st)=lc (st)+360/r(st) 
220  IF  lc(st)<360  THEN  180 
230  px%(st,np(st)+l)=px%(st, 1) 
240  py%(st,np(st)+l)=py%(st, 1) 
250  NEXT  st 

260  CLS:cj=REMAIN(l) : c j =REMAIN (2) 
270  cj=REMAIN(3) : INK  l,2:st=l 
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280  GOSUB  350 

290  LOCATE  1,1 

300  EVERY  25,1  GOSUB  510 

310  EVERY  15,2  GOSUB  550 

320  EVERY  5,3  GOSUB  590 

330  ERASE  cx,cy,r, lc, np,px%, py%: NEXT 

340  GOTO  340 

350  cx%=cx (st) :cy%=cy(st) : lc(st)=0 

360  FOR  x%=l  TO  np(st) 

370  MOVE  cx%,cy% 

380  DRAW  cx%+px%(st,x%) , cy%+py% (st , x%) , 1+ (st  MOD  3) 

390  DRAW  cx%+px%(st,x%+l) ,cy%+py%(st,x%+l) , l+(st 

MOD  3) 
400  NEXT  x% 

410  IF  st=5  THEN  RETURN 
420  lc(st)=0 

430  cx(5t+l)=cx(st)+1.5*r (st )*SIN (sa+lc (st ) ) 
440  cy(5t+l)=cy(st)+1.5#r <st)*COS(sa+lc(st) ) 
450  st=5t+l 
460  GOSUB  350 
470  st=st-l 

480  lc(st)=lc(st)+2*sa 
490  IF  (lc(st)  MOD  360) <>0  THEN  430 
500  RETURN 
510  ik(l)=l+RND*25 

520  IF  ik(l)=ik<2)  OR  ik(l)=ik(3)  THEN  510 
530  INK  1, ik(l) 
540  RETURN 
550  ik(2)=l+RND*25 

560  IF  ik(2)=ik(l)  OR  ik(2)=ik(3)  THEN  550 
570  INK  2, ik(2) 
580  RETURN 
590  ik(3)=l+RND*25 

600  IF  ik(3)=ik(l)  OR  ik(3)=ik(2)  THEN  590 
610  INK  3, ik(3) 
620  RETURN 
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Parte  9:  Sonidos 


El  ordenador  emite  su  sonido  a  travel  del  altavoz  que  tiene  incorporado.  Si  esta  utili- 
zando  la  unidad  modulador/fuente  de  alimentaci6n  MP2  y  un  televisor  domestico,  baje 
el  mando  de  volumen  del  televisor  al  minimo. 

El  nivel  de  sonido  se  ajusta  con  el  mando  VOLUMEN  que  hay  en  el  panel  posterior 
del  ordenador.  Tambien  es  posible  enviar  el  sonido  a  un  amplificador  externo,  por  me- 
dio de  la  salida  marcada  con  ESTEREO  en  el  ordenador.  De  esta  forma  se  puede  oir 
el  sonido  en  estereofonia,  utilizando  los  altavoces  o  los  auriculares  de  un  equipo  de  alta 
fidelidad.  En  la  parte  2  de  este  'Curso  de  introducci6n'  se  explica  c6mo  tomar  las  sefla- 
les  de  la  salida  ESTEREO  del  ordenador. 


La  instruction  SOUND 

La  instruction  SOUND  tiene  siete  parametros.  Los  dos  primeros  son  imprescindibles, 
mientras  que  los  restantes  son  opcionales.  La  forma  de  la  .instruction  es  la  siguiente: 

SOUND    <situacion  de  canales) ,  <periodo  de  toito) ,  <duracioii> ,  (volmen) , 
<envolveitte  de  volMen>,<eiivolvei)te  de  totto>,<periodo  de  ruido) 

Parece  complicada  a  primera  vista,  pero  veremos  que  en  realidad  no  lo  es  tanto  cuando 
hayamos  analizado  el  significado  de  todos  los  parametros.  Asi  pues,  estudiemos  los  pa- 
rametros uno  por  uno. 


Situaci6n  de  los  canales 

Para  no  complicar  las  cosas,  por  ahora  nos  limitaremos  a  considerar  este  parametro 
como  simple  selector  de  canales.  Hay  tres  canales  de  sonido;  de  momento  s61o  utilizare- 
mos  el  numero  1. 


Periodo  de  tono 

El  periodo  de  tono  es  la  forma  tecnica  de  especificar  el  tono  del  sonido;  en  otras  pala- 
bras,  de  identificar  la  nota  (DO,  RE,  MI,  FA,  etc.).  Cada  nota  tiene  un  numero  de 
identification,  que  es  el  periodo  de  tono.  Si  consulta  el  capitulo  'Para  su  referen- 
cia. . .',  comprobara  que  la  nota  DO  media  tiene  un  periodo  de  tono  de  239. 
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Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC]  y  luego  escriba: 


10  sound  1,239 
run 


Acaba  de  oir  la  nota  DO  media,  que  ha  sonado  durante  0.2  segundos. 

iNo  ha  oido  nada?  Suba  el  control  de  volumen  del  ordenador  y  vuelva  a  ejecutar  el 
programa. 


Duracion 

Este  parametro  especifica  la  duracidn  del  sonido.  Las  unidades  son  de  centesimas  de 
segundo  (0.01  s).  Si  no  se  especifica  duracidn,  el  ordenador  toma  el  valor  implicito  para 
este  parametro,  que  es  20;  por  eso  la  nota  que  acaba  de  oir  ha  durado  0.01  x20=0.2 
segundos. 

Si  queremos  que  la  nota  dure  1  segundo,  el  valor  del  parametro  tendra  que  ser  100; 
para  dos  segundos,  200;  etc.  Escriba  lo  siguiente: 

10   sound    1,239,200 
r  u  n 

Acaba  de  oir  la  nota  DO  media  con  duracion  de  2  segundos. 


Volumen 

Este  parametro  especifica  el  volumen  de  la  nota.  El  margen  de  valores  va  de  0  a  15. 
El  'volumen'  0  es  el  minimo;  el  15  es  el  maximo.  Si  no  se  especifica  ningun  valor,  el 
ordenador  toma  el  implicito,  que  es  12.  Escriba  lo  siguiente: 

10   sound    1,239,200,5 
run 

Fijese  en  el  volumen  de  este  sonido  y  comparelo  con  el  siguiente: 

10   sound    1,239,200,15 
run 

Como  puede  observar,  es  mucho  mas  intenso  que  el  anterior. 
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Envolvente  de  volumen 

Se  puede  hacer  que  el  volumen  de  una  nota  no  sea  constante,  sino  que  vane  con  el  tiem- 
po  mientras  la  nota  esta  sonando.  Para  especificar  la  forma  de  variacion  del  volumen 
en  funcion  del  tiempo  necesitamos  otra  instruction:  ENV.  De  hecho,  podemos  definir 
varias  envolventes  de  volumen  distintas,  cada  una  de  las  cuales  tendra  su  niimero  de 
referenda.  Asi,  si  hemos  definido  la  envolvente  de  volumen  mimero  1 ,  podemos  utili- 
zarla  poniendo  en  la  instruction  SOUND  el  niimero  1  como  parametro  de  envolvente 
de  volumen.  En  seguida  explicaremos  c6mo  se  definen  las  envolventes  de  volumen. 


Envolvente  de  tono 

Se  puede  hacer  que  el  tono  de  una  nota  no  sea  constante,  sino  que  varie  con  el  tiempo 
mientras  la  nota  esta  sonando.  Para  especificar  la  forma  de  variacion  del  tono  en  fun- 
cion del  tiempo  necesitamos  otra  instruction:  ENT.  De  hecho,  podemos  definir  varias 
envolventes  de  tono  distintas,  cada  una  de  las  cuales  tendra  su  niimero  de  referencia. 
Asi,  si  hemos  definido  la  envolvente  de  tono  niimero  1 ,  podemos  utilizarla  poniendo 
en  la  instruction  SOUND  el  niimero  1  como  parametro  de  envolvente  de  tono.  En  se- 
guida explicaremos  como  se  definen  las  envolventes  de  tono. 


Ruido 

El  periodo  de  ruido  es  el  ultimo  parametro  de  la  instruction  SOUND.  Las  caracteristi- 
cas  del  ruido  se  pueden  variar  eligiendo  para  este  parametro  un  valor  comprendido  en- 
tre  1  y  31.  Ponga  el  valor  2  en  la  instruction  SOUND  y  escuche  el  efecto.  Ponga  luego 
el  niimero  27  y  observe  la  diferencia.  Escriba: 

10    sound    1,239,200, 15, , ,2 

En  esta  instruction  hemos  dejado  en  bianco  dos  parametros  („,)  porque  aiin  no  hemos 
creado  ninguna  envolvente  de  volumen  ni  de  tono. 


Definition  de  una  envolvente  de  volumen 


La  instruction  que  define  envolventes  de  volumen  es  ENV.  En  su  version  mas  sencilla, 
esta  instruction  lleva  4  parametros.  Su  forma  es  la  siguiente: 

ENV  tauiero  it  envolvente) ,  (nuiero  de  escalones) ,  (altura  it  cada  escalon) , 
(duration  de  cada  escalon) 

Estudiemos  los  parametros  uno  por  uno. 
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Niimero  de  la  envolvente 

Es  el  niimero  de  referenda  (entre  0  y  15)  por  el  que  la  invocaremos  en  la  instruccidn 
SOUND. 


Niimero  de  escalones 

Este  parametro  especifica  en  cuantas  etapas  queremos  que  la  nota  evolucione  antes  de 
terminar.  Por  ejemplo,  si  la  nota  ha  de  durar  10  segundos,  podemos  dividirla  en  10 
etapas  de  1  segundo  cada  una;  en  tal  caso,  el  parametro  'niimero  de  escalones'  tendrfa 
el  valor  10. 

El  margen  de  este  parametro  es  de  0  a  127. 


Altura  de  cada  escal6n 

En  cada  etapa,  el  volumen  puede  variar  con  respecto  al  nivel  anterior  en  un  niimero 
de  unidades  comprendido  en  0  y  15.  Estos  16  niveles  de  sonido  son  los  mismos  que  se 
definen  en  la  instruccidn  SOUND.  Sin  embargo,  el  margen  del  parametro  'altura  de 
escaldn'  es  de  -128  a  +127;  el  nivel  del  volumen  vuelve  a  0  cada  vez  que  sobrepasa 
el  15. 


Duraci6n  de  cada  escal6n 

Este  parametro  especifica  la  duration  de  cada  escaldn  en  unidades  de  centesimas  de  se- 
gundo. El  margen  de  valores  es  de  0  a  255;  esto  significa  que  la  duracidn  maxima  de 
cada  escaldn  es  de  2.56  segundos  (el  0  se  considera  como  256). 

Por  consiguiente,  el  producto  del  parametro  'niimero  de  escalones'  por  el  parametro 
'duracidn  de  cada  escaldn'  no  deben'a  ser  mayor  que  el  parametro  'duracidn'  especifi- 
cado  en  la  instruccidn  SOUND.  De  lo  contrario,  el  sonido  terminara  antes  de  que  se 
hayan  completado  todos  los  escalones  de  la  envolvente.  (En  ese  caso  el  ordendor  ignora 
el  resto  del  contenido  de  la  envolvente.) 

Analogamente,  si  la  duracidn  especificada  en  SOUND  es  mayor  que  la  impuesta  por 
el  producto  de  'niimero  de  escalones'  por  'duracidn  de  cada  escaldn',  la  nota  continua- 
ra  sonando  aunque  se  hayan  terminado  los  escalones  de  la  envolvente  de  volumen,  y 
lo  hara  al  nivel  del  ultimo  escaldn  de  la  envolvente. 

Para  practicar  con  las  envolventes  de  volumen,  pruebe  el  siguiente  programa: 

10  env  1, 10, 1, 100 

20  sound  1,142,1000,1,1 

run 
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La  linea  20  especifica  un  sonido  con  numero  de  tono  igual  a  142  (LA  internacional), 
duration  de  10  segundos,  volumen  initial  igual  a  1  y  envolvente  de  tono  numero  1,  la 
cual  consiste  en  10  escalones  de  altura  1  y  duration  1  segundo  (100x0.01). 

Pruebe  las  siguientes  formas  de  la  linea  10  y  trate  de  escuchar  el  efecto  de  las  diferentes 
envolventes  de  volumen: 

10  env  1,100, 1, 10 
10  env  1,100,2, 10 
10  env  1,100,4,10 
10  env  1,50,20,20 
10  env  1,50,2,20 
10  env  1,50, 15,30 

Finalmente,  pruebe  la  siguiente: 

10   env    1,50,2, 10 

Observe  que  el  volumen  permanece  constante  durante  la  segunda  mitad  de  la  nota.  Esto 
ocurre  por  que  el  numero  de  escalones  es  50  y  la  duration  de  cada  uno  de  ellos  es 
0. 1  s,  con  lo  que  la  duration  total  de  la  envolvente  es  de  solamente  5  segundos,  mientras 
que  en  la  instruction  SOUND  se  especifica  una  duration  de  10  segundos. 

Haga  usted  otras  pruebas  y  trate  de  generar  sonidos  diferentes. 

Si  quiere  crear  envolventes  mas  complejas,  puede  repetir  los  tres  ultimos  parametros 
de  la  instrucci6n  ENV  para  definir  otras  'secciones'  de  la  envolvente  (hasta  un  maximo 
de  4  secciones). 


Definition  de  una  envolvente  de  tono 


La  instrucci6n  que  define  envolventes  de  tono  es  ENT.  En  su  versi6n  mas  sencilla,  esta 
instruction  lleva  4  parametros.  Su  forma  es  la  siguiente: 

ENT   (nuiero  de  envolvente) ,  (niiiero  lie  escalones) ,  (altura  lie  cada  escalon) , 
<duracion  de  cada  escalon) 

Como  siempre,  estudiemos  los  parametros  uno  por  uno. 


Niimero  de  la  envolvente 

Es  el  numero  de  referencia  (entre  0  y  15)  por  el  que  la  invocaremos  en  la  instrucci6n 
SOUND. 
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Niimero  de  escalones 

Este  parametro  especifica  en  cuantas  etapas  queremos  que  la  nota  evolucione  antes  de 
terminar.  Por  ejemplo,  si  la  nota  ha  de  durar  10  segundos,  podemos  dividirla  en  10 
etapas  de  1  segundo  cada  una;  en  tal  caso,  el  parametro  'niimero  de  escalones'  tendria 
el  valor  10. 

El  margen  de  este  parametro  es  de  0  a  239. 


Periodo  de  tono  de  cada  escalon 

En  cada  etapa,  el  tono  puede  variar  con  respecto  al  de  la  anterior  en  un  niimero  de 
unidades  comprendido  entre  -128  y  +127.  Las  variaciones  negativas  representan 
aumento  del  tono  (tono  mas  agudo);  las  variaciones  positivas  reducen  el  tono  (tono 
mas  grave).  El  valor  minimo  del  periodo  de  tono  es  0.  Tengalo  en  cuenta  cuando  pro- 
grame  envolventes  de  tono.  En  el  capitulo  'Para  su  referencia  . . . '  se  da  la  lista  comple- 
ta  de  los  periodos  de  tono. 


Duration  de  cada  escalon 

Este  parametro  especifica  la  duracion  de  cada  escalon  en  unidades  de  centesimas  de  se- 
gundo. El  margen  de  valores  es  de  0  a  255;  esto  significa  que  la  duracion  maxima  de 
cada  escalon  es  de  2.56  segundos  (el  0  se  considera  como  256). 

Por  consiguiente,  el  producto  del  parametro  'niimero  de  escalones'  por  el  parametro 
'duracion  de  cada  escalon'  no  deberia  ser  mayor  que  el  parametro  'duracidn'  especifi- 
cado  en  la  instruction  SOUND.  De  lo  contrario,  el  sonido  terminara  antes  de  que  se 
hayan  completado  todos  los  escalones  de  la  envolvente.  (En  ese  caso  el  ordenador  igno- 
ra  el  resto  del  contenido  de  la  envolvente.) 

Analogamente,  si  la  duracidn  especificada  en  SOUND  es  mayor  que  la  impuesta  por 
el  producto  de  'niimero  de  escalones'  por  'duracidn  de  cada  escalon',  la  nota  continua- 
ra  sonando  aunque  se  hayan  terminado  los  escalones  de  la  envolvente  de  tono,  y  lo  hard 
con  el  tono  correspondiente  al  de  la  ultima  etapa  de  la  envolvente. 

Para  practicar  con  las  envolventes  de  tono,  pruebe  el  siguiente  programa: 

10  ent  1,100,2,2 

20  sound  1, 142,200, 15, ,1 

run 

La  linea  20  especifica  un  sonido  con  niimero  de  tono  igual  a  142  (LA  internacional), 
duracion  de  2  segundos,  volumen  inicial  igual  a  15  (el  maximo),  sin  envolvente  de  volu- 
men  (parametro  en  bianco  „)  y  con  envolvente  de  tono  niimero  1. 

En  la  linea  10  se  define  la  envolvente  de  tono,  la  cual  consiste  en  100  escalones  de  altura 
2  (reduction  del  tono)  y  duracion  0.02  segundos  (2x0.01). 
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Pruebe  las  siguientes  formas  de  la  linea  10  y  trate  de  escuchar  el  efecto  de  las  diferentes 
envolventes  de  tono: 

10  ent  1, 100,-2,2 
10  ent  1, 10,4,20 
10  ent  1, 10,-4,20 

Cambie  ahora  la  instruction  sound  y  la  envolvente  de  tono  escribiendo: 


10  ent  1,2,17,70 

20  sound  1,71, 140, 15, , 1 

30  goto  10 


run 

Pulse  [ESC]  dos  veces  para  detener  el  programa. 

Se  puede  combinar  las  instructions  ENV,  ENT  y  SOUND  para  crear  sonidos  mas 
complejos.  Empiece  con  el  siguiente  programa: 

10  env  1, 100,1,3 

20  ent  1, 100,5,3 

30  sound  1,142,300,1,1,1 

run 

Cambie  la  linea  20  por  la  siguiente: 

20   ent    1,100,-2,3 
run 

Y  finalmente  pruebe  el  siguiente  programa: 

10   env    1, 100,2,2 

20   ent    1,100,-2,2 

30    sound    1,142,200,1,1,1 

run 

Si  quiere  crear  envolventes  mas  complejas,  puede  repetir  los  tres  liltimos  parametros 
de  la  instruction  ENT  para  definir  otras  'secciones'  de  la  envolvente  (hasta  un  maximo 
de  4  secciones). 

Haga  usted  mismo  otras  pruebas.  Por  ejemplo,  incluya  ruido  en  la  instruction  SOUND 
y  afiada  mas  secciones  a  las  envolventes  de  volumen  y  de  tono. 

En  el  capitulo  'Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD'  explica- 
remos  con  todo  detalle  las  diversas  instrucciones  de  sonido.  Si  le  interesan  los  aspectos 
mas  mel6dicos  del  sonido,  consulte  la  secci6n  'El  sonido  de  la  musica'  del  capitulo  titu- 
lado  'Cuando  usted  guste  . . .'. 
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Parte  10:  Introduction  a  los  sistemas 

operativos  AMSDOS  y  CP/M 

iQue  es  AMSDOS? 

Cuando  se  enciende  o  reinicializa  el  ordenador,  este  queda  sometido  al  control  de 
AMSDOS.  Estas  letras  son  abreviaturas  de  'AMStrad  Disc  Operating  System'  (sistema 
operativo  de  disco  AMSTRAD).  AMSDOS  dispone  de  las  siguientes  funciones  e  ins- 
trucciones  de  manejo  de  ficheros: 

LOAD    "nombre-fi" 

RUN  " nombre-fi" 

SAVE  "nombre-fi" 

CHAIN  "nombre-fi" 

MERGE  "nombre-fi" 

CHAIN  MERGE  "nombre-fi" 

OPENIN  "nombre-fi" 

OPENOUT  "nombre-fi" 

CLOSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT  #9 

LINE  INPUT  H9 

LIST  #9 

PRINT  H9 

WRITE  «9 

asi  como  de  diversas  ordenes  para  el  manejo  de  discos. 

Estas  6rdenes  son  las  llamas  drdenes  externas,  que  se  escriben  precedidas  del  simbo- 
lo  !  (tecla  @  con  [MAYS]). 

Las  6rdenes  externas  mas  utilizadas  son  las  siguientes: 

ia 

!b 

!  tape    (que  se  puede  subdividir  en    :  tape,  in    y    !  tape,  out) 

idisc    (que  se  puede  subdividir tt,    !  disc,  in    y    !  disc,  out) 

Las  ordenes  !  a  y  !  b  solo  se  utilizan  cuando  se  tiene  conectada  la  segunda  unidad  de 
disco;  indican  a  la  maquina  con  que  unidad  debe  realizar  las  ordenes  que  se  le  den  en 
lo  sucesivo. 
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Por  ejemplo,  las  6rdenes 

load    "nombre-fi" 

piden  al  ordenador  que  cargue  el  programa  especificado  leyendolo  del  disco  que  esti 
insertado  en  la  unidad  A. 

Si  no  se  especifica  !  a  ni  !  b,  el  ordenador  opera  con  la  unidad  implicita,  que  es  la  A. 

Si  s61o  se  esti  utilizando  la  unidad  integrada  en  el  ordenador,  este  la  considera  como 
unidad  A,  y  no  es  necesario  especificar  !a  ni  !b.  De  hecho,  si  en  esa  situacidn  se  le 
da  al  ordenador  la  orden  1  b,  este  responde  con  el  mensaje: 

Drive   B:    disc   missing  Unidad  B:  falta  el  disco 

Retry,    Ignore   or   Cancel  Reintentar,  Ignorar  o  Cancelar 

y  usted  debe  responder  con  C  (de  cancelar). 


4C61110  se  utiliza  la  cinta?  . . . 

La  orden  !  tape  indica  al  ordenador  que  en  lo  sucesivo  debe  realizar  todas  las  funciones 
de  manejo  de  ficheros  (load,  save,  etc.)  con  el  magnetdfono  de  cassette  externo  en  lu- 
gar  de  con  el  disco.  Si  no  se  especifica  Itape,  el  ordenador  trabaja  con  el  medio  de 
archivo  de  datos  implicito,  que  es  el  disco. 

Para  volver  a  trabajar  con  el  disco  despues  de  especificar  Itape,  escriba  la  orden: 
Idisc 

Tambien  puede  ocurrir  que  se  desee,  por  ejemplo,  leer  de  la  cinta  y  grabar  en  disco. 
Para  ello  sirve  la  orden. 

! tape. in 

que  indica  al  ordenador  que  en  lo  sucesivo  debe  realizar  las  operaciones  de  lectura  con 
la  cinta,  pero  seguir  realizando  las  de  escritura  con  el  disco. 

Analogamente,  para  leer  datos  del  disco  y  grabarlos  en  cinta,  primero  se  da  la  orden 
idisc. in,  para  cancelar  la  anterior  Itape. in,  y  luego  I  tape. out,  para  dirigir  la  salida 
de  datos  hacia  la  cinta. 

Asipues,  I  tape,  in  y  Itape.outsonopuestasa  Idisc. in  y  I  disc. out,  respectivamente, 
y  viceversa. 

En  los  capitulos  titulados  'Discos  y  cintas'  y  'AMSDOS  y  CP/M'  se  puede  encontrar 
mas  amplia  information  sobre  todas  las  posibilidades  de  transferencia  de  datos  entre 
ordenador,  disco  y  cinta. 
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Copia  de  programas  entre  discos  y  cinta 

En  la  parte  7  de  este  'Curso  de  introducci6n'  el  lector  ha  aprendido  a  inicializar  discos 
nuevos  sirviendose  del  programa  DISCKIT3  (cara  1  del  juego  de  discos  maestros  de 
CP/M),  y  tambten  a  copiar  programas  de  un  disco  a  otro.  A  la  vista  de  la  description 
que  acabamos  de  hacer  de  las  6rdenes 

Itape  Idisc  ! tape. in  ! tape. out  ! disc. in  ! disc. out  la  !b 

deben'a  ser  capaz  de  cargar  y  grabar  programas  de  disco  o  de  cinta,  utilizando  la  unidad 
A  o  la  B.  Otras  ordenes  externas  son  las  siguientes: 

Idir   !  drive   !era   !  ren   !  user 

Las  explicaremos  en  el  capitulo  titulado  'AMSDOS  y  CP/M'. 


Copia  de  discos  con  CP/M 

El  contenido  completo  de  un  disco  se  puede  copiar  a  otro  utilizando  el  programa 
DISCKIT3  (cara  1  del  juego  de  discos  maestros  de  CP/M). 

Puede  utilizar  el  m&odo  que  vamos  a  describir  para  copiar  los  propios  discos  maestros. 

Inserte  el  primer  disco  maestro  de  CP/M  en  la  unidad,  con  la  cara  1  hacia  arriba,  y 
escriba 

!  cpm 

Cuando  aparezca  el  mensaje  A>,  escriba 

discki  t3 

Al  cabo  de  unos  instantes  vera  aparecer  en  la  pantalla  el  mensaje  de  presentaci6n  de 
DISCKIT3,  seguido  de 

One  drive  -found 

Esto  confirma  que  estamos  ejecutando  el  programa  de  ayuda  DISCKIT3  y  que  el  orde- 
nador  ha  detectado  una  unidad  de  disco  0a  incorporada  en  la  maquina). 

En  cambio,  si  esta  conectada  la  segunda  unidad  de  disco,  el  mensaje  sera: 
Two    drives    -found 
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En  la  parte  inferior  de  la  pantalla  se  puede  ver  el  siguiente  menu: 


Copy 

Format 

Ver  i-f  y 

Exit  -from  program 


I 

'     7 

4 

1 

0 

Copiar 

Inicializar 

Verificar 

Fin  del  programa 


Es  el  menu  principal  del  programa  DISCKIT3.  Los  niimeros  recuadrados  hacen  refe- 
renda a  las  teclas  de  funcion  del  teclado  numerico  (marcadas  con  fO,  f1,  f4  y  f7).  Pul- 
sando  una  de  estas  teclas  se  elige  la  option  deseada. 

Observe  que  la  opci6n  0  de  este  menu  hace  que  se  abandone  el  programa  DISCKIT3 
y  se  vuelva  al  modo  directo  de  consola  de  CP/M  (inductor  A>). 

Como  lo  que  queremos  hacer  ahora  es  copiar  un  disco,  pulse  la  tecla  de  funcion  niime- 
ro  7  (f7). 


PRECAUCION 

AL  COPIAR  SOBRE  UN  DISCO  SE  BORRA  SU  CONTENIDO  ANTERIOR 


Copia  en  un  sistema  de  una  sola  unidad  de  disco 


Suponiendo  que  su  sistema  sea  de  una  sola  unidad  de  disco  (es  decir,  que  no  tenga  co- 
nectada  la  segunda  unidad),  el  mensaje  que  aparecera  en  la  pantalla  es: 


Copy 

Any  other  key  to  exit  menu 


Copiar 

Cualquier  otra  tecla 

para  volver  al  menu 


En  este  momento  debe  extraer  el  disco  de  CP/M  e  insertar  el  disco  que  va  a  copiar  (el 
disco  fuente).  Si  va  a  copiar  el  disco  de  sistema  de  CP/M,  dejelo  en  la  unidad  de  disco. 

Cuando  haya  insertado  el  disco  fuente,  pulse  la  tecla  Y  (de  yes,  "si"),  lo  que  equivale 
a  decir:  "de  acuerdo,  copia  el  disco". 


Curso  de  introducci6n 


1/79 


El  ordenador  comprueba  cual  es  el  formato  del  disco  fuente  y  exhibe  el  mensaje  ade- 
cuado  en  la  primera  linea  de  la  pantalla. 

Al  cabo  de  unos  segundos  aparece  el  mensaje 

Insert   disc    to   WRITE  Insertar  disco  para  ESCRIBIR 

Press   any   key    to   continue        Pulsar  cualquier  tecla  para  continuar 

En  este  momento  debe  extraer  de  la  unidad  el  disco  fuente,  insertar  el  disco  sobre  el 
que  quiere  copiar  (disco  de  destino)  y  pulsar  una  tecla. 

En  la  pantalla  aparece  informaci6n  sobre  el  formato  que  va  a  tener  el  disco  destino 
(aun  cuando  sea  un  disco  nuevo  no  inicializado). 

Si  el  disco  destino  no  esta  inicializado,  o  no  lo  esta  correctamente,  aparecera  el  mensaje 

El  disco  no  estd  inicializado 
Disc    isn't   -formatted    (or    -faulty)       (o  es  defectuoso) 
Going   to   format    while   copying  Voy  a  inicializar  al  copiar 

Disc   will    be   system   -format  El  disco  tendra  formato  de 

sistema 

o  alguno  similar,  dependiendo  del  formato  del  disco  fuente. 

Cuando  el  ordenador  este  otra  vez  dispuesto  a  seguir  leyendo  el  disco  fuente,  emitira 
el  mensaje 

Insert    disc    to   READ  Insertar  disco  para  LEER 

Press   any   key    to   continue        Pulsar  cualquier  tecla  para  continuar 

y  usted  debe  insertar  nuevamente  el  disco  destino. 

El  proceso  se  repite  las  veces  necesarias  hasta  que  la  copia  esta  terminada;  entonces 
aparece  el  mensaje: 

Copy   completed  Copia  terminada 

Remove   disc  Extraer  el  disco 

Press   any   key   to   continue       Pulsar  cualquier  tecla  para  continuar 

Siga  entonces  las  instrucciones  que  vea  en  la  pantalla:  pulse  Y  para  copiar  otro  disco, 
o  cualquier  otra  tecla  para  volver  al  menu. 


Protection  contra  escritura 


El  sistema  no  permite  copiar  sobre  un  disco  que  tenga  abierto  el  orificio  de  protection 
contra  escritura.  Si  lo  intenta,  el  ordenador  emite  el  mensaje: 
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Disc    write-protected     El  disco  esta  protegido  contra  escritura 
Insert    disc    to   WRITE     Insertar  disco  para  ESCRIBIR 
R  -  e  t  r  y    or    C  -  a  n  c  e  1  R-eintentar  o  C-ancelar 

Lo  que  se  debe  hacer  entonces  es  pulsar  C  para  cancelar  la  operation,  extraer  el  disco 
e  insertar  el  disco  sobre  el  que  si  se  quiere  copiar,  con  el  orificio  de  protection 
obturado. 

Es  muy  importante  no  cerrar  los  orificios  de  protecci6n  de  los  discos  que  contengan 
programas  valiosos.  NO  CERRAR  NUNCA  los  orificios  de  protecci6n  de  los  discos 
maestros  de  CP/M. 


Copia  en  un  sistema  de  dos  unidades  de  disco 

Siga  las  instrucciones  de  la  section  anterior  para  cargar  el  programa  DISCKIT3  (cara 
1  del  juego  de  discos  de  CP/M);  elija  la  option  copy  pulsando  la  tecla  f7  en  el  menu. 

El  programa  ofrece  un  nuevo  menu: 


Read  -from  A: 
Read  -from  B: 
Exit  menu 


8 

Leer  en  A: 

5 

Leer  en  B: 

2 

Vuelta  al  menu 

Al  copiar  en  un  sistema  de  dos  unidades  de  disco  ya  no  es  necesario  intercambiar  repe- 
tidamente  el  disco  fuente  y  el  disco  destine  Pulse  la  tecla  F8  para  copiar  desde  la  uni- 
dad  A. 

El  programa  ofrece  un  tercer  menu: 


Write  to  A: 
Write  to  B: 
Exit  menu 


8 

5 

2 

Escribir  en  A: 
Escribir  en  B: 
Vuelta  al  menu 
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Este  menu  permite  elegir  la  unidad  en  la  que  se  desea  poner  el  disco  destine  Se  puede 
elegir  la  misma  que  para  el  disco  fuente,  pero  entonces  no  se  aprovecha  la  ventaja  que 
representa  disponer  de  la  segunda  unidad  de  disco,  y  habra  que  intercambiar  los  discos 
fuente  y  destino  varias  veces  durante  el  proceso  de  copia. 

Lo  mas  conveniente  es,  pues,  pulsar  f6  para  copiar  hacia  la  unidad  B. 

Introduzca  los  dos  discos  en  las  unidades  correspondientes  y  pulse  Y  para  poner  en 
marcha  el  proceso  de  copia. 

El  ordenador  emite  informacion  acerca  del  formato  de  los  dos  discos.  Si  el  disco  desti- 
no no  esta  inicializado,  o  no  lo  esta  correctamente,  el  ordenador  lo  inicializara  al  mis- 
mo  tiempo  que  realiza  la  copia. 

Una  vez  concluido  el  proceso,  se  emite  el  siguiente  mensaje: 

Copy   completed  Copia  terminada 

Remove   both   discs  Extraer  los  dos  discos 

Press   any   key   to   continue       Pulsar  cualquier  tecla  para  continuar 

Extraiga  entonces  los  dos  discos  antes  de  proseguir.  A  continuation  puede  optar  por 
copiar  otro  disco  (pulsando  Y)  o  por  volver  al  menu  de  DISCKIT3  (pulsando  cualquier 
otra  tecla). 


Verification  de  discos 


El  programa  DISCKIT3  tambien  ofrece  la  opcion  de  verificar  (comprobar)  discos. 

Esta  opcion  exhibe  en  la  pantalla  informacion  acerca  del  formato  del  disco;  lee  todos 
los  ficheros  del  disco  e  informa  sobre  los  errores  que  encuentra. 

El  proceso  completo  de  verificaci6n  de  un  disco  es  el  siguiente:  inserte  la  cara  1  de  los 
discos  de  CP/M  y  escriba 

!  cpm 

Cuando  aparezca  el  inductor  A>  escriba 

disckit3 

Seleccione  la  opci6n  verify  del  menu  principal  de  DISCKIT3  pulsando  la  tecla  f  1  y  lue- 
go  siga  las  instrucciones  que  vayan  apareciendo  en  la  pantalla. 

Si  tiene  conectada  la  segunda  unidad  de  disco,  el  programa  le  ofrece  la  opci6n  de  elegir 
que  unidad  de  disco  quiere  utilizar  para  la  verification. 

Una  vez  instalado  el  disco  a  verificar,  pulse  Y  para  iniciar  el  proceso. 
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Cuando  la  verification  termina,  se  emite  el  siguiente  mensaje: 

~  Verity   c omp  1  e  t  ed  Verification  terminada 

_  Remove   disc  Extraer  el  disco 

Press   any   key    to   continue       Pulsar  cualquier  tecla  para  continuar 

Si  tiene  conectada  la  segunda  unidad  de  disco,  el  programa  exige  que  extraiga  los  dos 
~~  discos  antes  de  permitirle  continuar.  Entonces  puede  optar  por  verificar  otro  disco 

_  (pulsando  Y)  o  por  volver  al  menu  de  DISCKIT3  (pulsando  cualquier  otra  tecla). 


Utilizacion  del  programa  DISCKIT  en  CP/M  2.2 

Si  desea  inicializar,  copiar  o  verificar  discos  creados  con  o  para  el  CPC664  o  el  sistema 
CPC464+DDY1  Qos  cuales  solo  disponen  de  CP/M  2.2),  puede  utilizar  la  versidn  del 
programa  DISCKIT  que  esta  grabada  en  la  cara  4  del  juego  de  discos  de  CP/M.  El  pro- 
grama se  llama  DISCKIT2  y  funciona  de  la  misma  manera  que  el  DISCKIT3  que  acaba- 
mos  de  describir. 

Para  ejecutar  DISCKIT2,  inserte  el  segundo  disco  de  CP/M,  con  la  cara  4  hacia  arriba, 
en  la  unidad  de  disco  incorporada  al  ordenador  y  escriba 

icprn 

Cuando  aparezcan  el  mensaje  de  presentacidn  de  CP/M  2.2  y  el  inductor  A>,  escriba 

disckit2 

Elija  las  opciones  requeridas  y  siga  las  instrucciones  que  aparezcan  en  la  pantalla  igual 
que  si  se  tratase  de  DISCKIT3. 

Observation.  Al  copiar,  el  programa  DISCKIT2  utiliza  la  memoria  de  la  pantalla  para 
almacenar  datos  temporalmente.  Esto  hace  que  en  ella  aparezcan  imagenes  aleatorias 
durante  el  proceso  de  copia. 


Information  adicional 


En  los  capitulos  4  al  9  se  describe  la  utilizacion  de  otros  programas  del  juego  de  CP/M. 

Finalmente,  antes  de  proseguir,  asegiirese  de  que  ha  tenido  en  cuenta  las  advertencias 
que  hemos  hecho  al  principio  de  este  manual,  en  la  secci6n  titulada  'IMPORTANTE': 

NOTAS  DE  INSTALACION  5,  6  y  7  (pag.  4) 

NOTAS  DE  OPERACION  1,  2,  3,  4,  5,  6,  7  y  9  (pags.  4  y  5) 
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Parte  11:  Introduction  al  gestor  de  bancos 
de  memoria 


El  segundo  bloque  de  64K  de  memoria 

El  CPC6128  esta  dotado  de  128K  de  RAM  {random  acces  memory,  memoria  de  acceso 
aleatorio)  divididos  en  dos  bloques  de  64K  cada  uno.  CP/M  Plus  utiliza  todos  los 
128K,  pero  en  cambio  BASIC  normalmente  no  se  sirve  mas  que  de  los  64K  primeros. 
Seria  una  pena  no  aprovechar  los  otros  64K  en  los  programas  de  BASIC,  asi  que  hemos 
incluido  un  programa  que  proporciona  6rdenes  gracias  a  las  cuales  se  puede  utilizar 
esa  memoria  con  dos  usos  especificos:  como  almacen  de  imagenes  de  pantalla  o  como 
espacio  para  almacenar  cadenas  de  caracteres. 

El  programa  se  llama  'gestor  de  bancos'  ('banco'  es  un  termino  tecnico  que  significa 
'bloque  de  memoria'). 


Control  de  imagenes  de  pantalla  con  el  gestor  de 
bancos 


El  ordenador  6128  visualiza  y  mantiene  constantemente  actualizada  una  imagen  de 
pantalla.  Para  ello  necesita  16K  de  memoria  en  la  que  almacenar  informacion  acerca 
del  color  y  el  brillo  de  todos  los  pixels  (puntos)  de  la  pantalla.  En  la  memoria  del  6128 
hay  espacio  suficiente  para  almacenar  informacion  sobre  seis  imagenes  de  pantalla  si- 
multaneamente  (16K  para  cada  una).  El  gestor  de  bancos  proporciona  las  6rdenes  nece- 
saria  para  manipular  y  visualizar  desde  BASIC  cinco  de  las  pantallas  posibles. 

Cuando  se  conecta  el  ordenador,  la  imagen  que  se  observa  en  la  pantalla  esta  formada 
con  los  datos  almacenados  en  el  primer  bloque  de  16K  (que  denominaremos  'bloque 
1'),  dentro  del  primer  banco  de  64K.  Las  otras  cuatro  pantallas  estan  en  el  segundo 
banco  de  64K  y  les  llamaremos  bloque  2,  bloque  3,  bloque  4  y  bloque  5. 

En  realidad,  el  unico  bloque  cuya  informacion  se  consulta  para  formar  la  imagen  es 
el  bloque  1.  Para  visualizar  los  bloques  del  segundo  banco  (bloques  2,  3,  4  y  5)  hay 
que  transferirlos  al  bloque  1 .  El  gestor  de  bancos  proporciona  las  ordenes  necesarias 
para  realizar  esas  transferencias:  !  SCREENCOPY  copia  el  contenido  de  un  bloque  en 
otro,  borrando  la  informacion  previamente  grabada  en  el  bloque  destino;  !  SCREEN- 
SWAP  intercambia  el  contenido  de  dos  bloques. 
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Las  6rdenes  del  gestor  de  bancos  son  6rdenes  externas,  similares  a  las  de  AMSDOS  ya 
descritas  en  este  capitulo,  y  van  precedidas,  por  consiguiente,  por  el  simbolo  !  (tecla 
@  con  [MAYS]). 


Utilization  del  gestor  de  bancos 

Reinicialice  el  ordenador  con  [CONTROL]  [MAYS]  [ESC].  Inserte  en  la  unidad  de  dis- 
co la  cara  1  del  juego  de  discos  del  sistema  y  escriba 

RUN    "BANKMAN" 

El  procedimiento  de  carga  se  explica  en  el  capitulo  7,  partes  13  y  14,  en  las  que  se  habla 
de  las  RSX  (Resident  System  extensions,  ampliaciones  del  sistema  residentes).  Convie- 
ne  tener  cierta  idea  de  como  funcionan  estas  rutinas  y  de  como  reservarles  espacio  en 
la  memoria  antes  de  utilizarlas  en  los  programas.  No  obstante,  para  probar  los  siguien- 
tes  ejemplos  no  es  necesario  conocer  el  procedimiento  de  carga. 

Escriba: 

MODE    1 

PRINT  "ESTA  ES  LA  PANTALLA  IMPLICITA" 
ISCREENSWAP, 1,2 

El  texto  debe  haber  desaparecido  como  consecuencia  de  la  ultima  orden  (screenswap 
significa  "intercambio  de  pantalla").  Lo  que  ahora  hay  en  la  pantalla  es  la  information 
que  antes  estaba  almacenada  como  'pantalla  2'  (en  el  bloque  2).  Si  la  maquina  estaba 
recien  encendida,  sera  seguramente  una  imagen  aleatoria.  Para  borrarla  escriba: 

MODE    1 

y  a  continuation: 

PRINT  "ESTA  ES  LA  PANTALLA  2" 
ISCREENSWAP, 1,2 

Ha  vuelto  a  aparecer  el  texto  original.  Al  repetir  la  orden  ISCREENSWAP,1,2  hemos 
vuelto  a  intercambiar  las  dos  pant  alias.  Con  la  orden  !  SCREENSWAP  se  puede  inter- 
cambiar  cualquier  pantalla  de  las  cinco  disponibles  con  cualquier  otra;  pero  el  efecto 
solo  sera  visible  si  una  de  las  pantallas  implicadas  es  la  numero  1. 

La  otra  orden  es  !  SCREENCOPY  ("copia  de  pantallas")-  Con  ella  se  copia  una  panta- 
lla sobre  otra  y  se  borra  la  que  originalmente  habia  en  el  bloque  destine 
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Escriba: 

MODE    1 

PRINT  "VAMOS  A  COPIAR  E3TA  PANTALLA" 
!SCREENC0PY,2, 1 

La  pantalla  fuente,  la  1,  se  ha  copiado  en  la  pantalla  destino,  la  2.  Si  ahora  invertimos 
el  orden  de  los  parametros, 

MODE  1 
!SCREENC0PY,1,2 


el  contenido  de  la  pantalla  actualmente  visible  (es  decir,  la  1)  es  sustituido  por  el  de 
la  pantalla  2. 

Asi  pues,  el  primer  parametro  representa  la  pantalla  destino;  el  segundo,  la  pantalla 
fuente. 

Al  copiar  pantallas  se  producen  imagenes  distorsionadas  si  los  modos  de  pantalla  son 
diferentes  o  si  la  pantalla  visible  ha  sido  desplazada  hacia  arriba  despues  de  la  ultima 
ejecucion  de  una  orden  MODE.  Las  ordenes  de  control  de  pantallas  del  gestor  de  ban- 
cos  estan  pensadas  para  su  utilizacion  en  pantallas  graficas  mas  bien  que  en  pantallas 
de  texto,  y  en  aquellas  el  desplazamiento  de  la  pantalla  es  mas  improbable. 


Utilizacion  del  gestor  de  bancos  en  el 
almacenamiento  de  cadenas  literates 


El  programa  gestor  de  bancos  proporciona  otras  cuatro  ordenes  externas  mediante  las 
cuales  se  puede  convertir  el  segundo  banco  de  memoria  (64K)  en  un  archivo  de  cadenas 
literales. 

Casi  todos  los  programas  se  pueden  dividir  en  dos  partes:  las  instrucciones  del  progra- 
ma y  los  datos  con  los  que  opera.  Un  buen  ejemplo  seria  un  programa  de  base  de  datos, 
tal  como  una  lista  de  nombres  y  direcciones.  Un  programa  asi  utilizaria  vectores  litera- 
les para  almacenar  los  nombres  y  las  senas. 

Las  cadenas  literales  se  pueden  almacenar  en  el  segundo  banco  de  64K  de  memoria, 
una  tras  otra.  El  espacio  dedicado  a  almacenar  las  cadenas  se  puede  dividir  en  una  serie 
de  compartimentos  que  denominaremos  registros.  Los  registros  son  de  longitud  fija, 
entre  2  y  255  caracteres  cada  uno,  mientras  que  la  longitud  de  las  cadenas  literales  de 
BASIC  no  es  fija,  sino  que  depende  de  los  caracteres  que  las  integren.  El  metodo  de 
almacenamiento  mediante  registros  proporciona  compartimentos  de  tamaflo  unifor- 
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me:  una  especie  de  casillero  en  el  que  se  guarda  la  information  de  forma  bien  organiza- 
da.  Cada  operation  de  escritura  o  lectura  de  datos  de  un  registro  va  acompafiada  de 
un  avance  automatico  al  registro  siguiente,  el  cual  queda  dispuesto  para  la  siguiente 
operation.  El  registro  con  el  que  se  va  a  realizar  la  siguiente  operation  es  el  'registro 
actual',  y  es  el  que  las  ordenes  del  gestor  de  bancos  utilizaran  si  no  se  especifica  otro 
diferente. 

A  este  sistema  de  gestion  de  la  memoria  le  hemos  dado  el  nombre  de  'RAMdisc'  o 
'disco  virtual'  porque  funciona  de  forma  muy  parecida  a  como  lo  hacen  los  sistemas 
de  fichero  de  acceso  aleatorio  en  disco,  con  la  linica  diferencia  de  que  el  soporte  fisico 
es  la  RAM  en  lugar  de  un  disco. 

Lea  las  siguientes  descripciones  de  las  diversas  ordenes;  si  no  aprende  a  utilizarlas  inme- 
diatamente,  al  menos  apreciara  para  que  sirven.  Despues  practique  con  los  ejemplos. 

La  primera  orden  de  RAMdisc  es  !  BANKOPEN.  Esta  orden  especifica  el  numero  de 
caracteres  que  va  a  tener  cada  registro.  La  sintaxis  es: 

! BANKOPEN, n 

donde  n  es  un  numero  que  especifica  la  longitud  de  los  registros.  El  numero  n  puede 
tener  cualquier  valor  del  margen  de  0  a  255,  pero  los  valores  0  y  1  producen  efectos 
incontrolados. 

!  BANKWRITE  almacena  una  cadena  literal  en  el  'registro  actual'.  Al  terminar  la  eje- 
cucion  de  la  orden,  el  'puntero  de  registro'  pasa  a  apuntar  al  registro  siguiente  a  aquel 
en  el  que  se  ha  escrito  y  lo  convierte  en  el  nuevo  'registro  actual'.  La  sintaxis  es: 

! BANKWRITE, @r%, a* 

o  bien 

! BANKWRITE, ©r%, a*, n 

donde  r%  es  una  variable  entera  que  contiene,  al  terminar  la  orden,  cierta  information 
acerca  de  la  operation  que  se  acaba  de  realizar.  a$  es  una  variable  literal  que  contiene 
los  caracteres  que  se  han  de  almacenar  en  el  registro.  En  el  primero  de  estos  dos  ejem- 
plos se  escribe  en  el  registro  actual;  en  el  segundo  ejemplo  el  parametro  opcional  n  es- 
pecifica el  numero  de  registro  en  el  que  se  debe  escribir. 

!  BANKREAD  examina  un  registro  y  asigna  su  contenido  a  una  cadena  literal;  al  termi- 
nar la  lectura,  incrementa  el  puntero  de  registros  y  convierte  en  registro  actual  el  si- 
guiente a  aquel  en  que  se  realizo  la  operation.  El  contenido  de  los  registros  no  resulta 
modificado  por  las  operaciones  de  lectura.  La  sintaxis  de  !  BANKREAD  es  la  siguiente: 

! BANKREAD, @r%, a* 
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o  bien 

!BANKREAD,@r%,a*,n 

donde  r%  es  una  variable  entera  que  contiene,  al  terminar  la  orden,  cierta  informaci6n 
acerca  de  la  operation  que  se  acaba  de  realizar.  a$  es  una  variable  literal  a  la  que  se 
asigna  los  caracteres  leidos  en  la  operation.  En  el  primero  de  estos  dos  ejemplos  se  lee 
el  registro  actual;  en  el  segundo  ejemplo  el  parametro  optional  n  especifica  el  numero 
de  registro  que  se  debe  leer. 

La  ultima  orden  de  este  grupo  es  IBANKFIND.  Esta  orden  examina  los  registros  en 
busca  de  una  cadena  literal  especificada.  Si  la  encuentra,  entrega  el  niimero  de  registro 
en  el  que  la  ha  encontrado.  La  sintaxis  de  IBANKFIND  es: 

!BANKFIND,@r%,a* 
o  bien 

IBANKFIND,  <2r%,  a*,n 
o  bien 

! BANKFIND, @r%, a*, n, m 

donde  r%  es  una  variable  entera  que  contiene,  al  terminar  la  orden,  o  bien  el  numero 
de  registro  en  el  que  se  ha  encontrado  la  cadena,  o  bien  un  codigo  que  indica  que  la 
cadena  no  ha  sido  encontrada.  a$  es  la  cadena  que  se  busca.  El  parametro  optional 
n  especifica  el  numero  de  registro  a  partir  del  cual  se  debe  empezar  a  buscar.  Si  no  se 
especifica  n,  la  busqueda  comienza  a  partir  del  registro  actual.  El  segundo  parametro 
optional,  m,  especifica  el  numero  de  registro  en  el  que  se  debe  abandonar  la  busqueda. 
Si  se  omite  m,  la  busqueda  contimia  hasta  el  final  de  los  64K  de  memoria,  con  lo  que 
se  puede  sobrepasar  el  final  de  los  datos  escritos  por  el  programa. 

Pruebe  ahora  los  siguientes  ejemplos.  Si  ya  ha  ejecutado  el  programa  para  estudiar  las 
ordenes  de  manipulaci6n  de  pantallas  y  no  ha  reinicializado  la  maquina  desde  entonces, 
las  ordenes  de  RAMdisc  seguiran  en  la  memoria.  De  lo  contrario,  inserte  la  unidad  de 
discos  la  cara  1  del  juego  de  discos  del  sistema  y  escriba  lo  siguiente: 

RUN    "BANKMAN" 

Ahora  escriba: 

!BANKOPEN,20 

Esta  orden  especifica  que  los  registros  van  a  ser  de  20  caracteres  cada  uno  y  selecciona 
como  registro  actual  el  numero  0. 
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Escriba: 

a*="PRIMER    REGISTRO" +SPACES (5) 

con  lo  que  se  forma  la  cadena  a$  con  longitud  de  20  caracteres. 
Escriba  ahora: 

para  inicializar  r%. 
Escriba: 

! BANKWRITE, @r%, a* 

Esta  orden  escribe  a$  en  el  primer  registro  (el  numero  0).  A  continuation  escriba: 

d*=SPACE*<20) 
!BANKREAD,@r%,d*,0 
PRINT    d* 

La  primera  orden  iguala  d$  a  una  cadena  de  20  espacios,  longitud  suficiente  para  poder 
asignarle  el  contenido  del  registro  en  la  operation  de  lectura.  La  segunda  orden  lee  el 
registro  numero  0  y  asigna  su  contenido  a  la  variable  literal  d$.  Antes  de  la  lectura  el 
registro  actual  era  el  numero  1  (actualizado  por  la  anterior  !  BANKWRITE);  por  eso 
hemos  tenido  que  especificar  que  la  lectura  debia  realizarse  en  el  registro  numero  0. 
De  no  haberlo  hecho  asi,  se  habria  lefdo  el  registro  actual.  La  ultima  orden  de  este 
ejemplo  escribe  en  la  pantalla  el  resultado  de  la  lectura;  si  todo  ha  ido  bien,  d$  deberia 
ser  igual  a  la  cadena  'PRIMER  REGISTRO'  seguida  de  5  espacios. 

Escriba  lo  siguiente: 

b*="D0S"+SPACE*<17) 
c*="TRES"+SPACE*<16) 

! BANKWRITE, @r%,b*, 1 

! BANKWRITE, @r%,c* 

Estas  ordenes  escriben  b$  y  c$  en  los  registros  1  y  2.  En  la  primera  orden 
!  BANKWRITE  hemos  incluido  el  parametro  optional,  con  lo  que  b$  ha  quedado  al- 
macenada  en  el  registro  1.  Esta  misma  orden  ha  incrementado  el  puntero  de  registro; 
al  ejecutarse  la  segunda  orden  !  BANKWRITE,  el  puntero  apunta  al  registro  2,  y  es  en 
el  donde  se  almacena  c$. 

Escriba: 

PRINT    r% 
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El  resultado  deberfa  ser  2.  Este  niimero  se  puede  considerar  como  el  niimero  del  ultimo  re- 
gistro  sobre  el  que  se  ha  operado,  o  bien  como  el  niimero  del  registro  actual  menos  uno. 
En  este  ejemplo,  el  ultimo  registro  utilizado  es  el  2;  el  registro  actual  (o  sea,  el  registro 
sobre  el  que  actuara  la  proxima  orden  de  RAMdisc  si  no  se  especifica  otra  cosa)  es  el  3. 

Esta  variable,  r%,  proporciona  siempre  information  acerca  de  como  se  ha  desarrollado 
la  ultima  operacion.  Si  la  operacion  ha  concluido  con  exito,  la  variable  toma  un  valor 
positivo  que  representa  un  numero  de  registro.  En  caso  contrario,  el  valor  es  negativo 
e  indica  un  codigo  de  error.  I  BANKWRITE  y  !  BANKREAD  pueden  generar  los  dos 
codigos  de  error  siguientes: 

- 1  Indica  que  se  ha  alcanzado  el  final  del  fichero.  Esto  ocurre  cuando  ya  se  han  utili- 
zado todos  los  registros  o  cuando  se  especifica  un  numero  de  registro  que  no  existe. 

-2  Indica  un  fallo  en  la  conmutacion  de  bancos.  No  deberia  ocurrir  nunca. 

Pruebe  los  siguientes  ejemplos: 

d*=STRING$(20, "X") 
!BANKOPEN,20 
FOR  r,  =  l  TO  3:  ! BANKWRITE, @r%, d$:  NEXT 

La  primera  orden  asigna  a  la  variable  literal  d$  una  cadena  formada  por  20  letras  'X'. 
!  BANKOPEN  reinicializa  el  puntero  de  registros  a  0,  de  modo  que  !  BANKWRITE  es- 
cribe la  cadena  d$  en  los  registros  0,  1  y  2,  borrando  su  contenido  anterior. 

Ahora  escriba: 

a$=" PRIMERO" 

! BANKWRITE, @r%, a*, 0 

Estas  ordenes  escriben  la  palabra  'PRIMERO'  en  el  registro  0,  superponiendola  a  algu- 
nas  de  las  'X'  que  habia  antes  en  el.  Vuelva  a  igualar  d$  a  una  cadena  de  espacios  con 

d*=SPACE*<20) 

y  escriba 

!  BANKREAD,  @r%,d*,0 

Esta  orden  lee  el  registro  0  y  asigna  su  contenido  a  d$. 

Repasemos  todo  lo  que  hemos  hecho  hasta  ahora.  Hemos  escrito  en  los  tres  primeros 
registros  sendas  cadenas  formadas  por  20  letras  'X'  cada  una.  Hemos  cambiado  las  le- 
tras 'X'  del  registro  0  por  la  palabra  'PRIMERO'.  Finalmente,  hemos  vuelto  a  definir 
d$  como  una  cadena  de  20  espacios.  Si  ahora  escribimos 

PRINT    d* 
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el  resultado  debe  ser  'PRIMEROXXXXXXXXXXXXX'.  Este  ejemplo  ilustra  una 
consideration  importante  que  se  debe  tener  presente  al  utilizar  estas  ordenes.  Si  la  cade- 
na  que  se  escribe  en  un  registro  no  lo  llena  completamente,  los  caracteres  antiguos  so- 
bre  los  que  no  se  ha  escrito  seguiran  estando  en  el  registro.  Esto  puede  ser  ventajoso 
en  ocasiones,  pero  en  general  sera  conveniente  escribir  una  cadena  de  espacios  (o  sea, 
de  caracteres  ASCII  32)  en  el  registro  antes  de  actualizar  la  information  en  el  almacena- 
da.  Lo  mismo  se  puede  decir  acerca  de  la  cadena  a  la  que  se  va  a  asignar  los  caracteres 
leidos  en  un  registro:  si  la  longitud  de  la  cadena  es  mayor  que  la  longitud  del  registro, 
al  final  de  ella  quedaran  caracteres  que  no  habran  resultado  de  la  operation  de  lectura. 
Esta  es  la  razon  por  la  que  hemos  borrado  (o  igualado  a  una  cadena  de  espacios)  la 
cadena  d$  antes  de  asignar  el  contenido  del  registro  0. 

Es  posible  escribir  una  cadena  en  un  registro  que  sea  demasiado  corto  para  retibir  la 
cadena  completa.  En  tal  caso  se  ignoran  los  caracteres  de  la  cadena  (los  ultimos  por 
la  derecha)  que  no  quepan  en  el  registro. 

Analogamente,  si  se  lee  un  registro  y  se  asigna  su  contenido  a  una  cadena  demasiado 
corta,  los  caracteres  que  no  quepan  en  ella  seran  ignorados.  En  las  operaciones  norma- 
les  con  cadenas,  BASIC  ampliarfa  automaticamente  la  cadena  para  aceptar  todos  los 
caracteres,  pero  esto  no  es  asi  cuando  se  utilizan  ordenes  externas. 

Finalmente,  vamos  a  describir  la  orden  !  BANKFIND.  Esta  orden  sirve  para  examinar 
los  registros  en  busca  de  una  sucesion  de  caracteres  especificada.  Por  ejemplo,  si  el  re- 
gistro niimero  24  empieza  con  la  palabra  'DANIEL',  la  orden 

! BANKFIND, @r%, "DANIEL" 

la  encontrara.  Esta  funtion  es  extremadamente  litil  en  los  programas  de  bases  de  datos, 
en  los  cuales  se  puede  necesitar,  por  ejemplo,  buscar  un  nombre  a  lo  largo  del  fichero. 

!  BANKFIND  inicia  la  biisqueda  a  partir  del  registro  actual  y  la  continua  hasta  que  en- 
cuentra  la  cadena  o  hasta  el  final  de  los  64K  de  memoria,  si  no  se  especifica  otra  cosa. 

Se  puede  incluir  un  parametro  para  especificar  el  niimero  de  registro  a  partir  del  cual 
se  debe  buscar.  Despues  de  este  se  puede  incluir  otro  parametro  para  especificar  en  que 
niimero  de  registro  se  debe  interrumpir  la  biisqueda. 

!  BANKFIND  tambien  puede  buscar  una  cadena  que  no  este  al  principio  de  registro. 
Para  ello,  al  principio  de  la  cadena  buscada  se  incluyen  tantos  caracteres  chr$(0)  como 
posiciones  haya  en  el  registro  antes  de  los  buscados.  Los  caracteres  chr${0)  actiian  co- 
mo 'simbolos  comodin'  (como  los  ?  en  los  nombres  de  ficheros  de  CP/M),  con  el  signi- 
ficado  de  'cualquier  caracter'.  Por  ejemplo, 

a*=STRING*<10,0>  +"DANIEL" 
!  BANKFIND,  <lr%,a$,0 

busca  el  primer  registro  en  el  que  figure  la  palabra  'DANIEL'  en  las  posiciones  11.. a 
a  16.a  Los  diez  primeros  caracteres  del  registro  podrian  contener  un  niimero  de  telefo- 
no  o  cualquier  otra  information  que  !  BANKFIND  ignoraria. 
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Al  concluir  la  operation,  la  variable  r%  contiene  el  numero  del  registro  en  el  que  se 
ha  encontrado  la  cadena,  o  bien  el  c6digo  -3  si  no  se  la  ha  encontrado. 


Information  adicional 


En  el  capitulo  8  se  puede  encontrar  mas  informaci6n  sobre  el  gestor  de  bancos;  estudie 
tambien  las  partes  13  y  14  del  capitulo  7,  en  las  que  se  describen  las  RSX. 

Finalmente,  antes  de  proseguir,  asegiirese  de  que  ha  tenido  en  cuenta  las  advertencias 
que  hemos  hecho  al  principio  de  este  manual,  en  la  section  titulada  'IMPORT ANTE': 

NOTAS  DE  OPERACI6N  1,  2,  3  y  9  (pags.  4  y  5). 


Aqui  termina  este  'Curso  de  introducci6n'  al  CPC6128.  Es  de  esperar  que  usted  haya 
aprendido  para  que  sirve  la  mayor  parte  de  las  teclas,  c6mo  utilizar  las  instrucciones 
mas  sencillas  de  BASIC,  c6mo  preparar  un  disco  virgen,  c6mo  realizar  las  funciones 
mas  elementales  de  manejo  de  discos,  tales  como  LOAD,  SAVE  y  CAT,  y  c6mo  utilizar 
unas  cuantas  6rdenes  de  AMSDOS,  CP/M  y  el  gestor  de  bancos. 

En  el  resto  del  manual  abordaremos  cuestiones  mas  avanzadas.  Estudiaremos  el 
BASIC  de  AMSTRAD,  el  funcionamiento  de  la  unidad  de  disco,  con  secciones  dedica- 
das  a  AMSDOS  y  CP/M,  y  daremos  una  introducci6n  a  un  nuevo  lenguaje:  el  DR. 
LOGO  de  Digital  Research. 

jBuena  suerte  y  que  disfrute! 
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Capitulo  2 

La  genesis  de  un  programa 


Pues  bien.  Usted  ya  ha  lefdo  el  'Curso  de  introduction'  y  tiene  ante  si  el  ordenador 
encendido.  Ya  sabe  c6mo  hacer  que  el  ordenador  repita  una  tarea  varias  veces  con  la 
instruction  FOR  . . .  NEXT  y  como  hacerle  realizar  operaciones  de  forma  conditional 
con  la  instrucci6n  IF  ...  THEN  ...  . 

Pero  pronto  empezara  a  cansarse  de  ver  su  nombre  repetido  hasta  la  saciedad  en  la  pan- 
talla  y  querra  aprender  algo  de  informatica  mas  seria,  algo  litil  o  divertido.  En  el  capi- 
tulo siguiente  damos  la  lista  de  todas  las  palabras  clave  del  BASIC  de  AMSTRAD,  jun- 
to con  su  sintaxis,  es  decir,  la  forma  de  utilizarlas.  Con  estas  herramientas  en  la  mano, 
el  linico  limite  a  lo  que  puede  obtener  del  ordenador  lo  fijara  su  imagination. 

Si  no  ha  utilizado  antes  ningun  otro  ordenador,  es  probable  que  la  palabra  'programa- 
cion'  le  suene  amenazadora.  jNo  le  tenga  miedo!  Programar  es  mas  facil  de  lo  que  us- 
ted cree,  y  desde  luego  mucho  mas  facil  de  lo  que  la  jerga  tecnica  da  a  entender. 

No  se  deje  asustar  por  BASIC  y  vera  que  pronto  empieza  a  disfrutar  de  la  programa- 
cion  y  de  los  frutos  de  su  esfuerzo.  Programar  puede  llegar  a  ser  un  ejercicio  muy  grati- 
ficante,  en  particular  para  el  principiante  que  se  pone  a  experimentar  con  la  maquina 
y  el  lenguaje.  Recuerde  siempre  que,  a  exception  del  riesgo  de  borrar  accidentalmente 
los  discos  de  CP/M,  nada  que  usted  haga  en  el  teclado  puede  danar  el  ordenador;  siem- 
pre vale  la  pena  intentar  algo  nuevo. 


^Por  donde  empezamos? 

En  programacion,  como  en  muchas  otras  actividades,  lo  mas  dificil  es  empezar.  Sin 
embargo,  lo  peor  que  puede  hacer  es  lanzarse  directamente  al  teclado  sin  antes  pensar 
para  que. 

El  primer  paso  en  el  desarrollo  de  un  programa  debe  ser  establecer  claramente  que  se 
pretende  que  el  programa  haga  y  como  se  quiere  que  presente  los  resultados  en  la 
pantalla. 

Decidido  esto,  se  puede  empezar  a  escribir  un  programa  que  realice  las  funciones  desea- 
das,  preocupandose  siempre  de  que  el  programa  discurra  suavemente  de  principio  a  fin, 
con  el  minimo  numero  de  saltos  posible.  Un  buen  programa  debe  ser  facil  de  leer  una 
vez  listado,  no  un  ho  indescifrable  que  haga  imposible  la  detection  de  errores  o  la  depu- 
ration del  programa. 

Afortunadamente,  BASIC  es  un  lenguaje  muy  tolerante  que  facilita  la  depuration  de 
los  programas  emitiendo  mensajes  que  indican  donde  esta  el  error  y  en  que  consiste. 
Ademas,  hace  posible  la  ampliaci6n  de  los  programas,  pues  permite  intercalar  lineas 
nuevas  entre  las  ya  existentes. 
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Un  programa  sencillo 

Manos  a  la  obra.  Vamos  a  escribir  un  programa  que  controle  y  mantenga  un  fichero 
con  los  nombres  y  niimeros  de  telefono  de  nuestros  amigos.  Le  llamaremos  'gufa  de 
telefonos'.  Para  respetar  las  reglas  que  hemos  enunciado,  '<,que  debe  hacer  el  progra- 
ma?'; 'icomo  debe  presentar  los  resultados  en  la  pantalla?' 

El  programa  debe  permitirnos  almacenar  100  nombres  y  niimeros  de  telefono.  Cuando 
queramos  averiguar  un  mimero  de  telefono,  escribiremos  el  nombre  y  el  ordenador  nos 
dara  el  mimero.  Ademas,  por  si  no  recordamos  como  habfamos  escrito  algiin  nombre, 
el  programa  debe  ser  capaz  de  exhibir  toda  la  informacion  en  la  pantalla.  Dicho  sea 
de  paso,  esto  ya  nos  hace  empezar  a  pensar  en  la  forma  de  presentation  de  los  resulta- 
dos en  la  pantalla. 

De  acuerdo,  vamos  al  teclado.  Empezaremos  por  escribir  el  nombre  del  programa: 
10   REM   guia   de    telefonos 

No  es  imprescidible  dar  nombre  a  todos  los  programas,  pero  comprobara  cuando  tenga 
grabados  unos  cuantos  que  es  muy  litil  poder  averiguar  de  un  golpe  de  vista  cual  es 
cual. 

Lo  siguiente  que  necesitamos  es  poder  captar  por  el  teclado  (con  INPUT)  una  cadena 
de  caracteres  (quiza  un  nombre)  para  luego  poder  asignarlo  a  una  variable.  A  la  varia- 
ble que  represente  el  nombre  le  llamaremos  IMOMBRE$.  Lo  mismo  se  puede  hacer  con 
el  mimero  de  telefono;  a  la  variable  le  llamaremos  TEL$. 

iRecuerda  todavfa  los  programas  del  'Curso  de  Introduction'?  En  algunos  de  ellos  uti- 
lizabamos  la  instruction  INPUT  para  captar  los  valores  de  las  variables.  Escribamos: 

20  INPUT  "Escriba  el  nombre: "; NOMBRE* 

30  INPUT  "Escriba  el  numero  de  tele-f  ono:  " ;  TEL* 

run 

En  respuesta  al  programa  podemos  introducir  un  nombre  (por  ejemplo,  Juan)  y  luego 
un  numero  de  telefono  (por  ejemplo,  923  233717). 

El  programa  ha  almacenado  la  informacion  que  le  hemos  sumistrado,  pero  no  ha  escri- 
to ningiin  resultado  en  la  pantalla.  Asi  pues,  en  algiin  lugar  del  programa  necesitaremos 
instrucciones  del  tipo 

PRINT    NOMBRE*       ...     y    ...       PRINT    TEL* 

con  las  que  recuperemos  los  valores  de  las  variables. 

Algo  falla,  iverdad?  Dijimos  que  nuestro  programa  deberia  ser  capaz  de  almacenar  100 
nombres  con  sus  niimeros  de  telefono;  si  seguimos  por  este  camino,  necesitaremos  200 
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instrucciones  INPUT  para  escribrir  la  lista  en  la  pantalla.  No  se  inquiete;  los  ordenado- 
res  tienen  un  recurso  que  permite  manejar  con  facilidad  grandes  cantidades  de  datos: 
se  trata  de  las  'listas'.  Una  lista  es  una  variable  que  puede  representar,  con  un  solo 
nombre  (tal  como  NOMBRE$),  un  grupo  de  datos  (en  nuestro  caso  necesitamos  100) 
que  se  identifican  por  un  indice.  Cuando  queramos  referirnos  a  un  dato  concreto,  lo 
citaremos  por  el  nombre  de  la  variable  seguido  del  indice  entre  parentesis;  por  ejemplo, 
NOMBRE$(27),  donde  27  es  el  indice  y  NOMBRES$  es  lo  que  denominamos  variable 
indexada.  Si  como  indice  ponemos  una  variable  numerica,  NOMBRE$(x),  en  lugar  de 
un  mimero  concreto,  podemos  manejar  la  lista  completa  de  datos,  del  1  al  100,  varian- 
do  el  valor  de  x  dentro  de  un  bucle  FOR  . . .  NEXT  (v.  g.,  FOR  x=1  TO  100).  A  medida 
que  se  va  incrementando  el  valor  de  x,  el  indice  de  NOMBRE$  va  sefialando  los  dife- 
rentes  elementos  de  la  lista. 

En  nuestro  programa  necesitamos  dos  listas,  NOMBRE$  y  TEL$,  cada  una  con  capaci- 
dad  para  100  elementos.  Pero  tenemos  que  informar  al  ordenador  de  nuestras  intencio- 
ne,  y  para  ello  debemos  dimensionar  las  listas  con  la  instruction  DIM.  Cambiemos  las 
lineas  20  y  30: 

20  DIM  NOMBRE* (100) 
30  DIM  TEL*<100) 

Ahora  ya  podemos  escribir  el  tramo  del  programa  que  nos  va  a  permitir  introducir 
nombres  y  numeros  de  telefono.  Aflada  las  siguientes  lineas: 

40  FOR  x=i  TO  100 

50  INPUT;"  Nombre  "; NOMBRE* ( x ) 

60  INPUT  "  Tele-fono  ";TEL*(x) 

70  NEXT 

run 

Pero  no  es  probable  que  vayamos  a  introducir  los  100  nombres  de  una  vez,  y  ademas 
la  forma  de  presentation  en  la  pantalla  es  muy  desordenada.  Tenemos  que  organizar- 
nos  mejor.  En  primer  lugar,  antes  de  captar  un  nombre,  vamos  a  librarnos  de  todo  el 
texto  superfluo  que  tenemos  en  la  pantalla: 

45   els 

iQue  podemos  hacer  para  decirle  al  ordenador  que  de  momento  ya  no  queremos  intro- 
ducir mas  datos?  Podemos  detener  el  programa  pulsando  [ESC]  dos  veces,  pero  cuan- 
do volvamos  a  teclear  run  perderemos  todos  los  datos  introducidos  anteriormente. 

Esta  es  la  solution.  Cada  vez  que  el  programa  capte  un  nuevo  nombre,  haremos  que 
examine  el  dato  introducido  para  ver  si  consta  de  al  menos  un  caracter  o  si,  por  el  con- 
trario,  es  la  'cadena  vacia'.  Si  lo  es,  haremos  que  suspenda  la  captation  de  datos.  Afla- 
da lo  siguiente: 


IF  NOMBRE*<x)="n  THEN  80 
80  PRINT  "Fin  de  la  entrada  de  datos' 


o  j 
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Tambien  necesitamos  que  el  ordenador  indique  al  usuario  que  debe  hacer  para  suspen- 
der la  introduction  de  datos.  Afiada,  pues,  la  siguiente  linea: 

47  PRINT  "Pulse  [RETURN]  para  terminer" 

Ahora  vamos  a  escribir  las  instrucciones  que  exhiban  en  la  pantalla  la  information  al- 
macenada.  Primero  la  lista  completa: 

90  FOR  x=l  TO  100 

100  PRINT  N0MBRE*(x)5"  "  ;TEL*(X) 

110  NEXT 

Otra  vez  nos  ocurre  que  el  programa  no  sabe  d6nde  pararse  y  continiia  hasta  el  centesi- 
mo  elemento.  Esto  tiene  facil  arreglo: 

95  IF  NOMBRE* (x)=""  THEN  120 
120  PRINT  "Fin  de  la  lista" 

La  linea  95  comprueba  si  NOMBRE$(x)  es  la  cadena  vacia;  si  lo  es,  concluye  la  escritu- 
ra  de  la  lista  saltando  a  la  linea  120. 

Atendamos  a  los  otros  requisitos  que  habiamos  formulado  al  idear  el  programa.  Nece- 
sitamos unas  instrucciones  que  busquen  en  la  lista  un  nombre  introducido  por  el  ususa- 
rio.  Escriba  lo  siguiente: 

130  INPUT  "Bu5car  " ; BUSCA* 

140  FOR  x=l  TO  100 

150  IF  INSTR (NOMBRE* <x) ,BUSCA*)=0  THEN  180 

160  PRINT  N0MBRE*<x) ; "  " ;TEL*<x) 

170  END 

180  NEXT 

190  PRINT"No  Id  encuentro" 

En  la  linea  150  hay  una  instruction  nueva:  INSTR.  Esta  instruction  determina  si  la  ca- 
dena literal  BUSCA$  (que  es  el  nombre  que  estamos  buscando,  captado  en  la  linea  130) 
esta  contenida  en  NOMBRE$(x).  Si  no  lo  esta,  INSTR  genera  el  valor  0,  y  entonces 
el  programa  salta  a  la  linea  180  para  probar  con  el  siguiente  valor  de  x.  Si  el  programa 
ha  examinado  sin  exito  todos  los  elementos  de  la  lista,  continiia  en  la  linea  190,  donde 
informa  de  lo  que  ha  ocurrido.  En  cambio,  si  encuentra  el  nombre,  INSTR  produce 
un  valor  mayor  que  0,  lo  que  permite  que  el  programa  pase  de  la  linea  150  a  la  160 
para  escribir  el  nombre  y  el  mimero  de  telefono  y  luego  terminar  con  la  instrucci6n 
END  de  la  linea  170. 

Como  ve,  nuestro  programa  avanza  muy  deprisa,  pero  todavia  nos  queda  mucho  por 
hacer.  Meditemos  un  poco  sobre  los  inconvenientes  de  este  programa,  empezando  por 
el  orden  en  que  funciona:  primero  capta  la  information,  despues  la  escribe  completa 
en  la  pantalla,  luego  busca  un  nombre  concreto. 
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iQue  ocurre  si  . . .  ? 

Precisamente.  iQue  ocurre  si  no  queremos  que  los  acontecimientos  se  produzcan  en 
ese  orden?  Podriamos  querer  consultar  un  telefono  que  introdujimos  ayer.  O  podria- 
mos  querer  ampliar  la  lista  con  otros  nombres.  Esto  nos  plantea  nuevos  problemas,  pa- 
ra los  que  tenemos  que  encontrar  solucidn.  Despuds  de  todo,  en  esto  es  en  lo  que  consis- 
te  la  programaci6n.  Ya  hemos  dicho  que  BASIC  es  muy  amable  y  nos  permite  rectificar 
e  incluir  nuevas  instrucciones  con  gran  facilidad;  pero  un  buen  programador  habria 
pensado  en  todo  esto  de  antemano. 

Otro  grave  inconveniente  del  programa  consiste  en  que  las  listas  quedan  almacenadas 
solamente  en  la  memoria  del  ordenador,  la  cual  se  borra  cada  vez  que  se  apaga  el  orde- 
nador.  De  poco  nos  serviria  este  programa  si  tuvieramos  que  escribir  todos  los  datos 
cada  vez  que  lo  ejecutasemos;  asi  pues,  necesitamos  que  el  programa  pueda  grabar  los 
valores  de  los  elementos  de  NOMBRE$  y  TEL$  antes  de  que  apaguemos  el  ordenador, 
y  tambidn  que  pueda  cargar  los  datos  cada  vez  que  lo  ejecutemos. 


Soluciones 

El  primero  de  los  problemas  mencionados  (el  del  orden  de  ejecuci6n)  se  resuelve  ha- 
ciendo  que  el  programa  de  la  posibilidad  de  elegir  entre  las  funciones  que  sabe  realizar. 
De  un  programa  de  este  tipo  se  dice  que  esta  'controlado  por  menu'  pues,  en  efecto, 
ofrece  un  menu  de  opciones  de  entre  las  cuales  se  elige  la  deseada.  Si  alguna  vez  ha 
sacado  dinero  de  un  cajero  automatico,  ya  ha  utilizado  un  programa  de  ordenador  con- 
trolado por  menu.  Afiadamos  un  menu  a  nuestro  programa: 

32  PRINT"1.  Introd.  datos" 

33  PRINT"2.  Listado" 

34  PRINT"3.  Busqueda" 

35  PRINT"4.  Grabar  de  datos" 

36  PRINT'S.  Car-gar  datos" 

37  INPUT  "Elija  una  opcion  (1-5)  "jel 

38  ON  el  GOSUB  40,90,130 

85  RETURN 
125  RETURN 
170  RETURN 
200  RETURN 

Hemos  hecho  que  el  programa  escriba  la  lista  de  opciones  y  que  capte  la  eleccidn  del 
usuario  mediante  una  instruction  INPUT  para  asignarla  a  la  variable  el.  La  instruction 
ON  el  GOSUB  de  la  linea  38  funciona  de  la  siguiente  forma:  si  el  =  1,  invoca  la  subruti- 
na  de  la  linea  40;  si  el =2,  invoca  la  subrutina  de  la  linea  90,  etc. 


Despu6s  de  la  introduccidn  . . .  2/5 


Puesto  que  todas  las  funciones  estan  ahora  en  subrutinas  (controladas  por  la  instruc- 
tion ON  el  GOSUB),  tienen  que  terminar  en  una  instrucci6n  RETURN.  De  ahi  que 
hayamos  incluido  las  lineas  85,  125,  170  y  200. 

iRecuerda  para  que  sirve  RETURN?  Hace  que  BASIC  retorne  de  la  subrutina  a  la  ins- 
trucci6n  siguiente  a  aquella  que  invoc6  la  subrutina.  En  nuestro  caso,  el  punto  de  retor- 
no  es  la  instruction  siguiente  a  la  linea  38,  que  es  la  linea  40.  Si  dejamos  que  esto  ocu- 
rra,  el  programa  entra  en  la  subrutina  de  'Introduction  de  datos'.  Para  impedirlo  afla- 
dimos  la  linea 

39    GOTO    32 

que  reconduce  el  programa  al  menu. 

Ejecute  el  programa  y  vea  cuanto  hemos  progresado. 

Bien;  vamos  a  echar  un  vistazo  al  listado.  (Detenga  el  programa  pulsando  [ESC]  dos 
veces.)  Escriba: 

LIST 
Esto  es  lo  que  tenemos  por  el  momento: 

10  REM  guia  de  tele-fonos 
20  DIM  NOMBRE*(100) 
30  DIM  TEL* (100) 

32  PRINT"1.  Introd.  datos" 

33  PRINT"2.  Listado" 

34  PRINT"3.  Busqueda" 

35  PRINT"4.  Grabar  datos" 

36  PRINT"5.  Cargar  datos" 

37  INPUT  "Elija  una  opcion  (1-5)  ";el 

38  ON  el  GOSUB  40,90,130 

39  GOTO  32 

40  FOR  x=l  TO  100 
45  CLS 

47  PR I NT "Pulse  [RETURN]  para  terminar" 

50  INPUT;"  Nombre  " ; N0MBRE*(x ) 

55  IF  NOMBRE* (x)=""  THEN  30 

60  INPUT;"  Tele-fono  ";TEL*(x) 

70  NEXT 

80  PRINT  "Fin  de  la  entrada  de  datos" 

85  RETURN 

90  FOR  x  =  l  TO  100 

95  IF  N0MBRE*(x)=""  THEN  120 

100  PRINT  N0MBRE*(x);"  ";TEL*(x) 

110  NEXT 

120  PRINT  "Fin  de  la  lista" 
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125  RETURN 

130  INPUT  "Buscar  " 5 BUSCA* 

140  FOR  x=l  TO  100 

150  IF  INSTR(NOMBRE*(x) , BUSCA*) =0  THEN  180 

160  PRINT  NOMBRE*(x);"  ";TEL*(x) 

170  END 

180  NEXT 

190  PRINT"No  lo  encuentro" 

200  RETURN 

Observe  que  en  algunas  zonas  del  programa  las  instrucciones  estan  muy  apretadas  y 
no  dejan  hueco  para  introducir  otras  nuevas.  Reorganicemos  el  programa  renumeran- 
do  las  lineas.  Escriba: 

RENUM 
LIST 

El  listado  es  ahora: 

10  REM  guia  de  tele-fonos 

20  DIM  NOMBRE*<100) 

30  DIM  TEL* (100) 

40  PRINT"1.  Introd.  datos" 

50  PRINT"2.  Listado" 

60  PRINT"3.  Busqueda" 

70  PRINT"4.  Grabar-  datos" 

80  PRINT"5.  Cargar  datos" 

90  INPUT  "Elija  una  ope  ion  (1-5)  "Jel 

100  ON  el  60SUB  120,210,270 

110  GOTO  40 

120  FOR  x=l  TO  100 

130  CLS 

140  PRINT"Pulse  [RETURN]  para  terminar" 

150  INPUT;"  Nombre  " ; NOMBRE*( x) 

160  IF  NOMBRE*(x)=""  THEN  190 

170  INPUT;"  Tele-fono  ";TEL*(x) 

180  NEXT 

190  PRINT  "Fin  de  la  entrada  de  datos" 

200  RETURN 

210  FOR  x=l  TO  100 

220  IF  NOMBRE*(x)=""  THEN  250 

230  PRINT  NOMBRE*(>;);"  ";TEL*(x) 

240  NEXT 

250  PRINT  "Fin  de  la  lista" 

260  RETURN 
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270  INPUT  "Buscar  " ; BUSCA* 

280  FOR  x  =  l  TO  100 

290  IF  INSTR(NOMBRE*(x> ,BUSCA*>=0  THEN  320 

300  PRINT  NOMBRE*<x)J"  " ; TEL* ( x ) 

310  END 

320  NEXT 

330  PRINT"No  Id  encuentro" 

340  RETURN 


iMucho  mas  limpio!  Pero  sigamos  con  el  programa.  Ahora  queremos  que  cada  vez  que 
introduzcamos  un  dato  nuevo  (nombre  y  niimero),  el  ordenador  lo  coloque  al  final  de 
la  lista  actual,  en  el  primer  lugar  que  encuentre  vacio.  En  esta  ocasi6n  vamos  a  utilizar 
la  instruction  LEN  para  determinar  la  longitud  de  una  cadena  literal.  Especificaremos 
lo  siguiente: 

Si  (IF)  la  longitud  de  NOMBRE$(x)  es  mayor  que  0,  es  decir,  si  ya  hay  un  dato 
en  ese  elemento  de  la  lista,  entonces  (THEN)  ir  a  la  linea  1 80  (que  provoca  el  salto 
al  siguiente  elemento  de  la  lista): 

135    IF    LEN(NOMBRE*(x) ) >0    THEN    180 

Una  soluci6n  sencilla,  <,verdad?  Los  problemas  de  este  tipo  siempre  tienen  soluci6n  si 
conocemos  bien  la  lista  de  instructions  y  nos  paramos  a  pensar  un  poco.  Para  casi 
todas  las  necesidades  hay  casi  siempre  al  menos  una  instrucci6n;  cuanto  mayor  es  la 
experiencia  en  programacion,  mas  inmediatas  son  las  soluciones. 

Vamos  con  otro  requisito  del  programa:  grabar  los  valores  de  las  variables  para  poder 
cargarlos  mas  tarde.  En  la  parte  7  del  'Curso  de  introducci6n'  hemos  explicado  c6mo 
grabar  programas  (con  la  orden  SAVE).  Pero  el  programa  no  es  mas  que  la  herramien- 
ta  que  nos  permite  captar  y  manipular  los  datos;  cuando  grabamos  el  programa  s61o 
estamos  guardando  la  herramienta,  no  los  valores  de  las  variables. 

Asi  pues,  tenemos  que  escribir  una  secci6n  del  programa  que  grabe  los  valores  de  las 
variables.  Para  ello  crearemos  un  'fichero  de  datos'. 

Lo  primero  es  abrir  (OPEN)  un  fichero  en  direction  de  salida  (OUT)  dandole  el  nombre 
de  'datos'.  Despues  escribiremos  (WRITE)  los  valores  de  las  variables  NOMBRE$(x) 
y  TEL$(x),  de  1  a  100,  en  el  fichero;  finalmente,  cerraremos  (CLOSE)  el  fichero  y  retor- 
naremos  (RETURN)  al  menu.  Pondremos  esta  rutina  en  las  lineas  350  y  siguientes.  Pa- 
ra no  tener  que  escribir  los  niimeros  de  linea,  ejecutaremos  la  orden 

AUTO   350 
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que  inicia  la  numeraci6n  automatica  de  las  lineas  a  partir  del  numero  350: 

350  OFENOUT  "dates" 

360  FOR  x-1  TO  100 

370  WRITE  #9,N0MBRE*(x) ,TEL*(x) 

380  NEXT 

390  CLOSEOUT 

400  PRINT"Fin  de  la  grabacion  de  Ids  datos" 

410  RETURN 

Cuando  haya  terminado  de  teclear  la  linea  410  y  haya  pulsado  [RETURN],  pulse  [ESC] 
para  interrumpir  la  funcidn  AUTO. 

Como  tenemos  una  rutina  mas,  tendremos  que  poner  otro  numero  de  linea  en  la  ins- 
truction ON  el  GOSUB  de  la  linea  100.  Para  ello  vamos  a  corregir  (editar,  EDIT)  la 
linea  100: 

100  ON  el  GOSUB  120,210,270,350 

A  partir  de  ahora,  cada  vez  que  elijamos  la  option  4  del  menu,  el  programa  grabara 
el  fichero  de  datos  en  el  disco. 

Observe  la  linea  370,  en  la  que  se  escriben  los  valores  de  NOMBRE$(x)  y  TEL$(x)  en 
el  disco:  la  expresi6n  #9  que  aparece  despues  de  WRITE  es  un  'indicador  de  canal'  que 
especifia  a  que  canal  debe  el  ordenador  enviar  los  datos.  El  ordenador  maneja  10 
canales: 

Los  ocho  primeros  (#0  a  #7)  dirigen  los  datos  a  la  pantalla  [bien  a  la  pantalla  completa, 
bien  a  alguna  ventana  (WINDOW)]. 

El  canal  #8  es  el  de  la  impresora. 

Finalmente,  el  canal  #9  es  el  que  conecta  el  ordenador  con  la  unidad  de  disco;  este  es 
el  que  utilizamos  en  la  instruccidn  370. 


Una  digresion 


Hagamos  un  comentario  sobre  la  orden  AUTO  que  acabamos  de  conocer.  Si  se  escribe 
sencillamente 

AUTO 

el  ordendor  empieza  a  numerar  lineas  a  partir  del  10  y  va  incrementando  el  numero 
de  10  en  10  cada  vez  que  se  pulsa  [RETURN].  Si  ya  existen  lineas  10,  20,  30,  etc.,  su 
contenido  aparece  en  la  pantalla  segiin  se  va  pasando  por  ellas  (pulsando  [RETURN]) 


Despues  de  la  introducci6n  . . .  2/9 


Cuando  aparece  una  linea  en  la  pantalla,  se  la  puede  editar  antes  de  pulsar  [RETURN]. 
Esto  da  un  metodo  para  editar  comodamente  lfneas  cuyos  numeros  esten  uniforme- 
mente  espaciados. 


Volvemos  al  programa 

Ya  hemos  escrito  las  instrucciones  que  graban  los  datos  en  disco.  Ahora  nos  falta  ocu- 
parnos  de  la  lectura  de  los  datos  para  ponerlos  a  disposition  del  programa.  Como  va- 
mos  a  escribir  una  nueva  rutina,  tendremos  que  poner  otro  numero  de  linea  en  la  ins- 
truction ON  el  GOSUB.  Editemos  la  linea  100: 

100    ON    el    GOSUE    120,210,270,350,420 

Para  leer  los  datos  tenemos  que  empezar  por  abrir  (OPEN)  en  direction  de  entrada  (IN) 
el  fichero  que  tenemos  en  el  disco  con  el  nombre  de  'datos'.  Despues  leemos  con  IN- 
PUT (por  el  canal  #9)  los  valores  de  las  variables  NOMBRE$(x)  y  TEL$(x),  de  1  a  100, 
y  finalmente  cerramos  (CLOSE)  el  fichero  y  retornamos  (RETURN)  al  menu.  Escriba 
las  siguientes  lineas: 

420  OPENIN  "datDs" 

430  FOR  x  =  l  TO  100 

440  INPUT  #9 , NOMBRE* <  x )  , TEL* ( x ) 

450  NEXT 

460  CLOSEIN 

470  PRINT-Fin  de  la  carga  de  Ids  datos" 

4S0  RETURN 


£1  fin  del  principio 

Por  fin  hemos  conseguido  un  programa  que  realiza  todas  las  funciones  previstas.  Todo 
lo  que  nos  queda  ahora  es  ocuparnos  de  como  presentar  los  resultados  en  la  pantalla. 


£1  principio  del  fin 


Para  mejorar  el  manejo  de  la  pantalla  vamos  a  afladir  unas  cuantas  instrucciones: 
34   MODE    1 
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Esta  instruction  establece  el  modo  de  pantalla  y  borra  la  pantalla  al  principio  del  pro- 
grama.  Afiada  ahora  lo  siguiente: 

36    WINDOW    #1,13,30,10,14 

No  se  deje  impresionar  por  esta  instruction  aparentemente  tan  complicada.  Lo  que  ne- 
mos hecho  es  definir  una  ventana  en  la  pantalla  para  escribir  en  ella  el  menu.  Despues 
de  la  palabra  WINDOW,  lo  primero  que  ponemos  es  el  numero  del  canal  al  que  vamos 
a  asignarla;  recuerde  que  podemos  elegir  cualquiera  entre  el  0  y  el  7.  Ahora  bien,  si 
tenemos  en  cuenta  que  todos  los  textos  que  enviamos  a  la  pantalla  sin  especificar  nume- 
ro de  canal  circulan  por  el  #0,  no  vamos  a  dar  este  numero  a  nuestra  ventana.  Elegi- 
mos,  pues,  el  numero  1.  Los  cuatro  mimeros  que  vienen  a  continuation  especifican  el 
tamaflo  de  la  ventana.  Su  significado  no  podia  ser  mas  sencillo:  columna  del  borde  iz- 
quierdo,  columna  del  derecho,  primera  fila  y  ultima  fila,  por  este  orden.  En  nuestro 
caso,  despues  de  especificar  el  canal  #1,  hemos  dicho  al  ordenador  que  la  ventana  em- 
pieza  en  la  columna  numero  13  y  termina  en  la  numero  30,  en  horizontal,  y  que  empieza 
en  la  fila  10  y  termina  en  la  14,  en  vertical. 

Para  dirigir  los  textos  del  menu  al  canal  #1  debemos  editar  las  lineas  40  a  80: 


40 

PRINT 

ttl,  "1. 

Introd.  dates" 

50 

PRINT 

ttl,  "2. 

Listado" 

60 

PRINT 

t*l,  "3. 

Busaueda" 

70 

PRINT 

t*  1 ,  "  4  . 

Grabar  datos" 

80 

PRINT 

*tl,  "5. 

Cargar-  datos" 

Afladamos  tambien 

35    LOCATE    7,20 

para  situar  el  texto  de  la  linea  90. 

Para  borrar  la  pantalla  cada  vez  que  el  programa  retorne  al  menu,  modifiquemos  la 
linea  110: 

110   GOTO    34 

Ademas,  para  borrar  la  pantalla  cada  vez  que  se  selecciona  una  option  del  menu 
anadimos: 

95    CLS 

Finalmente,  incluiremos  las  tres  lineas  siguientes  para  hacer  que  el  retorno  al  menu  sea 
controlado  por  el  usuario: 

103  LOCATE  9,20 

105  PRINT  "Pulse  una  tecla  para  volver  al  menu" 

107  IF  INKEY*=H"  THEN  107 
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La  linea  103  especifica  donde  se  debe  escribir  el  mensaje  de  la  linea  105.  La  linea  107 
examina  el  teclado  para  averiguar  si  se  ha  pulsado  alguna  tecla.  Si  no  se  ha  pulsado 
ninguna,  INKEY$  genera  la  cadena  vacia  y  entonces  se  repite  la  ejecucidn  de  la  linea 
hasta  que  efectivamente  se  pulse  alguna.  Esta  es  la  forma  habitual  de  programar  la  es- 
pera  'hasta  que  el  usuario  se  decida',  pues  BASIC  no  pasa  a  la  linea  siguiente  mientras 
no  se  pulse  una  tecla. 

Bueno,  ya  hemos  terminado.  O  quiza  no,  porque  podriamos  incluir  la  posibilidad  de 
modificar  o  borrar  nombres  y  numeros  de  telefono,  de  ordenarlos  alfabeticamente,  de 
listarlos  por  la  impresora,  etc.  Todas  estas  mejoras  son  posibles;  podriamos  seguir  me- 
jorando  y  depurando  el  programa  indefinidamente,  pero  en  algiin  momento  tenemos" 
que  poner  el  punto  y  aparte,  y  6ste  es  tan  bueno  como  cualquier  otro.  Le  dejamos, 
pues,  con  este  programa  de  'guia  de  telefonos',  confiando  en  haberle  abierto  las  puer- 
tas  del  arte  de  programar.  Adecente  el  programa  con  la  orden 

RENUM 

y  grabelo  en  disco;  o  borrelo  si  no  le  gusta.  Quien  sabe;  quiza  pueda  necesitarlo  algiin 
dia. 

Listado  final: 

10  REM  guia  de  tele-Fonos 

20  DIM  NOMBRE*(100) 

30  DIM  TEL* (100) 

40  MODE  1 

50  WINDOW  #1,13,30,10,14 

60  PRINT  #1,"1.  Introd.  dates" 

70  PRINT  #1, "2.  Listado" 

80  PRINT  #1,"3.  Busqueda" 

90  PRINT  #1,"4.  Grabar  datDs" 

100  PRINT  #1,"5.  Cargar  datDs" 

110  LOCATE  7,20 

120  INPUT  "Elija  una  opcion  (1-5)  ";el 

130  CLS 

140  ON  el  GOSUB  190,290,350,430,500 

150  LOCATE  9,20 

160  PRINT-Pulse  una  tecla  para  volver  al  menu" 

170  IF  INKEY*="n  THEN  170 

180  GOTO  40 

190  FOR  x=l  TO  100 

200  CLS 

210  IF  LEN(NOMBRE*(x) ) >0  THEN  260 

220  PRINT "Pulse  [RETURN]  para  terminar" 

230  INPUT;"  Nombre  " ; NOMBRE* ( x ) 

240  IF  NOMBRE*(x)=""  THEN  270 

250  INPUTS"  Tele-fono  ";TEL*(x) 
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260  NEXT 

270  PRINT  "Fin  de  la  entrada  de  datos" 

280  RETURN 

290  FOR  x  =  l  TO  100 

300  IF  NOMBRE*(x)=" "  THEN  330 

310  PRINT  NOMBRE*(x);"  " 5  TEL* ( x ) 

320  NEXT 

330  PRINT  "Fin  de  la  lista" 

340  RETURN 

350  INPUT  "Buscar  " JBUSCA* 

360  FOR  x=l  TO  100 

370  IF  INSTR(NOMBRE*(x) ,BUSCA*)=0  THEN  400 

380  PRINT  NOMBRE* < x ) 5 "  " 5  TEL* ( x ) 

390  END 

400  NEXT 

410  PRINT"No  Id  encuentro" 

420  RETURN 

430  OPENOUT  "datos" 

440  FOR  x=l  TO  100 

450  WRITE  #9,NOMBRE*(x) , TEL* ( x ) 

460  NEXT 

470  CLOSEOUT 

480  PRINT"Fin  de  la  grabacion  de  Ids  datos" 

490  RETURN 

500  OPENIN  "datos" 

510  FOR  x=l  TO  100 

520  INPUT  #9,N0MBRE*(x) ,TEL*(x) 

530  NEXT 

540  CLOSEIN 

550  PRINT"Fin  de  la  car-ga  de  los  datos" 

560  RETURN 
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Capitulo  3 

Lista  completa  de  las  palabras  clave  del 

BASIC  de  AMSTRAD 


IMPORTANTE 

Es  imprescindible  que  usted  comprenda  la  terminologia  y  la  notation 
utilizadas  en  este  capitulo.  Para  describir  la  sintaxis  de  las  diversas  ins- 
trucciones  utilizamos  tanto  parentesis  como  corchetes.  Es  necesario  dis- 
tinguirlos,  pues  tienen  significados  diferentes. 

Toda  instruction,  o  parte  de  instruction,  no  encerrada  entre  corchetes  debe  ser  escrita 
tal  como  aqui  se  muestra.  Por  ejemplo,  la  instruction  END  tiene  la  forma: 

END 

Usted  tiene  que  escribir  la  palabra  END  literalmente. 

Cuando  un  texto  esta  encerrado  entre  corchetes  angulados,  por  ejemplo 

(nuiero  de  linea) 

no  hay  que  teclear  ni  los  corchetes  ni  las  palabras  en  ellos  incluidas.  El  texto  es  una 
indication  del  tipo  de  datos  que  se  debe  escribir.  Por  ejemplo, 

EDIT    (nuiero  de  linea) 

significa  que  hay  que  escribir  la  palabra  EDIT  y  a  continuation  un  espacio  y  un  mimero 
de  linea: 

EDIT    100 

Los  parentesis  ordinarios  (  )  son  obligatorios  y  han  de  ser  tecleados  expli'citamente.  Por 
ejemplo, 

COS((expre;ion  nuiericz)) 

exige  que  se  escriban  los  parentesis  rodeando  la  expresi6n  numerica  cuyo  coseno  se 
quiera  calcular: 

PRINT  C0S(45> 
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Finalmente,  los  corchetes  delimitan  elementos  opcionales.  Por  ejemplo, 
RUN    Knuiero  de  linea)] 

significa  que  no  es  necesario  poner  un  parametro  despues  de  la  palabra  clave  RUN, 
pero  que  si  se  puede  incluir  ese  parametro;  ademas,  en  caso  de  incluirlo,  tiene  que  ser 
necesariamente  un  mimero  de  h'nea: 

RUN       ...    o    ...       RUN    100 


Caracteres  especiales 

&  o  &H    Prefijo  para  constante  hexadecimal 
&X  Prefijo  para  constante  binaria 

#  Prefijo  para  indicador  de  canal 


Tipos  de  datos 

Las  cadenas  literales  pueden  contener  entre  0  y  255  caracteres.  Una  <  expresion  literal) 
es  una  expresion  que  toma  como  valor  una  cadena  literal.  Las  cadenas  literales  se  pue- 
den concatenar  (unir)  con  el  operador  + ,  a  condition  de  que  la  cadena  resultante  no 
tenga  mas  de  255  caracteres. 

Los  datos  numericos  pueden  ser  enteros  o  reales.  En  este  sentido,  los  enteros  tienen 
la  limitaci6n  adicional  de  estar  comprendidos  entre  -32768  y  +32767.  El  ordenador 
maneja  numeros  reales  con  precision  ligeramente  superior  a  nueve  dfgitos.  Los  nume- 
ros  reales  estan  comprendidos  en  el  margen  ±  1 .7E+38.  El  menor  valor  mayor  que  cero 
es  aproximadamente  2.9E-39. 

Una  <  expresion  numerica)  es  una  expresion  que  toma  como  valor  un  mimero.  Puede 
consistir  en  numeros  concretos,  en  una  variable  numerica  o  en  combinaciones  de  am- 
bos:  cualquier  cosa  que  no  sea  una  < expresion  literal). 

Una  < expresion  de  mimero  de  canal)  es  una  < expresion  numerica)  que  identifica  una 
ventana  de  la  pantalla,  la  impresora  o  la  unidad  de  disco. 

Una  < lista  de:<elemento)  describe  un  parametro  que  esta  formado  por  una  lista  de  ele- 
mentos separados  por  comas.  Puede  contener  uno  o  varios  elementos,  sin  mas  limita- 
tion que  la  longitud  de  la  h'nea. 

Los  indicadores  de  tipo  son: 

%        Entero 

!  Real  (por  defecto) 

$  Literal 
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La  lista  de  las  palabras  clave  tiene  la  siguiente  estructura: 


PALABRA  CLAVE 

Sintaxis 

Ejemplo 

Descripci6n 

Palabras  clave  asociadas 


Las  palabras  clave  pueden  ser: 

tirdenes:  operaciones  que  se  ejecutan  directamente. 

Funciones:         operaciones  que  intervienen  como  argumentos  de  una  expresibn. 

Operadores:       operaciones  que  actuan  sobre  argumentos  matematicos. 

BASIC  convierte  todas  las  palabras  clave  de  minusculas  a  mayusculas  cuando  se  lista 
el  programa.  En  los  ejemplos  las  mostraremos  en  mayusculas.  Es  conveniente  que  us- 
ted  las  introduzca  en  minusculas,  pues  entonces  le  sera  mas  facil  detectar  los  errores, 
dado  que  las  palabras  clave  erroneamente  tecleadas  seguiran  apareciendo  en  minuscula 
en  los  listados. 

En  la  publicacibn  'Concise  BASIC  specification  SOFT  967'  se  da  una  guia  exhaustiva 
del  BASIC  del  AMSTRAC  CPC6128. 


Lista  de  palabras  clave 

ABS 

ABS  <  (expresion  nuierica/ ) 

PRINT    ABS(-67.98) 
67.98 

Funcion.  Calcula  el  valor  absoluto  de  la  expresion  dada;  es  decir,  convierte  los  niimeros 
negativos  en  positivos. 

Palabras  clave  asociadas:  SGN. 
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AFTER 

AFTER   <retardo  del  teBporizadcr>[,<!>uiero  de  teiporizador>J    GOSUB    <nuiero  de  linea) 

10  AFTER  250  GOSUB  60ICLS 

20  PRINT  " Ad i vine  una  letra  en  5  segundos" 

30  a*=INKEY$:lF  i  r.d  i  cador  =  l  THEN  END 

40  IF  a$<>CHR$<INT<RND#26+97)  )  THEN  30 

50  PRINT  a*;"  es  correcto.  Usted  gana. " 

55  SOUND  1,478: SOUND  1,353: END 

60  PRINT  "demasiado  tarde.  Yo  gano. " 

70  SOUND  1,2000: indicador=l:RETURN 

r  u  n 

Orden.  Invoca  una  subrutina  de  BASIC  cuando  ha  transcurrido  el  tiempo  especificado. 
El  parametro  <retardo  del  temporizador)  especifica  el  tiempo  en  unidades  de  0.02  s 
(cincuentavos  de  segundo). 

El  <niimero  de  temporizador)  (margen  de  0  a  3)  especifica  cual  de  los  cuatro  tempori- 
zadores  disponibles  debe  medir  el  tiempo.  El  temporizador  niimero  3  tiene  la  maxima 
prioridad;  el  0  (que  es  el  implicito),  la  minima. 

Cada  temporizador  puede  tener  una  subrutina  asociada. 

Para  mas  amplia  information  sobre  las  interrupciones,  consulte  la  parte  2  del  capitulo 
titulado  'Cuando  usted  guste  . . . ' . 

Palabras  clave  asociadas:  EVERY,  REMAIN,  RETURN. 


AND 

<arguiento>  AND  <arguiento> 

IF  •jiianVpepe1  AND  'perroV'gato'  THEM  PRINT  ■verdadero'  ELSE  PRINT  'false' 

verdadero 

IF  'pepeVjuan'  AND  'gatoV'perro'  THEN  PRINT  'verdadero'  ELSE  PRINT  'falsa' 

falsa 

IF  'juanVpepe'  AND  'gato'>'perro'  THEN  PRINT  'verdadero'  ELSE  PRINT  'falso' 

falso 

PRINT  1  AND  1 
1 

PRINT  I  AND  I 
t 

PRINT  1  AND  0 
t 
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Operador.  Realiza  la  operation  logica  'y'  bit  a  bit  entre  enteros.  El  resultado  es  0  a 
menos  que  ambos  bits  sean  1. 

Para  mas  amplia  information  sobre  operaciones  logicas,  consulte  la  parte  2  del  capitu- 
lo  titulado  'Cuando  usted  guste  . . . '  . 

Palabras  clave  asociadas:  OR,  NOT,  XOR. 

ASC 

ASC  (<expresioit  literal)) 

PRINT    ASC  (">;"> 
120 

Funcion.  Calcula  el  codigo  ASCII  del  primer  caracter  de  la  <expresion  literal). 
Palabras  clave  asociadas:  CHR$. 

ATN 

ATNUexpresion  America)) 

PRINT    ATN(l) 
0.785393163 

Funcion.  Calcula  el  arco  cuya  tangente  es  la  <expresion  numerica). 

Observese  que  se  puede  utilizar  DEG  y  RAD  para  hacer  que  el  resultado  se  de  en  grados 
o  en  radianes,  respectivamente. 

Palabras  clave  asociadas:  COS,  DEG,  RAD,  SIN,  TAN. 

AUTO 

AUTO    Knuiero  de  linea>H,  <increieiito>] 

AUTO    100,50 

Orden.  Genera  mimeros  de  linea  AUTOmaticamente.  El  parametro  opcional  <niimero 
de  linea)  especifica  en  que  niimero  debe  empezar  la  numeration.  Si  se  lo  omite,  el  orde- 
nador  genera  mimeros  de  linea  a  partir  del  10. 

El  parametro  opcional  <incremento)  especifica  el  salto  que  debe  haber  entre  cada  linea 
y  la  siguiente.  Si  se  lo  omite,  el  ordenador  genera  mimeros  de  linea  espaciados  de  10 
en  10. 
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Si  se  genera  un  numero  de  linea  que  ya  ha  sido  utilizado,  el  ordenador  la  muestra  en 
la  pantalla  y  entonces  se  la  puede  editar,  si  es  necesario.  La  linea  editada  sustituye  a 
la  que  esta  en  la  memoria  en  el  momento  de  pulsar  [RETURN]. 

Para  interrumpir  el  proceso  de  numeraci6n  automatica,  pulse  [ESC]. 

Palabras  clave  asociadas:  ninguna. 

BIN$ 

BINS  (<exppesion  entera)! ,  <expresiofi  entera)] ) 

PRINT    BIN$<64,8) 
01000000 

Funcidn.  Produce  una  cadena  de  digitos  binarios  que  representan  el  valor  de  la  primera 
<expresion  entera),  utilizando  el  numero  de  digitos  binarios  especificados  por  la  segun- 
da  <expresi6n  entera)  (margen  de  0  a  16).  Si  el  numero  de  digitos  especificado  es  mayor 
que  el  necesario,  la  expresi6n  resultante  se  completa  con  ceros  por  la  izquierda;  si  el 
numero  de  digitos  especificado  es  demasiado  pequeflo,  la  expresion  resultante  no  se 
trunca,  sino  que  contiene  todos  los  digitos  que  sean  necesarios. 

La  <expresi6n  entera)  que  se  va  a  convertir  en  binario  debe  tener  un  valor  comprendi- 
do  entre  -32768  y  +65535. 

Palabras  clave  asociadas:  DEC$,  HEX$,  STR$. 

BORDER 

BORDER    <CDlof>I,<CDlor>] 

10  REM  729  comb inaci ones  para  el  borde! 

20  SPEED  INK  5,5 

30  FOR  a=0  TO  26 

40  FOR  b=0  TO  26 

50  BORDER  a,b:CLS:LOCATE  14,13 

60  PRINT  "border "; a; ", ";b 

70  FOR  t=l  TO  500 

80  NEXT  t,b,a 

run 

Orden.  Cambia  el  color  del  borde  de  la  pantalla.  Si  se  especifican  dos  colores,  el  del 
borde  alterna  entre  ambos,  a  una  velocidad  que  se  puede  regular  con  la  orden  SPEED 
INK.  El  margen  de  colores  es  de  0  a  26. 

Palabras  clave  asociadas:  SPEED  INK. 
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BREAK 

Vease  ON  BREAK  CONT,  ON  BREAK  GOSUB,  ON  BREAK  STOP. 

CALL 

CALL  <expresioii  de  direction  de  ieioria>[,<li5ta  de:<paraietro>] 
CALL  0 

Orden.  Permite  invocar  desde  BASIC  una  rutina  escrita  en  codigo  de  maquina.  El 
ejemplo  anterior  provoca  la  reinitialization  de  la  maquina. 

Esta  orden  no  debe  ser  utilizada  si  no  se  sabe  cuales  son  sus  efectos. 

Palabras  clave  asociadas:  UNT. 

CAT 

CAT 

CAT 

Orden.  Da  un  catalogo  del  contenido  del  disco.  Presenta  en  la  pantalla,  en  orden  alfa- 
numerico,  los  nombres  completos  de  todos  los  ficheros,  junto  con  las  respectivas  longi- 
tudes (en  unidades  de  Kbytes,  redondeadas  por  exceso).  Tambien  se  muestra  el  espacio 
libre  que  queda  en  el  disco,  asi  como  las  identificaciones  de  la  unidad  y  del  usuario. 

Esta  orden  no  afecta  al  programa  actualmente  residente  en  la  memoria. 

Palabras  clave  asociadas:  LOAD,  RUN,  SAVE. 

CHAIN 

CHAIN    (noibre  de  ficheroX,  <expresion  de  nuiero  de  linea)] 

CHAIN  "programa. bas", 350 

Orden.  Lee  un  programa  grabado  en  disco  y  lo  carga  en  la  memoria  reemplazando  al 
actual.  Inicia  la  ejecucion  del  nuevo  programa,  bien  desde  el  principio,  bien  desde  una 
linea  especificada  por  el  parametro  opcional  <expresion  de  numero  de  linea). 

Los  ficheros  protegidos  (grabados  con  SAVE  ...  ,p)  se  pueden  cargar  y  ejecutar  con 
esta  orden. 

Palabras  clave  asociadas:  CHAIN  MERGE,  LOAD,  MERGE. 
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CHAIN  MERGE 

CHAIN    MERGE   <noibre  de  f ichero>I ,  <expresion  de  nuiero  de  linea)] 

I,  DELETE   <iargen  de  nweros  de  linea)] 

CHAIN  MERGE  H nuevopro. bas" , 750, DELETE  400-680 

Orden.  Lee  un  programa  grabado  en  el  disco,  lo  carga  en  la  memoria  mezclandolo  con 
el  actual  y  empieza  a  ejecutar  el  programa  resultante,  bien  desde  el  principio,  bien  des- 
de  una  linea  especificada  por  el  parametro  opcional  (expresion  de  numero  de  linea). 
Si  se  desea  borrar  parte  del  programa  original  antes  de  iniciar  la  carga  del  nuevo,  se 
puede  utilizar  la  option  DELETE  <margen  de  mimeros  de  linea). 

Observese  que  las  lineas  del  programa  que  se  carga  sustituyen  a  las  que  tuvieran  el  mis- 
mo  numero  en  el  programa  original. 

Los  ficheros  protegidos  (grabados  con  SAVE  ...  ,p)  no  se  pueden  cargar  con  esta 
orden. 

Palabras  clave  asociadas:  CHAIN,  DELETE,  LOAD,  MERGE. 


CHR$ 

CHR$(<expre5ior.  entera)) 

10  FOR  x=32  TO  255 
20  PRINT  x;CHR*(x) , 
30  NEXT 
run 

Funcion.  Convierte  la  (expresion  entera),  que  tiene  que  estar  en  el  margen  de  0  a  255, 
en  su  caracter  equivalente.  El  conjunto  de  caracteres  del  AMSTRAD  se  muestra  en  la 
parte  3  del  capitulo  titulado  'Para  su  referencia  . . .'. 

Observese  que  los  mimeros  0  a  31  generan  caracteres  de  control;  por  esa  razon  los  ne- 
mos excluido  del  ejemplo  anterior. 

Palabras  clave  asociadas:  ASC. 

CINT 

CI  NT  (<expresion  nwerica)) 

10    n= 1.9999 

20    PRINT    CINT(n) 

run 

2 
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Funcion.  Aproxima  el  valor  de  la  <expresion  numerica)  a  un  numero  entero  compren- 
dido  en  el  margen  de  -32768  a  +32767. 

Palabras  clave  asociadas:  CREAL,  FIX,  INT,  ROUND,  UNT. 


CLEAR 

CLEAR 

CLEAR 

Orden.  Borra  todas  las  variables  (iguala  a  cero  las  numericas  y  a  la  cadena  vacia  las 
literales).  Ademas,  se  abandonan  los  ficheros  que  esten  abiertos,  se  borran  todas  las 
listas  y  funciones  definidas  por  el  usuario  y  BASIC  retorna  al  modo  de  radianes  para 
el  calculo  de  funciones  trigonometricas. 

Palabras  clave  asociadas:  ninguna. 
CLEAR  INPUT 

CLEAR  INPUT 

10  CLS 

20  PRINT  "Teclee  letras  ahora!" 

30  FOR  t=l  TO  3000 

40  NEXT 

50  CLEAR  INPUT 

run 

Orden.  Desecha  todos  los  caracteres  tecleados  antes  y  que  todavia  esten  en  el  tampon 
del  teclado;  es  decir,  borra  el  tampon  del  teclado. 

Para  observar  el  efecto  de  esta  orden,  ejecute  el  programa  ejemplo  y  escriba  letras 
cuando  el  ordenador  se  lo  pida.  Borre  luego  la  linea  50  y  vuelva  a  ejecutar  el  programa. 

Palabras  clave  asociadas:  INKEY,  INKEY$,  JOY. 

CLG 

CLG    [<tinta>] 

LOCATE    1,20 
CLG    3 
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Orden.  Borra  la  pantalla  grafica,  dejandola  del  color  del  papel  de  graficos.  Si  se  especi- 
fica  la  <tinta>,  el  papel  de  graficos  toma  ese  color. 

Palabras  clave  asociadas:  CLS,  GRAPHICS  PAPER,  INK,  ORIGIN. 


CLOSEIN 

CLOSEIN 

CLOSEIN 

Orden.  Cierra  el  fichero  de  disco  que  este  abierto  en  direccion  de  entrada  (si  lo  hay). 
(Vease  OPENIN.) 

Palabras  clave  asociadas:  EOF,  OPENIN. 


CLOSEOUT 

CLOSEOUT 

CLOSEOUT 

Orden.  Cierra  el  fichero  de  disco  que  este  abierto  en  direccirin  de  salida  (si  lo  hay). 
(Vease  OPENOUT.) 

Palabras  clave  asociadas:  OPENOUT. 


CLS 

CLS   ltt<expresio»  it  ituwro  de  canal)] 

10   PAPER    t*2,3 
20   CLS    t*2 
run 

Orden.  Borra  la  ventana  (canal  de  pantalla)  especificada,  tinendola  del  color  del  papel. 
Si  no  se  especifica  ninguna  <expresion  de  numero  de  canal),  el  ordenador  borra  la  pan- 
talla #0. 

Palabras  clave  asociadas:  CLG,  INK,  PAPER,  WINDOW. 
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CONT 

CONT 

CONT 

Orden.  Reanuda  la  ejecucion  del  programa  cuando  este  ha  sido  interrumpido,  bien  por- 
que  se  ha  pulsado  la  tecla  [ESC]  dos  veces,  bien  porque  el  programa  ha  encontrado 
la  instrucci6n  STOP.  CONT  solamente  puede  continuar  el  programa  en  el  supuesto  de 
que  no  se  lo  haya  modificado  durante  la  interrupcidn  y  de  que  no  se  trate  de  un  progra- 
ma protegido. 

Palabras  clave  asociadas:  STOP. 

COPYCHR$ 

C0PYCHR*(#<expresi6n  de  nuiero  de  canal) ) 

10   CLS 

20  PRINT  "Extreme  superior  izquierdo" 

30  LOCATE  1, 1 

40  a*=COPYCHR*<#0) 

50  LOCATE  1,20 

60  PRINT  a* 

run 

Funcidn.  Lee  el  caracter  que  hay  en  la  posicion  actual  del  cursor;  la  ventana  tiene  que 
ser  especificada.  El  programa  ejemplo  lee  el  caracter  que  esta  en  la  posicion  1,1  y  lo 
escribe  en  la  posicidn  1,20. 

Si  el  caracter  no  es  reconocible,  esta  funcion  genera  la  cadena  vacia. 

Palabras  clave  asociadas:  LOCATE. 

COS 

COS  (<expresio»  iwieMca)) 

DEG 

PRINT  C0S(45) 
0.707106781 

Funcidn.  Calcula  el  coseno  de  la  <expresion  numerica). 

Observese  que  se  puede  utilizar  DEG  y  RAD  para  hacer  que  el  ordenador  entienda  los 
arcos  como  dados  en  grados  o  en  radianes,  respectivamente. 

Palabras  clave  asociadas:  ATN,  DEG,  RAD,  SIN. 
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CREAL 

CREAL  ( (expresion  America) ) 

10   a=PI 

20    PRINT    CINT(a) 

30  PRINT  CREAL (a) 

run 

3 

3.14159265 

Funcion.  Convierte  el  valor  de  la  (expresion  numerica),  cualquiera  que  sea  su  tipo, 
en  un  niimero  real. 

Palabras  clave  asociadas:  CI  NT. 


CURSOR 

CURSOR    [(coniutador  del  sisteia>][ ,  <coniutador  del  usuario)] 

10   CURSOR    1 

20   PRINT    "pregunta?"; 

30    a*=INKEY*:lF    a*=""    THEN    30 

40    PRINT    a* 

50    CURSOR    0 

run 

Orden.  El  cursor  puede  ser  activado  o  inhibido  por  dos  conmutadores:  el  del  sistema 
y  el  del  usuario.  Esta  orden  controla  los  dos  conmutadores.  Los  parametros  pueden 
ser  0  (inhibido)  o  1  (activado).  En  la  instruction  INKEY$  el  cursor  esta  normalmente 
oculto,  pero  en  el  programa  ejemplo  ha  sido  activado  por  el  valor  1  del  parametro 
(conmutador  del  sistema)  en  la  linea  10. 

Para  que  el  cursor  sea  visible  tienen  que  estar  a  1  los  dos  conmutadores.  El  ordenador 
activa  automaticamente  el  conmutador  del  sistema  para  la  instruction  INPUT,  pero  lo 
desactiva  para  INKEY$. 

Es  conveniente  ocultar  el  cursor  antes  de  escribir  texto  en  la  pantalla. 

Se  puede  omitir  cualquiera  de  los  parametros,  pero  no  los  dos.  Cuando  se  omite  uno 
de  los  parametros,  la  situation  del  correspondiente  conmutador  no  se  modifica. 

Palabras  clave  asociadas:  LOCATE. 
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DATA 

DATA   <1  ista  de:<constante) 

10   FOR    x=l    TO   4 

20  READ  nombre$, apel 1 ido$ 

30  PRINT  "Don  "Jnombre*;"  "japellido* 

40  NEXT 

50  DATA  Manuel , Gonzalez, Daniel , Garcia 

60  DATA  Fel ipe,Revi 1  la, Ernesto, Diaz 

run 

Orden.  Identifica  las  lineas  en  las  que  estan  contenidos  los  datos  que  pueden  ser  leidos 
con  la  instruccion  READ.  Cada  vez  que  se  lee  un  dato,  el  'puntero'  pasa  a  seflalar  el 
siguiente  elemento  de  la  lista.  Se  puede  utilizar  la  instruccion  RESTORE  para  hacer  que 
el  puntero  sefiale  una  linea  de  datos  determinada. 

En  la  parte  2  del  capitulo  titulado  'Cuando  usted  guste  ..."  daremos  mas  amplia  infor- 
maci6n  sobre  los  datos  de  este  tipo. 

Palabras  clave  asociadas:  READ,  RESTORE. 


DEC$ 

DEC$(<expresion  nuserica) ,  <pl anti  1  la  ie  for»ta>) 

PRINT    DEC*(10E7,  "Pifttt###tt####,  .**«») 
MO,  000,  000.  00 

Funcion.  Produce  una  representation  en  forma  de  cadena  decimal  de  la  <expresion 
numerica)  utilizando  la  <plantilla  de  formato)  especificada. 

La  plantilla  de  formato  solo  puede  contener  los  caracteres  siguientes: 

La  utilization  de  estos  'especificadores  de  formato'  se  describe  en  PRINT  USING. 
Palabras  clave  asociadas:  BIN$,  HEX$,  PRINT  USING,  STR$. 
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DEFFN 

DEF   FN<ntmbre  de  la  funcion>[  (<paraietros  de  foru>)  l=<eipresioii> 

10  t=TIME/300 

20  DEF  FNreloj=INT(TIME/300-t) 

30  EVERY  100  GOSUE  50 

40  GOTO  40 

50  PRINT  "el  programa  se  ejecuto  hace"; 

60  PRINT  FNreloj ; "segundos" 

70  RETURN 

run 

Orden.  BASIC  permite  que  el  programa  defina  y  utilice  funciones.  DEF  FN  realiza  la 
primera  parte  de  ese  mecanismo:  crea  una  funci6n  especifica  del  programa;  una  vez 
deflnida,  la  funci6n  se  maneja  de  la  misma  forma  que  las  funciones  intrinsecas  de  BASIC. 

(Notese  en  el  ejemplo  anterior  que  el  valor  de  la  funci6n  FNreloj  sigue  siendo  actualiza- 
da  ininterrumpidamente,  aunque  se  imponga  una  pausa  al  programa  pulsando  [ESC] 
dos  veces  para  luego  reanudarlo  con  CO  NT.) 

Palabras  clave  asociadas:  ninguna. 

DEFINT 

DEFINT   <lista  deKiargen  de  letras) 

10  DEFINT  n 
20  numer o=123.456 
30  PRINT  numero 
run 
123 

Orden.  Cada  vez  que  el  programa  encuentra  una  variable  que  no  vaya  seguida  de  un 
indicador  explicito  de  tipo  (!  %  $),  el  ordenador  considera  que  es  del  tipo  implicito. 
Esta  orden  hace  que  el  tipo  implicito  sea  'variable  entera'.  La  orden  afecta  a  todas  las 
variables  cuyos  nombres  empiecen  por  la  letra  o  letras  especificadas.  Se  puede  especifi- 
car  una  lista: 

DEFINT    a,b,c 

o  bien  un  margen  de  initiates: 

DEFINT    a-z 

Palabras  clave  asociadas:  DEFREAL,  DEFSTR. 

3/14  Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD 


DEFREAL 

DEFREAL    <lista  ieKiarger  it  letras) 

DEFREAL    x,a--f 

Orden.  Cada  vez  que  el  programa  encuentra  una  variable  que  no  vaya  seguida  de  un 
indicador  explicito  de  tipo  (!  °7o  $),  el  ordenador  considera  que  es  del  tipo  implicito. 
Esta  orden  hace  que  el  tipo  implicito  sea  'variable  real'.  La  orden  afecta  a  todas  las 
variables  cuyos  nombres  empiecen  por  la  letra  o  letras  especificadas.  Se  puede  especifi- 
car  una  lista: 

DEFREAL    a,b,c 
o  bien  un  margen  de  initiates: 

DEFREAL    a-z 
Palabras  clave  asociadas:  DEFINT,  DEFSTR. 

DEFSTR 

DEFSTR   <lista  deldarge*  it  letras) 

10   DEFSTR    n 

20  nombre="Amstrad" 

30  PRINT  nambre 

run 

Amstrad 

Orden.  Cada  vez  que  el  programa  encuentra  una  variable  que  no  vaya  seguida  de  un 
indicador  explicito  de  tipo  (!  °7o  $),  el  ordenador  considera  que  es  del  tipo  implicito. 
Esta  orden  hace  que  el  tipo  implicito  sea  'variable  literal'.  La  orden  afecta  a  todas  las 
variables  cuyos  nombres  empiecen  por  la  letra  o  letras  especificadas.  Se  puede  especifi- 
car  una  lista: 

DEFSTR   a,b,c 
0  bien  un  margen  de  initiates: 

DEFSTR    a-z 
Palabras  clave  asociadas:  DEFINT,  DEFREAL. 
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DEG 

DEG 

DEG 

Orden.  Hace  que  BASIC  considere  que  los  valores  de  los  arcos  que  intervienen  en  los 
calculos  trigonometricos  estan  expresados  en  grados,  no  en  radianes.  La  situation  im- 
plicita  para  las  funciones  SIN,  COS,  TAN  y  ATN  es  la  inversa:  radianes.  DEG  cambia 
de  radianes  a  grados;  las  ordenes  RAD,  NEW,  CLEAR,  LOAD,  RUN,  etc.  cambian 
de  grados  a  radianes. 

Palabras  clave  asociadas:  ATN,  COS,  RAD,  SIN,  TAN. 

DELETE 

DELETE    darken  de  nuieros  de  linea) 

DELETE  100-200 

Orden.  Borra  la  instruction  o  grupo  de  instrucciones  especificado  por  <margen  de  nu- 
meros  de  linea). 

Si  se  omite  el  primer  numero  de  <margen  de  numeros  de  linea),  se  entiende  'desde  el 
principio  del  programa  hasta  . . . ';  si  se  omite  el  segundo  numero,  se  entiende  ' . . .  has- 
ta  el  final  del  programa'.  Asi, 

DELETE    -200 
borra  las  primeras  lineas  del  programa,  hasta  la  200  inclusive.  En  cambio, 

DELETE    50- 
borra  desde  la  linea  50  en  adelante.  Finalmente, 

DELETE 

borra  el  programa  completo. 

Palabras  clave  asociadas:  CHAIN,  MERGE,  RENUM. 
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DERR 

DERR 

LOAD    "xyz.abc" 

XYZ  .ABC    not    -found 

Ready 

PRINT    DERR 
146 

Funcion.  Toma  como  valor  el  ultimo  codigo  de  error  detectado  por  el  sistema  de  archi- 
vo  en  disco.  Se  puede  utilizar  el  valor  de  DERR  para  determinar  que  error  se  ha  produ- 
cido.  Vease  en  el  capitulo  'Para  su  referenda  ..."  la  lista  de  los  mensajes  de  error. 

Palabras  clave  asociadas:  ERL,  ERR,  ERROR,  ON  ERROR  GOTO,  RESUME. 

DI 

DI 

10  CLS: TAG: EVERY  10  GOSUB  90 

20  X1=RND*320:X2=RND*320 

30  Y=200+RND*200 : C*=CHR* ( RND*255 ) 

40  FOR  X=320-X1  TO  320+X2  STEP  4 

50  DI 

60  MOVE  320,0, 1:M0VE  X-2,Y:M0VE  X,Y 

70  PRINT  "  ";C*;: FRAME 

80  EI : NEXT: GOTO  20 

90  MOVE  320,0:DRAW  X+3, Y-16,0: RETURN 

run 

Orden.  Inhibe  interrupciones  (a  exception  de  [ESC])  hasta  que  se  las  habilite  explicita- 
mente  con  El  o  implfcitamente  con  el  RETURN  en  el  que  termina  la  subrutina  invocada 
como  consecuencia  de  la  interrupcion. 

N6tese  que  al  entrar  en  una  rutina  de  interrupci6n  se  inhiben  automaticamente  todas 
las  interrupciones  de  prioridad  igual  o  inferior. 

Esta  orden  se  utiliza  para  asegurar  que  el  programa  funcione  sin  interrupcion;  por 
ejemplo,  cuando  dos  rutinas  estan  compitiendo  por  el  uso  de  recursos  comunes.  En  el 
ejemplo  anterior,  el  programa  principal  y  la  subrutina  de  interrupci6n  estan  compitien- 
do por  el  uso  de  la  pantalla  grafica. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  amplia  informacion 

a  este  respecto. 

Palabras  clave  asociadas:  AFTER,  El,  EVERY,  REMAIN. 
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DIM 

DIM   <lista  deKvifiable  indexada) 

10   CLS 

20  DIM  amigD*(5>  ,  tele-f  ono*<5> 

30  FOR  n=l  TO  5 

40  PRINT  "Amigo  numero: " ;n 

50  INPUT  "Nombre  ";amigo*(n> 

60  INPUT  "Tele-fono  " ; tele-fono* <n> 

70  PRINT 

80  NEXT 

90  FOR  n  =  l  TO  5 

100  PRINT  n;amigo*(n>  ,  tele-f  ono*(n> 

110  NEXT 

run 

Orden.  DIMensiona  listas.  DIM  hace  una  reserva  de  espacio  para  los  elementos  de  la 
lista  y  especifica  cual  va  a  ser  el  maximo  valor  del  indice.  BASIC  requiere  que  se  le 
informe  del  tamaflo  que  debe  reservar  para  las  listas;  sin  embargo,  permite  el  manejo 
de  listas  no  dimensionadas  (es  decir,  no  declaradas  con  una  orden  DIM)  a  condition 
de  que  el  indice  no  sobrepase  el  valor  10. 

Una  lista  es  una  'variable  indexada',  lo  que  quiere  decir  que  se  utiliza  un  solo  nombre 
de  variable  para  represents  varios  elementos;  cada  elemento  esta  identificado  por  su 
'indice'.  Las  listas  pueden  ser  controladas  facilmente  mediante  bucles  de  tipo  FOR  . . . 
NEXT,  identificando  el  indice  con  la  variable  del  contador  del  bucle. 

Observese  que  el  valor  minimo  del  indice  (esto  es,  el  primer  elemento  utilizable)  es  el 
cero. 

Un  vector  es  una  lista  monodimensional.  Tambien  se  pueden  utilizar  listas  multidimen- 
sionales  (matrices).  Por  ejemplo,  una  lista  tridimensional  se  dimensionaria  con 

DIM   posicion*<20,20,20> 
y  un  elemento  concreto  seria 

po5icion*(4, 5, 6) 
Palabras  clave  asociadas:  ERASE. 
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DRAW 

DRAW   <coorde»ada  x> ,  <CDDrde»ada  y)[ ,  [<tinta)][ ,  <iodo  de  tinta)]] 

10  MODE  0: BORDER  0: PAPER  0: INK  0,0 
20  x=RND*640:y=RND*400:z=RND*15 
30  DRAW  x,y, z 
40  GOTO  20 
run 

Orden.  Dibuja  en  la  pantalla  grafica  una  recta  que  va  desde  la  position  actual  del  cur- 
sor grafico  hasta  el  punto  de  coordenadas  x,  y  especificadas.  Se  puede  especificar  el  co- 
lor de  <tinta>  con  el  que  se  desea  dibujar  la  recta  (margen:  0  a  15). 

El  <modo  de  tinta)  es  optional  y  determina  el  modo  de  interacci6n  entre  la  tinta  con 
que  se  dibuja  y  la  que  ya  esta  en  la  pantalla  grafica.  Los  cuatro  modos  son  los 
siguientes: 

0  Normal 

1  XOR  (OR  exclusivo) 

2  AND 

3  OR 

Palabras  clave  asociadas:  DRAWR,  GRAPHICS  PEN,  MASK. 


DRAWR 

DRAWR   <i  Hereunto  de  x) ,  Uncreiento  de  y)[ ,  Ktinta>ll ,  <iodo  de  tinta)]] 

10  CLS: PRINT  "escalera" 

20  MOVE  0,350: FOR  n=l  TO  3 

30  DRAWR  50,0 

40  DRAWR  0,-50 

50  NEXT:MOVE  343,0:FILL  3 

60  GOTO  60 

run 

Orden.  Dibuja  en  la  pantalla  grafica  una  recta  que  va  desde  la  posici6n  actual  del  cur- 
sor grafico  hasta  el  punto  especificado  en  coordenadas  relativas  por  <incremento  de 
x>  e  <incremento  de  y>.  Se  puede  especificar  el  color  de  < tinta)  con  el  que  se  desea 
dibujar  (margen:  0  a  15). 

El  <modo  de  tinta)  es  optional  y  determina  el  modo  de  interaction  entre  la  tinta  con 
que  se  dibuja  y  la  que  ya  esta  en  la  pantalla  grafica.  Los  cuatro  modos  son  los 
siguientes: 
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0  Normal 

1  XOR  (OR  exclusivo) 

2  AND 

3  OR 


Palabras  clave  asociadas:  DRAW,  GRAPHICS  PEN,  MASK. 

EDIT 

EDIT   (nmero  de  linea) 
EDIT    20 

Orden.  Escribe  en  la  pantalla  la  linea  especificada  por  (niimero  de  linea)  y  la  deja  dis- 
puesta  para  ser  editada,  con  el  cursor  sobre  ella. 

Palabras  clave  asociadas:  AUTO,  LIST. 
EI 

EI 

EI 

Orden.  Habilita  interrupciones  que  hayan  sido  inhibidas  previamente  con  Dl. 

Si  se  inhiben  las  interrupciones  en  una  subrutina  de  interruption,  BASIC  las  habilita 
cuando  encuentra  el  RETURN  del  final  de  la  subrutina. 

En  la  parte  2  del  capitulo  titulado  'Cuando  usted  guste  ..."  daremos  mas  amplia  infor- 
maci6n  acerca  de  las  interrupciones. 

Palabras  clave  asociadas:  AFTER,  Dl,  EVERY,  REMAIN. 

ELSE 

(Vease  IF.) 

END 

END 

END 
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Orden.  Termina  la  ejecucion  del  programa  y  devuelve  el  ordenador  al  modo  directo. 
En  un  mismo  programa  se  pueden  incluir  varias  ordenes  END;  se  supone  un  END  im- 
plicito  despues  de  la  ultima  linea  del  programa. 

Palabras  clave  asociadas:  STOP. 


ENT 

ENT    <n»Mro  de  envolventeH  ,  <seccion  de  e»volvente>H  ,  <seccion  de  e«»olveate>l 

[,  <seccioA  de  envolvente>][ ,  <seccioit  de  envolvente)] 

[,<seccion  de  envolvente)] 

10   ENT    1,10,-50,10,10,50,10 
20   SOUND    1,500,200,10, ,1 
run 

Orden.  Define  la  caracteristicas  de  la  envolvente  de  tono  especificada  por  <mimero  de 
envolvente)  (margen:  de  1  a  15)  e  invocada  como  < envolvente  de  tono)  en  la  orden 
SOUND.  Si  el  <mimero  de  envolvente)  es  negativo  (margen  de  -  1  a  -  15),  la  envol- 
vente se  repite  hasta  el  final  de  la  <  duration)  especificada  en  la  orden  SOUND. 

Cada  <  section  de  envolvente)  puede  constar  de  2  o  3  parametros. 

Si  se  utilizan  3  parametros,  tienen  el  significado  siguiente: 

<nt»ero  de  escalones),  <altura  de  cada  escalon) ,  Uieipo  de  pausa) 

Parametro  1:  <numero  de  escalones) 

Este  parametro  especifica  en  cuantas  etapas  queremos  que  la  nota  evolucione  a  lo  largo 
de  la  duration  de  la  secci6n  de  la  envolvente.  Por  ejemplo,  si  una  section  de  la  nota 
ha  de  durar  10  segundos,  se  la  puede  dividir  en  10  etapas  de  1  segundo  cada  una;  en 
tal  caso,  el  parametro  <mimero  de  escalones)  tendra  que  ser  10. 

El  margen  de  este  parametro  es  de  0  a  239. 


Parametro  2:  <altura  de  cada  escalon) 

En  cada  etapa,  el  tono  puede  variar  con  respecto  al  de  la  anterior  en  un  mimero  de 
unidades  comprendido  entre  - 128  y  + 127.  Las  variaciones  negativas  representan 
aumentos  del  tono  (tono  mas  agudo);  las  variaciones  negativas  reducen  el  tono  (tono 
mas  grave).  El  valor  rninimo  del  periodo  de  tono  es  0.  En  el  capitulo  'Para  su  refe- 
renda . . . '  se  da  la  lista  completa  de  los  periodos  de  tono. 


/ 
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Parametro  3:  <tiempo  de  pausa) 

Este  parametro  especifica  la  duracion  de  cada  escalon  (intervalo  entre  cada  dos  saltos) 
en  unidades  de  centesimas  de  segundo.  El  margen  de  valores  es  de  0  a  255;  esto  significa 
que  la  duracion  maxima  de  cada  escalon  es  de  2.56  segundos  (el  0  se  considera  como 
256). 

Si  se  utilizan  2  parametros,  su  significado  es  el  siguiente: 
(periodo  de  tono),  Uieipo  de  pausa) 

Parametro  1:  <  periodo  de  tono> 

Este  parametro  da  un  nuevo  valor  absoluto  del  periodo  de  tono.  (Vease  el  parametro 
2  de  la  orden  SOUND.) 

Parametro  2:  <tiempo  de  pausa) 

Este  parametro  especifica  la  duraci6n  de  escalon  en  unidades  de  cent&imas  de  segun- 
do. El  margen  de  valores  es  de  0  a  255,  es  decir,  el  valor  maximo  es  2.56  segundos, 
ya  que  el  0  se  considera  como  256. 

General 

La  suma  de  todos  los  <tiempos  de  pausa)  no  debe  ser  mayor  que  el  parametro 
<  duration)  de  la  orden  SOUND;  de  lo  contrario,  el  sonido  habra  concluido  antes  de 
que  se  hayan  completado  todas  las  etapas  de  la  envolvente.  (En  tal  caso,  el  ordenador 
ignora  el  resto  del  contenido  de  la  envolvente.) 

Analogamente,  si  la  duraci6n  especificada  en  SOUND  es  mayor  que  la  impuesta  por 
la  suma  de  todos  los  <tiempos  de  pausa),  la  nota  continuara  sonando  aunque  se  hayan 
terminado  los  escalones  de  la  envolvente  de  tono,  y  lo  hara  con  el  tono  correspondiente 
al  de  la  ultima  etapa  de  la  envolvente. 

En  una  orden  ENT  se  puede  definir  un  maximo  de  5  <secciones  de  envolvente)  (cada 
una  de  las  cuales  puede  constar  de  2  o  3  parametros). 

La  primera  etapa  de  una  envolvente  de  tono  se  ejecuta  inmediatamente. 

Cada  vez  que  se  define  una  envolvente  de  tono,  se  anula  la  definicion  anterior. 

Si  se  define  un  <numero  de  envolvente)  sin  especificar  parametros  para  ninguna  de  sus 
secciones,  se  anula  la  definicion  anterior. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  information  sobre 
las  envolventes  de  tono. 

Palabras  clave  asociadas:  ENV,  SOUND. 
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ENV 

ENV  <i)uiero  it  envolvente)! ,  (section  it  envolvente)]! ,  (section  it  envolvente)] 

(,<seccion  it  envolvente)]! ,  <seccion  it  envolvente)] 

[ ,  (section  it  envolvente)] 

10  ENV  1,15,-1,10,15,1,10 
20  SOUND  1,200,300,15,1 
run 

Orden.  Define  las  caracteristicas  de  la  envolvente  de  volumen  especificada  por  <nume- 

ro  de  envolvente)  (margen:  de  1  a  15)  e  invocada  como  <envolvente  de  volumen)  en 

la  orden  SOUND. 

Cada  <seccion  de  envolvente)  puede  constar  de  2  o  3  parametros. 

Si  se  utilizan  3  parametros,  tienen  el  significado  siguiente: 

(nuiero  ie  escalones) ,  <altura  it  ca4a  escalon),<tieipo  de  pausa) 

Parametro  1:  <numero  de  escalones) 

Este  parametro  especifica  en  cuantas  etapas  queremos  que  la  nota  evolucione  antes  de 
completar  la  seccidn  de  la  envolvente.  Por  ejemplo,  si  una  seccidn  de  la  nota  ha  de  du- 
rar  10  segundos,  se  la  puede  dividir  en  10  etapas  de  1  segundo  cada  una;  en  tal  caso, 
el  parametro  <numero  de  escalones)  sera  10. 

El  margen  de  este  parametro  es  de  0  a  127. 


__  Parametro  2:  <altura  de  cada  escaldn) 

—  En  cada  etapa,  el  volumen  puede  variar  con  respecto  al  nivel  anterior  en  un  numero 

de  unidades  comprendido  entre  0  y  15.  Estos  16  niveles  de  sonido  son  los  mismos  que 

~  se  definen  en  la  instruction  SOUND.  Sin  embargo,  el  margen  del  parametro  <altura 

_  de  cada  ecal6n)  es  de  - 128  a  + 127;  el  nivel  del  volumen  vuelve  0  cada  vez  que  sobre- 

pasa  el  15. 


Parametro  3:  <tiempo  de  pausa) 

Este  parametro  especifica  la  duracidn  de  cada  escaldn  en  unidades  de  centesimas  de  se- 
gundo. El  margen  de  valores  es  de  0  a  255;  esto  significa  que  la  duracidn  maxima  de 
cada  escaldn  es  de  2.56  segundos  (el  0  se  considera  como  256). 
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Si  se  utilizan  2  parametros,  su  significado  es  el  siguiente: 
(envolvente  de  hardware),  <periodo  de  envolvente) 

Parametro  1:  < envolvente  de  hardware) 

Este  parametro  especifica  el  valor  que  se  debe  enviar  al  registro  de  forma  de  envolven- 
tes  del  generador  de  sonido. 


Parametro  2:  <periodo  de  envolvente) 

Este  parametro  especifica  el  valor  que  se  debe  enviar  a  los  registros  de  periodo  de  envol- 
ventes  del  generador  de  sonido. 

Para  utilizar  las  envolventes  de  hardware  es  necesario  que  el  usuario  conozca  el  funcio- 
namiento  interno  del  generador  de  sonido.  De  no  ser  asi,  le  recomendamos  que  utilice 
las  envolventes  definidas  por  programa,  incorporado  un  <tiempo  de  pausa)  adecuado. 

General 

La  suma  de  todos  los  <tiempos  de  pausa)  no  debe  ser  mayor  que  el  parametro 
<  duration)  de  la  orden  SOUND;  de  lo  contrario,  el  sonido  habra  concluido  antes  de 
que  se  hayan  completado  todas  las  etapas  de  la  envolvente.  (En  tal  caso,  el  ordenador 
ignora  el  resto  del  contenido  de  la  envolvente.) 

Analogamente,  si  la  duration  especificada  en  SOUND  es  mayor  que  la  impuesta  por 
la  suma  de  todos  los  <tiempos  de  pausa),  la  nota  continuara  sonando  aunque  se  hayan 
terminado  los  escalones  de  la  envolvente  de  tono,  y  lo  hard  con  nivel  de  volumen  igual 
al  de  la  ultima  etapa  de  la  envolvente. 

En  una  orden  ENV  se  puede  definir  un  maximo  de  5  <secciones  de  envolvente)  (cada 
una  de  las  cuales  puede  constar  de  2  o  3  parametros). 

La  primera  etapa  de  una  envolvente  de  volumen  se  ejecuta  inmediatamente. 

Cada  vez  que  se  define  una  envolvente  de  volumen,  se  anula  la  definicion  anterior. 

Si  se  define  un  <niimero  de  envolvente)  sin  especificar  parametros  para  ninguna  de  sus 
secciones,  se  anula  la  definicion  anterior. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  information  sobre 
las  envolventes  de  volumen. 

Palabras  clave  asociadas:  ENT,  SOUND. 
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EOF 

EOF 

10  OPENIN  "exl.bas" 

20  WHILE  NOT  EOF 

30  LINE  INPUT  #9, a* 

40  PRINT  a* 

50  WEND 

60  CLOSEIN 

run 

Funcion.  Comprueba  si  se  ha  alcanzado  el  final  del  fichero  (End  of  File).  Da  el  valor 
-  1  (verdadero)  si  no  hay  ningiin  fichero  abierto  o  si  se  ha  alcanzado  el  final  del  fiche- 
ro; da  0  (falso)  en  caso  contrario. 

Palabras  clave  asociadas:  OPENIN,  CLOSEIN. 

ERASE 

ERASE   <lista  deKaoibre  de  variable) 

DIM    a(100) ,b*(100) 
ERASE    a,b* 

Orden.  Borra  el  contenido  de  una  o  varias  listas  y  libera  el  espacio  de  memoria  ocupado 
por  ellas. 

Palabras  clave  asociadas:  DIM. 

ERL 

ERL 

10  ON  ERROR  GOTO  30 

20  GOTO  1000 

30  PRINT  "Error  en  la  linea"; ERL 

40  END 
run 

Funcion.  Da  el  numero  de  la  linea  en  la  que  se  ha  detectado  el  ultimo  error.  En  el  pro- 
grama  ejemplo,  el  error  esta  en  la  linea  20,  y  este  es  el  numero  generado  por  ERL  en 
la  linea  30. 
Palabras  clave  asociadas:  DERR,  ERR,  ERROR,  ON  ERROR  GOTO,  RESUME. 
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ERR 

ERR 

GOTO  500 

Line  does  not  exist 
Ready 
PRINT  ERR 
8 

Funcidn.  Da  el  niimero  del  ultimo  error  detectado.  En  el  capitulo  titulado  'Para  su 
referenda  . . . '  se  da  la  lista  de  los  mensajes  de  error.  El  programa  ejempo  muestra  que 
el  error  niimero  8  es  'Line  does  not  exist'  ("no  existe  esa  Ifnea"). 

Palabras  clave  asociadas:  DERR,  ERL,  ERROR,  ON  ERROR  GOTO,  RESUME. 

ERROR 

ERROR   <expresion  enter a> 

10    IF    INKEY*=»»    THEN    10    ELSE    ERROR    17 
run 

Orden.  Invoca  el  error  de  niimero  especificado  por  <expresi6n  ehtera).  En  el  capitulo 
'Para  su  referencia  . . . '  se  da  la  lista  de  los  mensajes  de  error  1  a  32.  BASIC  trata  el 
ERROR  como  si  efectivamente  lo  hubiera  detectado:  salta  a  la  rutina  de  gestidn  de 
errores  (si  la  hay)  y  genera  los  valores  correctos  de  ERR  y  ERL. 

La  orden  ERROR  seguida  de  una  <expresi6n  entera)  cuyo  valor  este  entre  33  y  255  sir- 
ve  para  crear  mensajes  de  error  a  medida  de  las  necesidades  del  programador,  como 
ilustra  el  siguiente  ejemplo: 

10  ON  ERROR  GOTO  100 

20  INPUT  "Escriba  una  letra  " ; a* 

30  IF  LEN(A*><>1  THEN  ERROR  100 

40  GOTO  20 

100  IF  ERR=100  THEN  110  ELSE  130 

110  PRINT  CHR*(7) 

120  PRINT  "Le  dije  que  UNA  letra!" 

130  RESUME  20 

run 

Palabras  clave  asociadas:  ERL,  ERR,  ON  ERROR  GOTO,  RESUME. 
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EVERY 

EVERY    (periodo  de  tieipo)[,<nu«ro  de  teiporiiador)!    GOSUB    (niiMro  de  li»ea> 

10  EVERY  50, 1  GOSUB  30 

20  GOTO  20 

30  SOUND  1,20 

40  RETURN 

run 

Orden.  Invoca  una  subrutina  de  BASIC  a  intervalos  de  tiempo  regulares.  El  <periodo 
de  tiempo)  especifica  el  intervalo  en  unidades  de  0.02  s  (cintuentavos  de  segundo). 

El  <mimero  del  temporizador)  (margen  de  0  a  3)  especifica  cual  de  los  cuatro  cronome- 

tros  se  debe  utilizar.  El  temporizador  niimero  3  tiene  la  prioridad  mas  alta;  el  niimero 

0  (que  es  el  implicito),  la  mas  baja. 

Cada  uno  de  los  cuatro  cron6metros  puede  tener  una  subrutina  asociada. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  amplia  informaci6n 

acerca  de  las  interrupciones. 

Palabras  clave  asociadas:  AFTER,  REMAIN. 


EXP 

EXP  ( (expresion  nuierica)) 

PRINT    EXP (6. 876) 
968.743625 

Funcion.  Calcula  el  niimero  e  elevado  a  la  potencia  dada  por  <  expresion  numerica). 

El  niimero  e  es  la  base  de  los  logaritmos  neperianos,  aproximadamente  igual  a 

2.7182818. 

Palabras  clave  asociadas:  LOG. 
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FILL 

FILL  <ti»ta> 

10  MODE  0 

20  FOR  n=i  TO  500 

30  PRINT "0" ; 

40  NEXT 

50  colorpluma=2+RND*13 

60  FILL  colorpluma 

70  GOTO  50 

run 

Orden.  Rellena  una  region  de  la  pantalla  grafica.  Los  limites  de  la  region  son  rectas 
dibujadas  con  la  tinta  de  la  pluma  de  graficos  actual  o  con  la  tinta  utilizada  para  relle- 
nar  (margen  de  0  a  15). 

El  rellenado  se  realiza  partiendo  de  la  position  actual  del  cursor  grafico.  Si  esta  posi- 
cion  esta  en  un  limite,  no  se  produce  rellenado  alguno. 

Palabras  clave  asociadas.  GRAPHICS  PEN. 


FIX 

FIX  Uexpresion  nuierica)) 

PRINT    FIX(9. 99999) 

9 

Funcion.  Da  la  parte  entera  de  la  <expresion  numerica),  ignorando  su  parte  decimal. 
Palabras  clave  asociadas:  CINT,  INT,  ROUND. 

FN 

Vease  DEF  FN. 
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FOR 

FOR   Variable  senciUa>=<principio>   TO   <fi»>    [STEP   <salto>] 

10  FOR  n=2  TO  8  STEP  2 

20  PRINT  n; 

30  NEXT  n 

40  PRINT  ",  y  ocho  dieciseis" 

run 

Orden.  Ejecuta  el  grupo  de  instrucciones  comprendidas  entre  FOR  y  NEXT  un  niimero 
dado  de  veces,  incrementando  el  valor  de  la  variable  de  control  (variable  del  contador) 
en  un  niimero  especificado  por  <salto>  desde  <principio>  hasta  <fin>.  Si  no  se  especifi- 
ca  ningiin  valor  de  <salto>  para  STEP,  se  supone  el  1. 

El  <salto>  puede  ser  una  (expresion  numerica).  Si  su  valor  es  negativo,  el  parametro 
<principio>  tiene  que  ser  mayor  que  el  parametro  <fin>,  pues  de  no  ser  asi  la  variable 
del  contador  no  sera  modificada. 

Los  bucles  FOR  . . .  NEXT  pueden  ser  'anidados',  es  decir,  programados  uno  dentro 
de  otro. 

No  es  necesario  especificar  el  nombre  de  la  variable  a  continuation  de  NEXT,  ya  que 
BASIC  determina  automaticamente  a  que  FOR  corresponde  cada  NEXT  'anonimo'. 

Palabras  clave  asociadas:  NEXT,  STEP,  TO. 


FRAME 

FRAME 


10    MODE    0 

20  PRINT  "sin  FRAME" 

30  TAG 

40  MOVE  0,200 

50  FOR  x=0  TO  500  STEP  4 

60  IF  +=1  THEN  FRAME 

70  MOVE  x,200 

80  PRINT  "  " ;CHR*<143) ; 

90  NEXT 

100  IF  -F  =  l  THEN  RUN 

110  CLS 

120  TAGOFF 

130  PRINT  "con  FRAME" 

140  +=1 

150  GOTO  30 

run 
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Orden.  Sincroniza  la  escritura  de  caracteres  graficos  en  la  pantalla  con  el  retorno  del 
haz  en  el  monitor.  El  efecto  global  es  hacer  que  el  movimiento  de  simbolos  por  la  pan- 
talla sea  mas  suave,  sin  parpadeo  ni  discontinuidad. 

Palabras  clave  asociadas:  TAG,  TAGOFF. 

FRE 

FRE  ( (eipresion  America} ) 
FRE<<ejtpresio»  literal)) 

PRINT    FRE(0) 
PRINT    FREC  "> 

Funcion.  Da  el  espacio  libre  de  memoria  utilizable  por  BASIC.  En  la  forma  FRE  ("") 
realiza  una  'limpieza  de  memoria'  antes  de  dar  el  numero  de  bytes  libres. 

Nota.  BASIC  solamente  utiliza  el  primer  banco  de  memoria,  es  decir,  los  primeros 
64K. 

Palabras  clave  asociadas:  HIMEM,  MEMORY. 

GOSUB 

GOSUB  <nuiero  it  linea) 
GOSUB   210 

Orden.  Invoca  una  subrutina  de  BASIC;  es  decir,  reconduce  el  programa  hacia  el 
< numero  de  linea)  especificado.  El  final  de  la  subrutina  estara  indicado  por  la  orden 
RETURN;  cuando  se  llega  a  ella,  el  programa  retorna  a  la  instrucci6n  siguiente  al 
GOSUB  que  invoc6  la  subrutina. 

Palabras  clave  asociadas:  RETURN. 

GOTO 

GOTO   <nuiero  de  linea) 

GOTO    90 

Orden.  Hace  que  la  ejecucion  del  programa  salte  a  la  linea  especificada. 
Palabras  clave  asociadas:  ninguna. 
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GRAPHICS  PAPER 

GRAPHICS  PAPER  Uinta) 

10  MODE  0 

20  MASK  15 

30  GRAPHICS  PAPER  3 

40  DRAW  640,0 

run 

Orden.  Especifica  la  <tinta>  del  papel  de  la  pantalla  de  graficos,  es  decir,  el  color  de 

fondo  sobre  el  que  se  dibujan  los  graficos.  Cuando  se  dibujan  lineas  continuas,  el  papel 

grafico  se  hace  invisible.  En  el  programa  ejemplo,  la  orden  MASK  hace  que  la  recta 

que  se  dibuja  sea  discontinua  y  que,  por  lo  tanto,  el  papel  grafico  se  pueda  ver  debajo 

de  ella. 

La  tinta  del  papel  grafico  (margen  de  0  a  15)  se  utiliza  tambien  como  fondo  de  los  ca- 

racteres  que  se  escriben  mediante  TAG  y  para  retefiir  la  pantalla  grafica  cuando  no  se 

especifica  otra  tinta  tras  la  instrucci6n  CLG. 

Palabras  clave  asociadas:  CLG,  GRAPHICS  PEN,  INK,  MASK,  TAG,  TAGOFF. 

GRAPHICS  PEN 

GRAPHICS   PEN    lUintaM ,  <iodo  de  fondo)] 

10  MODE  0 

20  GRAPHICS  PEN  15 

30  MOVE  200,0 

40  DRAW  200,400 

50  MOVE  639,0 

60  FILL  15 

run 

Orden.  Especifica  la  <tinta>  con  la  que  en  lo  sucesivo  se  van  a  dibujar  rectas  y  puntos. 
El  <modo  de  fondo)  puede  ser: 

0  Fondo  opaco 

1  Fondo  transparente 

(El  fondo  transparente  afecta  al  papel  grafico  de  los  caracteres  escritos  con  TAG  y  a 
los  espacios  que  quedan  entre  los  trazos  de  las  lineas  discontinuas.) 

Se  puede  omitir  cualquiera  de  los  dos  parametros,  pero  no  ambos.  Si  se  omite  un  para- 
metro,  la  caracteristica  controlada  por  61  permanece  inalterada. 

Palabras  clave  asociadas:  GRAPHICS  PAPER,  INK,  MASK,  TAG,  TAGOFF. 
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HEX$ 

HEX*  ( (expresiDit  enteraH  ,  <anchura  del  caipo)] ) 

PRINT    HEX*<255,4> 
00FF 

Funcion.  Produce  una  cadena  literal  que  es  la  version  hexadecimal  de  la  <expresion 
entera).  La  longitud  de  la  cadena  es  la  especificada  por  el  parametro  <anchura  de 
campo)  (margen  de  0  a  16).  Si  la  longitud  es  demasiado  pequena,  la  cadena  resultante 
no  se  trunca,  sino  que  consta  de  todos  los  caracteres  necesarios. 

El  valor  de  la  <expresion  entera)  tiene  que  estar  comprendido  entre  -  32768  y  +  65535. 

Palabras  clave  asociadas:  BIN$,  DEC$,  STR$,  UIMT. 

HIMEM 

HIMEM 

PRINT  HIMEM 
42619 

Funcion.  Da  la  direction  de  la  position  de  memoria  mas  alta  accesible  a  BASIC  (la  cual 
puede  ser  modificada  con  la  orden  MEMORY). 

Nota.  BASIC  solamente  utiliza  el  primer  banco  de  memoria,  es  decir,  los  Drimeros 
64K. 

Palabras  clave  asociadas:  FRE,  MEMORY,  SYMBOL,  SYMBOL  AFTER. 

IF 

IF   {upresion  lojica)    THEN   <opcion>    [ELSE   <opcion}] 

10   MODE    1 

20  x=CINT<RND*100) 

30  PRINT  "Adivine  mi  numero  (de  0   a  100)" 

40  INPUT  n 

50  IF  n<x  THEN  PRINT  n;"es  demasiado  baj o  ..." 

60  IF  n>x  THEN  PRINT  n;"es  demasiado  alto  ..." 

70  IF  n=x  THEN  80  ELSE  c=c+l:GOTO  40 

80  PRINT  "Muy  bien.  Lo  ha  conseguido  en"; 

90  PRINT  c  +  l;  "intentos! " 

run 
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Orden.  Determina  si  la  <expresion  logica)  tiene  el  valor  'verdadero'.  Si  es  asi,  ejecuta 

la  primera  <  option).  Si  la  <expresion  logica)  tiene  el  valor  'falso',  ejecuta  la  <  option) 

especificada  despues  de  ELSE;  si  no  se  ha  incluido  ELSE,  BASIC  pasa  a  la  siguiente 

linea  del  programa. 

Las  ordenes  IF  . . .  THEN  . . .  se  pueden  anidar,  sin  mas  limite  que  la  longitud  de  la 

linea.  La  orden  (o  la  serie  de  ordenes  anidadas)  termina  en  el  final  de  la  linea,  de  modo 

que  no  es  posible  poner  en  la  misma  linea  instrucciones  que  sean  independientes  de  la 

orden  IF  . . .  THEN  .... 

Si  la  <  option)  especificada  consiste  en  un  salto  de  linea,  la  orden  puede  tener  cualquie- 

ra  de  las  tres  formas  siguientes: 


IF  a=l  THEN  100 
IF  a=l  GOTO  100 
IF  a=l  THEN  GOTO  100 


Palabras  clave  asociadas:  ELSE,  GOTO,  THEN. 

INK 

INK    Uinta),  <colofM,<colDf>] 

10  MODE  l: PAPER  0IPEN  1 

20  FOR  p=0  TO  1 

30  FOR  i=0  TO  26 

40  INK  p, i 

50  LOCATE  16, 12: PRINT  » i nk " 5 p 5 " , " 5 i 

60  FOR  t=l  TO  400: NEXT  t,i,p 

70  INK  0,1: INK  1,24:CLS 

run 

Orden.  Asigna  uno  o  dos  colores  a  la  <tinta>  dada.  El  parametro  <tinta>  es  el  numero 
de  referencia  de  la  tinta  (margen  de  0  a  15),  por  el  que  se  la  cita  en  las  ordenes  PEN 
y  PAPER.  El  primer  <color>  debe  ser  una  expresion  entera  cuyo  valor  este  comprendi- 
do  entre  0  y  26.  Si  se  incluye  el  segundo  <color>,  la  tinta  alterna  entre  los  dos  colores, 
a  una  velocidad  que  se  controla  con  la  orden  SPEED  INK. 

Palabras  clave  asociadas:  GRAPHICS  PAPER,  GRAPHICS  PEN,  PAPER,  PEN, 
SPEED  INK. 
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INKEY 


INKEY(<expresiDA  entera)) 

10  IF  INKEY (55) <>32  THEN  10 
20  PRINT  "Ha  pulsado  [SHIFT]  y 
30  CLEAR  INPUT 
run 


V" 


Funcion.  Examina  el  teclado  para  determinar  si  se  ha  pulsado  una  tecla  determinada. 
La  exploration  se  realiza  una  vez  cada  0.02  s. 

Este  funcidn  es  litil  para  averiguar  si  se  ha  pulsado  cierta  tecla,  comprobando  si  el  nii- 
mero  generado  por  INKEY  es  - 1  (el  cual  es  independiente  de  la  situacidn  de  [SHIFT] 
y  [CTRL]). 

El  ejemplo  anterior  detecta  cuando  se  pulsa  V  (tecla  niimero  55)  con  [SHIFT]  y  sin 
[CTRL].  El  esquema  de  la  numeracidn  de  las  teclas  esta  grabado  en  la  carcasa  del  orde- 
nador,  a  la  derecha  del  teclado,  e  impreso  en  el  capitulo  titulado  'Para  su  referencia 

Los  valores  generados  por  INKEY  en  funcion  de  la  situacidn  de  las  teclas  [SHIFT]  y 
[CTRL]  son  los  siguientes: 


Valor  generado 

[SHIFT] 

[CONTROL] 

Tecla  especificada 

-1 

Indiferente 

Indiferente 

No  pulsada 

0 

No  pulsada 

No  pulsada 

Pulsada 

32 

Pulsada 

No  pulsada 

Pulsada 

128 

No  pulsada 

Pulsada 

Pulsada 

160 

Pulsada 

Pulsada 

Pulsada 

Palabras  clave  asociadas:  CLEAR  INPUT,  INKEY$,  JOY. 
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INKEY$ 

INKEY* 

10  CLS 

20  PRINT  "Elija  Si  o  No  (S/N) : " 

30  a*= INKEY* 

40  IF  a*=""  THEN  30 

50  IF  a*="s"  OR  a*="S"  THEN  80 

60  IF  a*="n"  OR  a*="N"  THEN  90 

70  GOTO  30 

80  PRINT  "Ha  respond ido  SI": END 

90  PRINT  "Ha  respond ido  NO" 

run 

Funcion.  Examina  el  teclado  para  determinar  si  se  ha  pulsado  alguna  tecla;  de  ser  asi, 

genera  una  cadena  literal  consistente  en  el  caracter  correspondiente  a  la  tecla  pulsada. 

Si  no  se  ha  pulsado  ninguna  tecla,  genera  la  cadena  vacia.  En  el  programa  ejemplo, 

las  lineas  30  y  40  forman  un  bucle  que  no  deja  de  repetirse  mientras  no  se  pulse  una 

tecla. 

Palabras  clave  asociadas:  CLEAR  INPUT,  INKEY. 

INP 

I NP  <  (nuiero  de  puerta) ) 

PRINT    INP(8<:FF77) 
255 

Funcidn.  Da  el  valor  de  entrada  leido  en  la  direccidn  de  entrada/salida  especificada  por 
el  parametro  <numero  de  puerta). 

Palabras  clave  asociadas:  OUT,  WAIT. 

INPUT 

INPUT    !#<expresion  it  nuuro  it  canal),  ][;  IKcadena  literal  eiitre  coiillas><separa4or>l 

<lista  le: (variable) 

10  MODE  1 

20  INPUT  "Escriba  los  dos  -Factores  (separados 

por  una  coma):  ",a,b 
30  PRINT  a; "por" ;b; "es";a*b 
40  GOTO  20 
run 
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Orden.  Capta  una  entrada  de  datos  por  el  canal  especificado  (Por  el  #0,  si  no  se  especi- 
fica  ninguno). 

El  primer  signo  de  punto  y  coma  [;]  es  opcional  e  inhibe  la  funcion  de  retorno  del  ca- 
rro/avance  de  linea  que  de  otra  forma  se  produciria  al  terminar  de  ejecutarse  la 
instruction. 

El  <separador>  tiene  que  ser  una  coma  o  un  punto  y  coma.  El  punto  y  coma  hace  que 
se  escriba  el  signo  de  interrogation;  la  coma  lo  impide. 

Si  el  dato  introducido  es  de  tipo  incorrecto  (por  ejemplo,  cuando  se  escribe  la  letra  O 
en  lugar  del  numero  0  en  la  captation  de  un  dato  numerico),  BASIC  responde  con  el 
mensaje: 

?Redo  -from  start 

y  cualquier  otro  texto  que  se  haya  programado. 

Toda  introduction  de  datos  a  traves  del  teclado  debe  terminar  con  la  pulsation  de  la 
tecla  [RETURN]. 

Palabras  clave  asociadas:  LINE  INPUT. 


INSTR 

INSTR  (Kposicion  de  partila),  Kcadena  en  la  que  se  busca),  <cadena  buscada)) 

10  CLS:F0R  n=l  TO  26 

20  al-fabeto*=al-fabeto*+CHR*(n  +  64) 

30  NEXT 

40  INPUT  "Escriba  una  letra:  " , a* 

50  b*=UPPER*(a*) 

60  PRINT  b*;"  es  la  letra  numero"; 

70  PRINT  INSTR(aHabeto*,b*)  ; 

30  PRINT  "del  al-fabeto" :  PRINT 

90  GOTO  40 

run 

Funcion.  Determina  si  la  <cadena  buscada)  esta  contenida  en  la  <cadena  en  la  que  se 
busca).  Si  lo  esta,  da  la  posicion  del  caracter  de  la  <cadena  en  la  que  se  busca)  en  el 
que  se  ha  producido  la  primera  coincidencia.  Si  no  lo  esta,  da  el  numero  0. 

El  parametro  opcional  <  posicion  de  partida)  indica  en  que  lugar  de  la  <  cadena  en  la 
que  se  busca)  debe  empezar  la  busqueda;  debe  ser  una  expresion  entera  que  de  un  valor 
comprendido  entre  1  y  255. 

Palabras  clave  asociadas:  ninguna. 
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INT 

INT  (<expresion  nuierica)) 

PRINT    INT<-1.995) 
-2 

Funcion.  Redondea  el  valor  de  la  <expresi6n  numerica)  al  niimero  entero  inferior,  des- 
preciando  la  parte  decimal.  Da  el  mismo  valor  que  FIX  cuando  el  argumento  es  positi- 
vo,  pero  una  unidad  menos  que  FIX  cuando  el  argumento  es  negativo  y  no  entero. 

Palabras  clave  asociadas:  CINT,  FIX,  ROUND. 

JOY 

JOY  UexpresioB  entera)) 

10  PRINT  "Para  detener  el  programa  "; 

20  PRINT  "accione  el  joystick" 

30  IF  JOY(0><>0  THEN  END 

40  GOTO  10 

run 

Funcion.  Lee  bit  a  bit  la  situation  del  joystick  especificado  por  la  <expresion  entera) 
(que  debe  valer  0  o  1).  Genera  un  valor  decimal  segiin  la  siguiente  tabla: 


Bit 

Decimal 

0 

Arriba 

1 

1 

Abajo 

2 

2 

Izquierda 

4 

3 

Derecha 

8 

4 

Disparo  2 

16 

5 

Disparo  1 

32 

Asi,  en  el  programa  ejemplo,  si  el  boton  principal  de  disparo  (Disparo  2)  del  primer 
joystick  esta  accionado  mientras  la  empufladura  esta  inclinada  hacia  la  izquierda,  la 
funcion  JOY(O)  da  el  niimero  decimal  20,  que  es  la  suma  de  16  (Disparo  2)  mas  4 
(Izquierda). 

En  el  capitulo  'Para  su  referenda  . . . '  daremos  mas  informacion  acerca  de  los 
joysticks. 

Palabras  clave  asociadas:  CLEAR    INPUT,  INKEY. 
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KEY 

KEY   <codigo  expansible) ,  (expresion  literal) 

KEY    11, "border    13:paper    0:pen    l:ink   0,13: 
ink    l,0:mode   2: 1 ist" +CHR*< 13) 

y  ahora  pulse  la  tecla  [INTRO]. 

Orden.  Asigna  la  <expresion  literal)  al  <c6digo  expansible)  especificado.  El  sistema 
maneja  32  codigos  expansibles,  del  0  al  3Tridentificados  por  los  codigos  de  tecla  128 
a  159.  Los  cddigos  de  tecla  del  128  (generado  por  la  tecla  0  del  teclado  numerico)  al 

140  (generado  por  la  tecla  [INTRO]  con  [CONTROL])  tienen  asignadas  implicitamente 
las  funciones  de  escribir  los  digitos  del  0  al  9,  el  punto,  [RETURN]  y  RUN"[RETURN] 
(para  operation  con  cinta),  respectivamente,  pero  se  les  pueden  asignar  otras  <expre- 
siones  literales)  diferentes  con  KEY.  Los  cddigos  expansibles  13  a  31  (cddigos  de  tecla 

141  a  159)  tienen  asignada  implicitamente  la  cadena  vacia,  pero  se  los  puede  expandir 
con  KEY  para  luego  asignarlos  a  teclas  concretas  con  KEY  DEF. 

El  parametro  <codigo  expansible)  incluido  en  la  orden  KEY  puede  estar  en  el  margen 
de  0  a  31,  o  bien  en  el  margen  128  a  159  para  reflejar  directamente  cddigos  de  tecla. 
(Vease  la  ilustracidn  del  capitulo  'Para  su  referenda  ...'.) 

Las  <expresiones  literales)  con  las  que  se  expandan  los  codigos  expansibles  pueden 
ocupar  como  maximo  un  total  de  120  caracteres.  Si  se  intenta  sobrepasar  ese  limite  se 
produce  el  error  'improper  argument'  ('argumento  inadecuado',  error  numero  5). 

Palabras  clave  asociadas:  KEY  DEF. 


KEY  DEF 

KEY   DEF   <nmero  de  tecla) ,  <repetir)[ ,  <nonal)[ ,  <shHt>[ ,  (control)])] 

KEY  159,"esta  es  la  tecla  TAB" 
KEY  DEF  68, 1, 159 

Despues  de  escribir  estas  drdenes,  pulse  la  tecla  [TAB]. 

Orden.  Define  los  codigos  de  tecla  que  van  a  ser  generados  por  la  tecla  de  numero  espe- 
cificado. El  < numero  de  tecla)  tiene  que  estar  en  el  margen  de  0  a  79  (veanse  los  nume- 
ros  de  tecla  en  el  diagrama  grabado  a  la  derecha  del  teclado,  o  bien  el  esquema  del  capi- 
tulo 'Para  su  referencia  ...').  En  la  definicidn  se  pueden  incluir  los  codigos  de  tecla 
que  deben  ser  generados  por  la  tecla  cuando  se  la  pulsa  sola  y  cuando  se  la  pulsa  en 
combination  con  [MAYS]  y  [CONTROL].  Todos  estos  parametros  son  opcionales. 

El  parametro  <repetir)  puede  tener  los  valores  1  (para  que  la  tecla  sea  de  repeticidn) 
o  0  (para  que  no  lo  sea).  La  velocidad  de  repeticidn  se  puede  definir  con  SPEED  KEY. 
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En  el  ejemplo  anterior,  primero  se  asigna  una  cadena  literal  al  codigo  159  (equivalente 
al  codigo  expansible  31),  y  luego  se  especifica  que  la  tecla  numero  68  (la  tecla  [TAB]) 
debe  ser  de  repetition  (1)  y  generar  el  codigo  159  cuando  se  la  pulse  sola. 

La  situation  normal  se  restaura,  en  el  ejemplo  anterior,  mediante  la  orden: 

KEY    DEF    68,0,9 

ya  que  el  9  es  el  codigo  ASCII  normalmente  generado  por  [TAB]. 
Palabras  clave  asociadas:  KEY,  SPEED  KEY. 

LEFTS 

LEFT*(<txpresioii  literal), <lo»gitud  deseada)) 

10  CLS 

20  a*="AMSTRAD" 

30  FOR  n  =  l  TO  7 

40  PRINT  LEFT*(a*,n) 

50  NEXT 

run 

Funcidn.  Produce  una  cadena  que  consta  del  numero  de  caracteres  dado  por  <longitud 
deseada)  (margen  de  0  a  255)  tornados  de  la  izquierda  de  la  <expresion  literal).  Si  la 
longitud  de  la  <expresion  literal)  es  menor  que  la  <longitud  deseada) ,  la  cadena  produ- 
cida  es  la  <expresi6n  literal)  completa. 

Palabras  clave  asociadas:  MID$,  RIGHT$. 


LEN 

LEN(:expresioti  literal)) 

10  LINE  INPUT  "Escriba  una  +rase:  " , a* 

20  PRINT  "La  -frase  tiene"; 

30  PRINT  LEN(a*) ; "caracteres. " 

run 

Funcidn.  Da  la  longitud  de  la  <expresion  literal),  es  decir,  el  numero  de  caracteres  de 
que  consta  esta. 

Palabras  clave  asociadas:  ninguna. 
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LET 

LET    <variable>=<expresiari) 

LET    x  =  100 

Orden.  Asigna  un  valor  a  una  variable.  Es  una  reliquia  de  las  primeras  versiones  de 
BASIC,  innecesaria  en  el  BASIC  de  AMSTRAD.  En  el  ejemplo  anterior  habria  basta- 
do  con  escribir: 

x=100 
Palabras  clave  asociadas:  ninguna. 


LINE  INPUT 

LINE    INPUT    IWexpresion  de  nuiero  de  canal),  ][;  IKcadena  entre  coiillasXseparador)] 
(variable  literal) 

10  LINE  INPUT  "Escriba  una  linea  de  texto:  " , a* 

20  CLS 

30  PRINT  "La  variable  a*  es  igual  a:  " 

40  PRINT  a* 

run 

Orden.  Acepta  la  introduction  de  una  linea  entera  de  texto  por  el  canal  especificado 
(o  por  el  #0,  si  no  se  especifica  ninguno).  El  primer  signo  de  punto  y  coma  [;]  es  optio- 
nal y,  si  se  lo  incluye,  inhibe  el  retorno  del  carro/avance  de  linea  que  de  otra  forma 
se  realizaria  al  terminar  de  ejecutarse  la  orden. 

El  <separador>  tiene  que  ser  una  coma  o  un  punto  y  coma.  El  punto  y  coma  hace  que 
se  escriba  el  signo  de  interrogation;  la  coma  lo  impide. 

La  captation  de  datos  a  traves  del  teclado  debe  terminar  con  la  pulsation  de  la  tecla 
[RETURN]. 

La  captaci6n  de  datos  por  el  canal  #9  (disco  o  cinta)  termina  cuando  se  recibe  un  carac- 
ter  de  retorno  del  carro  o  cuando  se  han  recibido  255  caracteres  (lo  que  antes  ocurra). 

Palabras  clave  asociadas:  INPUT. 


LIST 

LIST    t <iarger  de  nuieros  de  lineaHI ,  Wexpresion  de  nuiero  de  canal)] 
LIST    100-1000, #1 
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Orden.  Envia  el  listado  de  las  lineas  especificadas  al  canal  especificado.  El  canal  impli- 
cito  es  el  #0.  La  impresora  es  el  canal  #8.  La  action  de  listar  se  puede  suspender  mo- 
mentaneamente  pulsando  [ESC]  una  vez,  tras  lo  cual  se  la  puede  reanudar  pulsando 
la  barra  espaciadora  o  abandonar  definitivamente  pulsando  [ESC]  por  segunda  vez. 

Si  se  omite  el  primer  niimero  de  <margen  de  niimeros  de  lfnea),  se  entiende  'desde  el 
principio  del  programa  hasta  ...';  si  se  omite  el  segundo  niimero,  se  entiende 
'. . .  hasta  el  final  del  programa'.  Asi, 

LIST   -200 
lista  las  primeras  lineas  del  programa,  hasta  la  200  inclusive.  En  cambio, 

LIST   50- 
lista  desde  la  linea  50  en  adelante.  Finalmente, 

LIST 

lista  el  programa  complete 
Palabras  clave  asociadas:  ninguna. 

LOAD 

LOAD   <noibre  de  fichero>[,<expresiois  de  direccion  de  inoria)] 

LOAD  "-f  ichero.xyz" ,  &2AF8 

Orden.  Lee  un  programa  de  BASIC  grabado  en  disco  y  lo  carga  en  la  memoria,  reem- 
plazando  al  actual.  Si  se  especifica  la  <expresion  de  direccion  de  memoria)  opcional, 
LOAD  carga  un  fichero  binario  en  esa  direccion,  en  lugar  de  hacerlo  en  la  direccion 
a  partir  de  la  cual  se  lo  grabo. 

Los  programas  de  BASIC  protegidos  no  se  pueden  cargar  por  este  metodo,  pues  el  or- 
denador  los  borra  inmediatamente  de  la  memoria.  Esos  programas  deben  ser  cargados 
con  RUN  o  CHAIN. 

Palabras  clave  asociadas:  CHAIN,  CHAIN  MERGE,  MERGE,  RUN,  SAVE. 
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LOCATE 

LOCATE   [Weipresion  de  nuero  de  canal),  Kcoordenada  x) ,  <coordenada  y> 

10  MODE  1 

20  FOR  n=l  TO  20 

30  LOCATE  r»,r» 

40  PRINT  CHR*<143) ; "posicion"; 

50  PRINT  n; " , " ;n 

60  NEXT 

run 

Orden.  Coloca  el  cursor  de  texto  del  canal  indicado  en  la  position  especificada  por  las 
coordenadas  x,y.  La  position  1,1  es  el  extremo  superior  izquierdo  de  la  ventana.  EI 
canal  #0  es  el  canal  implicito. 

Palabras  clave  asociadas:  WINDOW. 


LOG 

LOG  <  <expresion  nuierica) ) 

PRINT    L06<9999> 
9.21024037 

Funcidn.  Calcula  el  logaritmo  natural  o  neperiano  de  la  <expresion  numerica),  la  cual 
debe  ser  mayor  que  cero. 

Palabras  clave  asociadas:  EXP,  LOG10. 

LOG10 

LOG10(<enpresion  nuierica)) 

PRINT  LOG10(9999) 
3.99995657 

Funcidn.  Calcula  el  logaritmo  decimal  de  la  <expresi6n  numerica),  la  cual  debe  ser  ma- 
yor que  cero. 

Palabras  clave  asociadas:  EXP,  LOG. 
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LOWERS 

LOWER* UexpresiDii  literal)) 

10  a*="OBSERVE  COMO  SE  CONVIERTEN  LAS  LETRAS  A  " 

20  PRINT  LOWER* <a*+ "MINUSCULAS" ) 

run 

Funcidn.  Da  una  cadena  literal  que  es  copia  de  la  <expresion  literal)  especificada,  pero 
convirtiendo  las  letras  mayiisculas  en  miniisculas  y  dejando  inalterados  los  restantes  ca- 
racteres.  Esta  funcidn  es  util  en  el  proceso  de  datos  que  puedan  contener  minusculas 
mezcladas  con  mayiisculas. 

Palabras  clave  asociadas:  UPPER$. 

MASK 

MASK    Kexpresion  enters)]! ,  <situacion  del  priier  punto)] 

10  MODE  0IINK  5,21;INK  8,16 

20  MOVE  -100*RND,400*RND 

30  WHILE  XPOS<640 

40  FOR  x=l  TO  8 

50  MASK  2t<8-x) 

60  DRAWR  32, 0, x, l: MOVER  -32,0 

70  NEXT 

80  MOVER  34,0 

90  WEND: GOTO  20 

run 

Orden.  Define  una  'mascara'  o  plantilla  que  se  puede  utilizar  en  el  dibujo  de  rectas. 
La  <expresion  entera)  (margen  de  0  a  255)  determina  la  situacidn  de  los  diversos  bits 
de  cada  grupo  de  8  pixels  adyacentes:  0  para  pixel  apagado,  1  para  pixel  iluminado. 

El  parametro  < situacidn  del  primer  punto)  determina  si  el  primer  punto  de  la  recta  de- 
be  ser  iluminado  (1)  o  no  (0). 

Se  puede  omitir  cualquiera  de  los  dos  parametros,  pero  no  ambos.  La  situation  de  la 
caracteristica  correspondiente  al  parametro  omitido  permanece  inalterada. 

Palabras  clave  asociadas:  DRAW,  DRAWR,  GRAPHICS  PAPER,  GRAPHICS  PEN. 
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MAX 

MAX  ( <lista  tfe:<expresion  nuierica)) 

10    n=66 

20    PRINT    MAX(ifn,3,6,4,3) 
run 
66 

Funcidn.  Da  el  valor  maximo  de  los  incluidos  en  la  <  lista  de:<expresi6n  numerica). 
Palabras  clave  asociadas:  MIN. 

MEMORY 

MEMORY   <expresion  de  direction  de  leioria) 

MEMORY    &20AA 

Orden.  Determina  el  espacio  de  memoria  utilizable  por  BASIC  al  fijar  la  direcci6n  de 
su  limite  superior. 

Nota.  BASIC  solamente  utiliza  el  primer  banco  de  memoria,  es  decir,  los  primeros 
64K. 

Palabras  clave  asociadas:  FRE,  HIMEM,  SYMBOL,  SYMBOL  AFTER. 

MERGE 

MERGE   <noibre  del  fichero) 

MERGE    "nuevopro.bas" 

Orden.  Lee  un  programa  grabado  en  disco  y  lo  superpone  al  actualmente  almacenado 
en  la  memoria. 

Las  lineas  del  programa  leido  se  superponen  y  sustituyen  a  las  que  hubiera  en  el  antiguo 
con  el  mismo  niimero. 

Los  ficheros  protegidos  (grabados  con  ,p)  no  pueden  ser  mezclados  por  este  procedi- 
miento  con  el  programa  actual. 

Palabras  clave  asociadas:  CHAIN,  CHAIN  MERGE,  LOAD. 
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MID$ 

MID$(<expresioR  literal) ,  <posicion  de  partidaH,  (longitud  de  la  subcadena)]) 

10  MODE  l:20NE  3 

20  a*='*MASSACHUSETTS" 

30  PRINT  "Deletreame  " ;  a* 

40  PRINT  "Vale  ...":PRINT 

50  FOR  n=l  TO  LEN(a*) 

60  PRINT  MID*(a*,n, 1) , 

70  FOR  t=l  TO  700: NEXT  t,n 

80  PRINTIPRINT 

90  INPUT  "AhDra  escriba  usted  otra  palabra:  " , a* 

100  GOTO  50 

run 

Funcion.  Genera  una  cadena  literal  copiada  de  la  <expresion  literal).  El  numero  de  ca- 
racteres  copiados  es  el  dado  por  <longitud  de  la  subcadena);  la  copia  empieza  en  el 
caracter  especificado  por  <  position  de  partida).  Si  no  se  especifica  la  <longitud  de  la 
subcadena),  se  copian  todos  los  caracteres  restantes,  desde  <posici6n  de  partida)  hacia 
la  derecha. 

Si  la  (position  de  partida)  es  mayor  que  la  longitud  de  la  <expresion  literal),  se  genera 
la  cadena  vacia.  El  margen  de  < position  de  partida)  es  de  1  a  255.  El  de  < longitud  de 
la  subcadena)  es  de  0  a  255. 

Palabras  clave  asociadas:  LEFT$,  RIGHT$. 


MID$ 

MID*  ((variable  literal),  (posicion  de  insercionH,  (longitud  de  cadena  nueva)]) 

=<expresion  de  cadena  nueva) 

10   a*="Amstrad" 

20   MID*(a*,3,2)="XX" 

30   PRINT    a* 

run 

AmXXrad 

Orden.  Reemplaza  un  numero  de  caractres  de  la  < variable  literal),  dado  por  < longitud 
de  cadena  nueva),  con  caracteres  tornados  de  <expresion  de  cadena  nueva).  La  sustitu- 
ci6n  empieza  en  < position  de  insertion). 

Observese  que  cuando  se  utiliza  MID$  como  orden,  su  argumento  debe  ser  una  Varia- 
ble literal);  no  vale,  pues,  una  cadena  literal  constante  tal  como  "hola". 

Palabras  clave  asociadas:  LEFT$,  RIGHT$. 
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MIN 

MIN  ( <lista  deKexpr-esion  nuierica)) 

PRINT    MIN<3,6,2.999,8,9) 
2.999 

Funcidn.  Da  el  valor  mi'nimo  de  los  incluidos  en  la  <lista  de:<expresi6n  numerica). 
Palabras  clave  asociadas:  MAX. 

MOD 

<ar9uier.to>   MOD   <arguiento> 

PRINT    10   MOD    3 

1 
PRINT    10    MOD    5 

0 

Operador.  Da  el  resto  de  la  division  entera  del  primer  <argumento>  por  el  segundo. 
Palabras  clave  asociadas:  ninguna. 

MODE 

MODE   <expresion  entera) 

10   m=m+l:IF   m>2    THEN   m=0 

20    MODE    m 

30   PRINT"Este    es    el    raodo" ;m 

40   PRINT"Pulse    una    tecla." 

50    IF    INKEY*=""    THEN    50    ELSE    10 

run 

Orden.  Cambia  el  modo  de  pantalla  (0,  1  o  2)  y  la  borra  tifiendola  con  la  tinta  niimero 
0  (que  puede  no  ser  la  tinta  actualmente  asignada  al  papel).  Todas  las  pantallas  de  texto 
y  graficas  se  restauran  (coincidentes  con  la  pantalla  completa);  los  cursores  de  texto 
y  grafico  quedan  en  sus  origenes  respectivos. 

Palabras  clave  asociadas:  ORIGIN,  WINDOW. 
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MOVE 

MOVE    <coordenada  x> ,  <coordenada  y>[ ,  [<tinta>][ ,  <iodo  de  tints)]] 

10   MODE    1ITAG 

20    x=RND*800-100:y=RND*430 

30   MOVE    x,y 

40    PRINT    "Estoy    aqui"; 

50    GOTO    20 

run 


Orden.  Lleva  el  cursor  grafico  a  la  position  absoluta  especificada  por  las  coordenadas 

x,y.  Se  puede  utilizar  el  parametro  optional  <tinta>  para  cambiar  la  tinta  de  la  pluma 

grafica  (margen  0  a  15). 

El  parametro  optional  <modo  de  tinta)  determina  la  futura  forma  de  interaction  en 

tre  la  tinta  con  la  que  se  dibuje  y  la  ya  existente  en  la  pantalla.  Los  cuatro  modos 

son: 

0  Normal 

1  XOR  (OR  exclusivo) 

2  AND 

3  OR 

Palabras  clave  asociadas:  MOVER,  ORIGIN,  XPOS,  YPOS. 


MOVER 

MOVER    <increiento  de  x) ,  Uncreiento  de  y>[ ,  [<tinta>][ ,  <iado  de  tints)]] 

10  MODE  l: TAG: MOVE  0,16 

20  PRINT  "primero  se  sube"; 

30  FOR  n=l  TO  8 

40  MOVER  -56, 16 

50  PRINT  "sube" ;: NEXT: PRINT  "  y  luego  se  baja"; 

60  FOR  n=l  TO  8 

70  MOVER  -56,-16 

80  PRINT  "baja" 5 : NEXT 

run 


Orden.  Lleva  el  cursor  grafico  a  un  punto  cuya  position,  referida  a  la  actual,  viene  da- 
da  por  <incremento  de  x>  e  <incremento  de  y>.  Se  puede  utilizar  el  parametro  opcional 
< tinta)  para  cambiar  la  tinta  de  la  pluma  grafica  (margen  de  0  a  15). 
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El  parametro  optional  <modo  de  tinta)  determina  la  futura  forma  de  interaction  entre 
la  tinta  con  la  que  se  dibuje  y  la  ya  existente  en  la  pantalla.  Los  cuatro  modos  son: 

0  Normal 

1  XOR  (OR  exclusivo) 

2  AND 

3  OR 

Palabras  clave  asociadas:  MOVE,  ORIGIN,  XPOS,  YPOS. 


NEW 

NEW 

NEW 

Orden.  Borra  el  programa  de  BASIC  actualmente  residente  en  la  memoria.  No  se  pier- 
den  las  definiciones  de  teclas  ni  se  modifican  las  caracterfsticas  de  la  pantalla  (MODE, 
PEN,  PAPER,  INK,  etc.)  ni  se  borra  la  pantalla. 

Palabras  clave  asociadas:  ninguna. 

NEXT 

NEXT   [(lista  de: (variable)] 

10  FOR  a=i  TO  3 

20  FOR  b=0  TO  26 

30  MODE  1 

40  PEN  a: BORDER  b 

50  PRINT  "pen'iai"  border"  ;b 

60  FOR  c=l  TO  500 

70  NEXT  c,b,a 

run 

Orden.  Seflala  el  final  del  bucle  FOR  ...  NEXT.  La  orden  NEXT  puede  ser  anonima 
o  mencionar  el  nombre  de  la  variable  del  FOR  correspondiente.  Observese  en  el  ejem- 
plo  anterior  que  las  variables  de  la  lista  deben  estar  en  orden  inverso  al  de  sus  corres- 
pondientes  ordenes  FOR,  de  modo  que  los  bucles  no  queden  solapados,  sino  anidados. 

Palabras  clave  asociadas:  FOR,  STEP,  TO. 
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NOT 

NOT   <argu«Rto) 

IF  NOT  'juanVpepe'  THEN  PRINT  'verdadero'  ELSE  PRINT  '{also' 

falso 

IF  NOT  'gato'J'perro'  THEN  PRINT  'verdadero'  ELSE  PRINT  'falsa' 

verdadero 

•  •  • 

PRINT  NOT  -1 
I 

PRINT  NOT  I 
-1 

Operador.  Realiza  la  negaci6n  logica  sobre  enteros  inviertiendo  todos  los  bits  del 
argumento. 

En  la  parte  2  el  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  amplia  information 
sobre  las  operaciones  16gicas. 

Palabras  clave  asociadas:  AND,  OR,  XOR. 


ON  BREAK  CONT 

ON    BREAK    CONT 

10  ON  BREAK  CONT 

20  PRINT  "El  programa  CONTinua  aunque  usted 

intente  interrumpir lo  con  [ESC3":PRINT 
30  FOR  t=l  TO  1000: NEXT: GOTO  20 
run 

Orden.  Inhibe  la  posibilidad  de  interrumpir  el  programa  pulsando  la  tecla  [ESC],  pues 
intercepta  la  interruption  y  contimia  la  ejecucion.  Esta  orden  se  debe  utilizar  con  pre- 
caution, ya  que  el  programa  no  podra  ser  detenido  mas  que  reinicializando  la  maquina; 
grabe  el  programa  antes  de  ejecutarlo. 

Dentro  de  un  programa,  esta  orden  se  anula  con  ON  BREAK  STOP. 

Palabras  clave  asociadas:  ON  BREAK  GOSUB,  ON  BREAK  STOP. 
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ON  BREAK  GOSUB 

ON    BREAK    GOSUB   <nuiero  de  linea) 

10  ON  BREAK  GOSUB  40 

20  PRINT  "Programs  runcionando" 

30  GOTO  20 

40  CLS:PRIMT  "Pulsando  dDS  veces  [ESC] 

50  PRINT"se  invoca  la  subrutina" 

60    FOR  t=l  TO  2000: NEXT 

70  RETURN 

run 


Orden.  Provoca  el  salto  a  la  subrutina  especificada  por  <numero  de  linea)  cuando  se 
pulsa  dos  veces  la  tecla  [ESC]. 

Palabras  clave  asociadas:  ON  BREAK  CONT,  ON  BREAK  STOP,  RETURN. 


ON  BREAK  STOP 

ON    BREAK    STOP    (nuiero  de  linea) 

10  ON  EREAK  GOSUB  40 

20  PRINT  "Programa  -F uncionando" 

30  GOTO  20 

40  CLS: PRINT  "Pulsando  dos  veces  [ESC1  "; 

50  PRINT"se  invoca  la  subrutina" 

60  FOR  t=l  TO  2000: NEXT 

65  ON  BREAK  STOP 

70  RETURN 

run 

Orden.  Anula  las  6rdenes  ON  BREAK  CONT y  ON  BREAK  GOSUB,  permitiendo  asi 
que  el  programa  pueda  ser  interrumpido  normalmente  con  la  tecla  [ESC].  En  el  progra- 
ma ejemplo,  la  orden  ON  BREAK  GOSUB  solo  actua  una  vez,  pues  la  linea  65  de  la 
rutina  de  interrupci6n  la  anula. 

Palabras  clave  asociadas:  ON  BREAK  CONT,  ON  BREAK  GOSUB. 


V50  Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD 


ON  ERROR  GOTO 

ON   ERROR    GOTO   (nuiero  de  linea) 

10  ON  ERROR  GOTO  60 

20  CLS: PRINT  "Si  detecto  un  error,  "; 

30  PRINT  "listare  el  programa" 

40  FOR  t=l  TO  4000: NEXT 

50  GOTO  100 

60  PRINT  "Hay  un  error  en  la  linea"; 

70  PRINT  ERL: PRINT: LIST 

run 

Orden.  Provoca  el  salto  a  la  linea  especificada  cuando  se  detecta  un  error  en  el 
programa. 

La  forma  ON  ERROR  GOTO  0  desactiva  la  gestion  de  errores  programada  por  el  usua- 
rio  y  activa  la  normal  de  BASIC. 

Vease  tambien  la  orden  RESUME. 

Palabras  clave  asociadas:  DERR,  ERL,  ERR,  ERROR,  RESUME. 

ON  <expresion>  GOSUB 


ON   (selector)    GOSUB   Uista  deXnuiero  de  linea) 

10  PAPER  0:PEN  1IINK  0,1 

20  CLS: PRINT  "MENU  DE  OPCIONES" : PRINT 

30  PRINT  "1.  Cambiar  borde": PRINT 

40  PRINT  "2.  Cambiar  pluma" : PRINT 

50  PRINT  "3.  Cambiar  modo": PRINT 

60  INPUT  "Elija  del  1  al  3:  " , x 

70  ON  x  GOSUB  90,110,130 

80  GOTO  20 

90  b=b-l:IF  b<0  THEN  b=26 

100  BORDER  b: RETURN 

110  p=p-l:IF  p<2  THEN  p=26 

120  INK  l,p: RETURN 

130  m=m-l:IF  m<0  THEN  m=2 

140  MODE  m: RETURN 

run 
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Orden.  Determina,  en  funcion  del  valor  de  < selector),  que  subrutina  de  BASIC  debe 
ser  invocada.  El  margen  de  valores  de  <selector>  es  de  0  a  255.  La  rutina  elegida  es 
la  que  se  encuentra  en  la  lista  en  el  lugar  indicado  por  < selector).  Asi,  en  el  ejemplo 
anterior,  si  x=l,  se  invoca  la  rutina  de  la  linea  90;  si  x=2,  la  linea  110;  y  si  x=3,  la 
de  la  linea  130. 

Si  el  valor  de  < selector)  es  cero  o  mayor  que  el  numero  de  lineas  citadas  en  la  < lista 
de  niimeros  de  linea),  no  se  invoca  ninguna  subrutina. 

Palabras  clave  asociadas:  RETURN. 


ON  <expresion>  GOTO 

ON   Selector)   GOTO   <lista  deKmmero  de  linea) 

10  CLSIPRINT  "MENU  DE  QPCIONES" : PRINT 

20  PRINT  "1.  Listar  progr-ama" :  PRINT 

30  PRINT  "2.  Ed i tar  y  amp  1 i ar ": PRINT 

40  PRINT  "3.  Catalogo  del  disco" : PRINT 

50  INPUT  "Elija  del  1  al  3:  ",x 

60  ON  x  GOTO  80,90,100 

70  GOTO  10 

30  LIST 

90  AUTO 

100  CAT  . 

run 


Orden.  Determina,  en  funcion  del  valor  de  < selector),  a  que  linea  del  programa  debe 
saltar  la  ejecucidn.  El  margen  de  valores  de  < selector)  es  de  0  a  255.  La  linea  elegida 
es  la  que  se  encuentra  en  la  lista  en  el  lugar  indicado  por  <selector).  Asi,  en  el  ejemplo 
anterior,  si  x=l  se  salta  a  la  linea  80;  si  x=2,  a  la  linea  90;  y  si  x=3,  a  la  linea  100. 

Si  el  valor  de  < selector)  es  cero  o  mayor  que  el  numero  de  lineas  citadas  en  la  < lista 
de  niimeros  de  linea),  no  se  produce  el  salto. 

Palabras  clave  asociadas:  RETURN. 


3/52  Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD 


ON  SQ  GOSUB 

ON   SQ( (canal) )    GOSUB   (nuiero  de  liitea) 

10  ENV  1,15,-1, 1 

20  ON  SGM1)  GOSUB  60 

30  MODE  0:ORIGIN  0,0,200,440,100,300 

40  FOR  x  =  l  TO  13: FRAME: MOVE  330, 200, x 

50  FILL  x: NEXT: GOTO  40 

60  READ  s:IF  s=0  THEN  RESTORE: GOTO  60 

70  SOUND  l,s,25,15,l 

80  ON  SQ81)  GOSUB  60: RETURN 

90  DATA  50,60,90,100,35,200,24,500,0 

run 

Orden.  Invoca  la  subrutina  especificada  cuando  hay  espacio  libre  en  la  cola  de  sonidos. 
El  parametro  < canal)  deber  ser  una  expresion  entera  que  de  uno  de  los  siguientes 
valores: 

1  para  el  canal  A 

2  para  el  canal  B 
4    para  el  canal  C 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  information  sobre 
los  sonidos. 

Palabras  clave  asociadas:  RETURN,  SOUND,  SQ. 

OPENIN 

OPEN  IN   (noibre  de  fichero) 

10   REM    abrir    un    -fichero    del    disco    para   entrada 

20   OPENIN    "datos" : INPUT    #9, a, a* 

30   CLOSEIN:PRINT    "L05    do5    valores    son:" 

40    PRINT: PRINT    a, a* 

run 

Orden.  Abre,  en  direction  de  entrada,  un  fichero  grabado  en  disco  para  hacerlo  accesi- 
ble  al  programa.  El  fichero  tiene  que  ser  de  tipo  ASCII. 

El  programa  anterior  solo  funciona  si  se  ha  creado  previamente  el  fichero  (por  ejemplo, 
con  el  programa  siguiente). 

Palabras  clave  asociadas:  CLOSEIN,  EOF. 
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OPENOUT 

OFENOUT    <noibre  del  fichero) 

10  REM  abrir  un  -fichero  en  el  disco  para  salida 
20  INFUT  "Escriba  un  nurnero:  %a 
30  INPUT  "Escriba  una  palabra:  " , a* 
40  OPENOUT  "datos" 
50  WRITE  #9, a, a* 

60  CLOSEOUT: PRINT  "Datos  grabados  en  disco" 
run 


Orden.  Abre,  en  direction  de  salida,  un  fichero  para  su  grabaci6n  en  disco. 
Palabras  clave  asociadas:  CLOSEOUT. 


OR 

(arguiento)  OR  <arguieiitc) 

IF  'juan'Cpepe'  OR  'perro'J'gato'  THEN  PRINT  'verdadero'  ELSE  PRINT  '{also' 

verdadero 

IF  'pepe'Cjuaii'  OR  'gato'J'perro'  THEN  PRINT  'verdadero"  ELSE  PRINT  -falso' 

lalso 

IF  'juaiiVpepe'  GR  'gatc'J'perro'  THEN  PRINT  'verdadero1  ELSE  PRINT  Walso' 

verdadero 

PRINT  1  OR  1 

1 
PRINT  I  OR  0 

I 
PRINT  1  OR  0 

1 


Operador.  Realiza  la  operation  16gica  'o'  bit  a  bit  entre  enteros.  El  resultado  es  1 
menos  que  ambos  bits  sean  0. 

Para  mas  amplia  informacidn  sobre  operaciones  logicas,  consulte  la  parte  2  del  capftu- 
lo  titulado  'Cuando  usted  guste  . . .'. 

Palabras  clave  asociadas:  AND,  NOT,  XOR. 


a 
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—  ORIGIN 

—  ORIGIN    <x>,<y>[,  <iiquierda>,  <derecha> ,  <arriba> ,  <abajo>] 

~  10    MODE    l: BORDER    13: TAG 

— .  20    ORIGIN    0,0,100,540,300,100 

30  GRAPHICS  PAPER  3:CLG 
"*  40  FOR  x=550  TO  -340  STEP  -10 

_  50  MOVE  x,206 

60  PRINT  "Esta  es  una  ventana  gra+ica  "; 

—  70  FRAME: NEXT: GOTO  40 
run 

—  Orden.  Traslada  el  origen  de  graficos  (nuevo  punto  0,0)  a  la  position  especificada  por 
<x>  e  <y>. 

Al  mismo  tiempo  se  pueden  especificar  las  dimensiones  de  una  ventana  grafica  dando 

—  los  cuatro  ultimos  parametros  (opcionales).  Si  estos  parametros  definen  posiciones  ex- 
ternas  a  la  pantalla,  el  borde  de  la  ventana  sera  el  borde  de  la  pantalla. 

Palabras  clave  asociadas:  CLG. 
"  OUT 

OUT  (nuiefu  de  puerta),  <expfe5iun  entera) 

—  OUT    8cF8F4,8cFF 

~  Orden.  Envia  el  valor  de  <expresi6n  entera)  (margen  de  0  a  255)  a  la  direction  especifi- 

_^  cada  por  <numero  de  puerta). 

Esta  orden  no  debe  ser  utilizada  si  no  se  sabe  cuales  son  sus  efectos. 

Palabras  clave  asociadas:  INP,  WAIT. 

""  PAPER 

PAPER    [#<expre5ion  de  niiiero  de  canal),  Ktinta) 

10  MODE  0IPEN  0:INK  0,13 

20  FOR  p=i  TO  15 

—  30  PAPER  p:CLS 

_  40  LOCATE  7, 12: PRINT  "paper" 5p 

50  FOR  t=l  TO  500: NEXT  t,p 
__  run 
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Orden.  Establece  que  tinta  se  va  a  utilizar  para  escribir  el  fondo  (papel)  de  los  caracte- 
res.  Si  los  caracteres  se  envian  a  la  pantalla  de  texto,  la  celda  se  rellena  con  el  color 
actual  del  papel  antes  de  escribir  el  caracter  (a  menos  que  se  haya  elegido  el  modo 
transparente). 

Si  se  omite  la  <expresion  de  numero  de  canal)  se  supone  el  #0. 

El  numero  de  tintas  utilizables  simultaneamente  depende  del  modo  de  pantalla. 

Palabras  clave  asociadas:  GRAPHICS  PAPER,  INK,  PEN. 

PEEK 

PEEK  (<expresion  de  direction  de  uioria)) 

10    MODE    1IZONE    7 

20    WINDOW    1,40,1,3:WINDOW    #1,1,40,4,25 

30  LOCATE  13, l:PRINT"MEMORIA" 

40  PRINTlPRINVDireccion" 

50  LOCATE  20,3:PRINT,,Contenido" 

60  FOR  n=0  TO  65535 

70  p=PEEK(n) 

80  PRINT  #l,n, " <k";HEX$(n) ; " ) "; 

90  PRINT  »l,TAB(20);p,"(fc";HEX*(p) ;") " 

100  NEXT 

run 

Funcion.  Da  el  contenido  de  la  posici6n  de  memoria  especificada  por  el  argumento, 
el  cual  debe  estar  en  el  margen  de  &0000  a  &FFFF  (0  a  65535).  En  todos  los  casos,  el 
valor  producido  sera  el  contenido  de  la  posici6n  de  memoria  de  la  RAM  (no  de  la 
ROM)  y  estara  entre  &00  y  &FF  (entre  0  y  255). 

Palabras  clave  asociadas:  POKE. 

PEN 

PEN   [#<expresion  de  nuiero  de  canal),  H<tinta>ll  ,<iodo  de  fondo)] 

10  MODE  0: PAPER  0:INK  0,13 

20  FOR  p=l  TO  15 

30  PEN  p: PRINT  SPACE* ( 47 )S "pen" ;p 

40  FOR  t=l  TO  500: NEXT  t,p:GOTO  20 

run 

Orden.  Establece  la  < tinta)  (margen  de  0  a  15)  con  la  que  se  escribiran  los  caracteres 
en  lo  sucesivo  en  el  canal  especificado  (en  el  #0  si  no  se  especifica  ninguno).  El  parame- 
tro  <modo  de  fondo)  puede  ser  1  (transparente)  o  0  (opaco). 
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Se  puede  omitir  cualquiera  de  los  liltimos  parametros,  pero  no  ambos.  La  caracteristica 
correspondiente  al  parametro  omitido  permanece  inalterada. 

Palabras  clave  asociadas:  PAPER. 

PI 

PI 

PRINT  PI 
3.14159265 

Funcion.  Da  el  valor  del  niimero  x,  relation  de  la  longitud  al  diametro  de  la  circun- 
ferencia. 

Palabras  clave  asociadas:  DEG,  RAD. 

PLOT 

PLOT   <CDordemdi  x) ,  <coordenada  y)I ,  Ktintill ,  <iodo  de  tints)]] 

10  MODE  l: BORDER  0: PAPER  0:PEN  1 

20  INK  0,0: INK  1,26: INK  2,13,26:DEG 

30  FOR  x=l  TO  360: ORIGIN  320,200 

40  DRAW  50*COS(x) ,50*SIN(x) , 1 

50  PLOT  100*COS(x> , 25*SIN(x> : NEXT 

60  ORIGIN  0,0: t=TIME+700: WHILE  TIME<t 

70  PLOT  RND*640,RND*400:WEND 

80  PLOT  RND*640,RND*400,2 

90  GOTO  90 

run 

Orden.  Dibuja  un  punto  en  la  pantalla  grafica,  en  la  position  absoluta  especificada  por 
los  parametros  <coordenada  x>  y  <coordenada  y>.  Tambien  se  puede  especificar  la 
"<tinta>  con  la  que  se  debe  dibujar  (margen  de  0  a  15). 

El  parametro  optional  <modo  de  tinta)  determina  la  forma  de  interaction  entre  la  tinta 
.con  la  que  se  dibuja  y  la  ya  presente  en  la  pantalla.  Los  cuatro  modos  son: 

0  Normal 

„1  XOR  (OR  exclusivo) 

2  AND 

3  OR 

Palabras  clave  asociadas:  GRAPHICS  PEN,  PLOTR. 
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PLOTR 


PLOTR   <increiento  de  x) ,  <increiento  de  y)[ ,  Ktintalt ,  <iodo  de  tints)]] 


10 
20 
30 
40 
50 
60 
70 
80 
90 
run 


REM  dibuja  de  rectas  can 
BORDER  0: GRAPHICS  PEN  1 
MODE  UPLOT  320,200 
IF  INKEY<0>=0  THEN  PLOTR 
IF  INKEY(1)=0  THEN  PLOTR 
IF  INKEY(2)=0  THEN  PLOTR 
IF  INKEY(8)=0  THEN  PLOTR 
IF  INKEY<9>=0  THEN  30: REM 


las  teclas  del  cursor 


GOTO  40 


0,1 
1,0 
0,-1 
-1,0 
copy  =  borrar 


Orden.  Dibuja  un  punto  en  la  pantalla  grafica  en  una  position  que,  referida  a  la  actual, 
viene  dada  por  los  parametros  <incremento  de  x)  e  <incremento  de  y).  Se  puede  utili- 
zar  el  parametro  optional  <tinta)  para  cambiar  la  tinta  de  la  pluma  grafica  (margen 
de  0  a  15). 

El  parametro  optional  <modo  de  tinta)  determina  la  futura  forma  de  interacci6n  entre 
la  tinta  con  la  que  se  dibuja  y  la  ya  presente  en  la  pantalla.  Los  cuatro  modos  son: 

0  Normal 

1  XOR  (OR  exclusivo) 

2  AND 

3  OR 

Palabras  clave  asociadas:  GRAPHICS  PEN,  PLOT. 


POKE 

POKE   <expresion  de  direccion  de  leioria) ,  <expresion  entera) 

10   FOR    m=49152    TO    65535 
20   POKE   ra,100 
30    NEXT 
run 

Orden.  Escribe  el  valor  de  la  <expresi6n  entera)  (margen  de  0  a  255)  en  la  memoria 
de  la  maquina  (RAM),  en  la  posici6n  especificada  por  el  parametro  <expresi6n  de  di- 
recci6n  de  memoria) . 

Esta  orden  no  se  debe  utilizar  si  no  se  sabe  cuales  son  sus  efectos. 
Palabras  clave  asociadas:  PEEK. 
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_         POS 

FOS  <tt<expreiion  de  nuiero  de  canal)) 

~  10  MODE  l: BORDER  0: LOCATE  8,2 

—  20  PRINT  "Utilice  las  teclas  de  cursor  a  la 

izquierda  y  cursor  a  la  derecha" 
~"  30  WINDOW  1,40, 12, 12: CURSOR  1,1 

_  40  FOR  n=l  TO  19:PRINT  CHR* (9) ; : NEXT 

50  IF  INKEY(1)<>-1  THEN  PRINT  CHR$(9); 

—  60  IF  INKEY<8)<>-1  THEN  FRINT  CHR*(8); 
70  LOCATE  ttl, 1,24 

"  80  PRINT  ttl, "Posicion  horizontal  del  "; 

„  90  PRINT  ttl,"cursor  de  texto  ="; 

100  PRINT  ttl, POS <tt0) : GOTO  50 

—  run 

~~  Funcion.  Da  la  position  horizontal  del  cursor  de  texto  referida  al  borde  izquierdo  de 

—  la  ventana.  El  parametro  <expresion  de  numero  de  canal)  tiene  que  ser  especificado, 
aunque  sea  el  #0. 

POS{#8)  da  la  posicion  horizontal  de  la  cabeza  impresora,  siendo  1  la  position  del  ex- 
~~  tremo  izquierdo. 

—  POS(#9)  da  la  posicion  logica  en  el  canal  del  disco,  esto  es,  el  numero  de  caracteres 
__            tipograficos  enviados  al  disco  despues  del  ultimo  retorno  del  carro. 

Palabras  clave  asociadas:  VPOS,  WINDOW. 


PRINT 

PRINT    [#<expresion  de  nuiero  de  canal),  IKlista  deKeleiento  que  se  escribe)] 

10  a*="corta" 

20  b*="esta  cadena  es  mas  larga" 

30  PRINT  a*; a* 

40  PRINT  a*, a* 

50  PRINT 

60  PRINT  b*5b* 

70  PRINT  b*,b* 

run 

Orden.  Envia  los  <elementos  que  se  escriben)  al  canal  especificado  (o  al  #0,  si  no  se 
especifica  ninguno). 

Cuando  se  utiliza  un  signo  de  punto  y  coma  (;)  para  separar  los  elementos  de  la  lista, 
el  ordenador  escribe  cada  elemento  inmediatamente  despues  del  anterior;  no  obstante, 
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BASIC  comprueba  si  el  elemento  siguiente  cabe  en  la  misma  lfnea  y,  si  no  cabe,  salta 
a  la  linea  siguiente  a  pesar  del  signo  de  punto  y  coma. 

Analogamente,  la  coma  (,)  especifica  que  el  siguiente  elemento  se  debe  escribir  en  la 
siguiente  zona  de  escritura;  no  obstante,  BASIC  comprueba  si  con  el  elemento  actual 
se  ha  rebasado  la  anchura  de  la  zona  de  escritura  y,  si  es  asi,  escribe  el  siguiente  elemen- 
to en  una  zona  mas  a  la  derecha. 


PRINT  SPC 
PRINT  TAB 


PRINT    [tKexpresion  de  nuiero  de  canal),  JKlista  de:<eleiento  que  se  escribe>][;  ] 
[SPC  Uexpresion  enteral)  JKlista  de:<eleiento  que  se  escribe)] 

PRINT    [#<expresion  de  nuiero  de  canal),  JKlista  de:<eleiento  que  se  escribe)]! ;  ] 
[TABUexpresion  entera))  JKlista  deKeleiento  que  se  escribe)] 

10  PRINT  "Esta  es  la  -funcion  SPC" 

20  FOR  x=6  TO  15 

30  PRINT  SPC (5) "a";SPC<x) "b" 

40  NEXT 

50  PRINT  "Esta  es  la  -funcion  TAB" 

60  FOR  x  =  6  TO  15 

70  PRINT  TAB(5) "a";TAB(x> "b" 

80  NEXT 

run 


SPC  escribe  el  mimero  de  espacios  especificado  por  la  <expresion  entera)  y  luego,  in- 
mediatamente  a  su  derecha,  el  siguiente  < elemento)  (en  el  supuesto  de  que  quepa  en 
la  misma  linea).  Por  consiguiente,  no  es  necesario  poner  el  signo  de  punto  y  coma  des- 
pues  de  SPC. 

TAB  avanza  (escribiendo  espacios)  hasta  la  posici6n  especificada  por  la  <expresi6n 
entera),  referida  al  borde  izquierdo  de  la  ventana,  y  luego,  inmediatamente  a  la  dere- 
cha de  esa  posicion,  escribe  el  siguiente  < elemento)  (en  el  supuesto  de  que  quepa  en 
la  misma  linea).  Por  consiguiente,  no  es  necesario  poner  el  signo  de  punto  y  coma  des- 
pues  de  TAB.  Si  la  posicion  actual  es  mayor  que  la  especificada,  primero  se  realiza  un 
retorno  de  carro  y  avance  de  linea  y  despu£s  el  avance  de  los  espacios  necesarios. 
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PRINT  USING 

PRINT    [Wexpfesion  de  miiefo  de  canal>H<lista  de:<eleiento  que  se  escribe)]!  5 1 
[USING   <plantilla  de  {orHtD>][<separador><expre5ioii>] 

10   FOR    x=l    TO    10 

20    n=100000*(RNDt5) 

30   PRINT    "Precio"; USING    "tttttttttttttttt,  .  tttt"  5  n 

40   NEXT 

run 

PRINT  USING  permite  especificar  el  formato  de  la  expresi6n  escrita  con  PRINT.  Esto 
se  consigue  especificando  una  (plantilla  de  formato)  a  la  que  la  escritura  ha  de  amol- 
darse.  El  <separador>  es  una  coma  o  un  punto  y  coma.  La  (plantilla  de  formato)  es 
una  cadena  literal  construida  con  los  siguientes  'especificadores  de  formato': 

Formatos  numericos 

Para  el  mimero  en  si: 

*  Cada  #  especifica  una  posici6n  (para  un  digito). 
Ejemplo:  ###### 

Especifica  la  posici6n  del  punto  decimal. 
Ejemplo:  ######.## 

,  (Especifica  una  posici6n.)  S61o  puede  aparecer  antes  del  punto  decimal.  Especi- 

fica que  los  digitos  que  queden  a  la  izquierda  del  punto  decimal  deben  separarse 
mediante  comas  en  grupos  de  tres. 
Ejemplo:  #####,.## 

Para  antes  y  despues  del  mimero: 

PtPt  (Especifica  dos  posiciones.)  Especifica  que  se  debe  escribir  un  signo  Pt  inme- 
diatamente  antes  del  primer  digito  o  del  punto  decimal,  despuSs  del  signo  + 
o  -  (si  lo  hay).  ObsSrvese  que  el  signo  Pt  ocupara  una  de  las  posiciones  para 
digitos.  Ejemplo:  PtPt######,.## 

*  *        (Especifica  dos  posiciones.)  Especifica  que  los  espacios  libres  a  la  izquierda  de- 

ben ser  rellenados  con  asteriscos. 
Ejemplo:  **######,.## 

*  *Pt    (Especifica  tres  posiciones.)  Actiia  como  las  opciones  *  *  y  PtPt  combinadas, 

es  decjc  con  asteriscos  por  la  izquierda  y  el  signo  Pt. 
Ejemplo:  **Pt######,.## 

$$  (Especifica  dos  posiciones.)  Especifica  que  se  debe  escribir  un  signo  $  inmedia- 
tamente  antes  del  primer  digito  o  del  punto  decimal,  despues  del  signo  +  o  - 
(si  lo  hay).  ObsSrvese  que  el  signo  $  ocupara  una  de  las  posiciones  para  digitos. 
Ejemplo:  $$######,.## 


Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD  3/61 


** 


+ 


$      (Especifica  tres  posiciones.)  Actiia  como  las  opciones  *  *  y  $$  combinadas,  es 
decir,  con  asteriscos  por  la  izquierda  y  el  signo  $. 
Ejemplo:  **$######,.## 

Especifica  que  se  debe  escribir  el  signo  +  o  el  -  (segiin  corresponda).  Si  se  in- 
cluye  el  signo  +  al  principio  de  la  plantilla,  el  signo  se  escribira  inmediatamente 
antes  del  niimero  (y  del  signo  R  o  $,  si  se  lo  ha  especificado).  Si  se  incluye  el 
signo  +  al  final  de  la  plantilla,  el  signo  se  escribe  a  la  derecha  del  niimero  (y 
del  exponente,  si  lo  hay). 
Ejemplo:  +####.#### 

Este  signo  solo  se  puede  poner  al  final  de  la  plantilla.  Especifica  que,  si  el  nii- 
mero es  negative  se  debe  escribir  el  signo  -  a  su  derecha  (y  a  la  derecha  del 
exponente,  si  lo  hay).  Si  el  niimero  es  positive  a  su  derecha  se  escribe  un  espa- 
cio.  Si  no  se  especifica  esto,  se  escribe  autom£ticamente  un  signo  -  a  la  izquier- 
da de  todos  los  numeros  negativos. 
Ejemplo:  ####.####- 

ft  ft      Especifica  que  el  niimero  se  debe  escribir  en  forma  exponential.  Los  signos 
TTTT  se  deben  poner  a  la  derecha  de  las  posiciones  para  digitos,  pero  a  la  iz- 
quierda de  los  signos  +  y  -  (si  los  hay). 
Ejemplo:  ##.#### ffff  + 

La  <  plantilla  de  formato)  para  numeros  no  puede  contener  mas  de  20  caracteres.  Los 
numeros  son  redondeados  antes  de  escribirlos  con  los  digitos  especificados. 

Si  el  formato  es  demasiado  pequeno  para  el  niimero  que  se  ha  de  escribir,  por  ejemplo 
PRINT    USING    "####" 5  12345678 

el  niimero  no  se  trunca,  sino  que  se  lo  escribe  entero,  precedido  de  un  signo  %  para 
indicar  el  'fallo  de  formato'. 

Formatos  literates 


10  CLS:a*="abcde-Fghijklmnopq" 

20  PRINT  "expresion  de  entrada  =  " ; a* 

30  PRINT:PRINT  "con  especi-F  icador  !  =  » ; 

40  PRINT  USING  " I " ; a* 

50  PRINT:PRINT  "con  especi-F  icador  \espacios\  = 

60  PRINT  USING  "\        \ " 5  a* 

70  PRINT:  PRINT  "con  espec  i-F  icador  *  =  "; 

80  PRINT  USING  "B^'Ja* 

90  GOTO  90 

run 
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!  Especifica  que  solamente  se  debe  escribir  el  primer  caracter  de  la  cadena. 

Ejemplo:  ! 

\<espacios>\ 

Especifica  que  solamente  se  deben  escribir  los  x  primeros  caracteres  de  la  cade- 
na, siendo  x  la  longitud  de  la  plantilla  (incluidas  las  barras  inclinadas  hacia  la 
izquierda). 
Ejemplo:  \  \ 

&  Especifica  que  se  debe  escribir  la  cadena  completa  sin  modificarla. 

Ejemplo:  & 

La  <  plantilla  de  formato)  para  cadenas  literales  no  puede  contener  mas  de  255 
caracteres. 

Las  plantillas  de  formato,  tanto  si  son  numericas  como  si  son  literales,  pueden  ser  re- 
presentadas  por  variables  literales;  por  ejemplo: 

10  a*="hh#tt*M*#tt, .#*" 

20  b*=" ! " 

30  PRINT  USING  a*5 12345. 6789 

40  PRINT  USING  b*; "cent imos" 

run 


En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  informaci6n  acerca 
de  los  formatos  de  impresion. 

Palabras  clave  relacionadas:  SPC,  TAB,  USING,  ZONE. 


RAD 

RAD 

RAD 

Orden.  Hace  que  BASIC  entienda  los  argumentos  de  las  funciones  trigonom&ricas  en 
radianes.  Esta  es  la  situation  implicita  que  se  establece  en  el  momento  de  encender  la 
maquina,  cuando  se  la  reinicializa  y  cuando  se  ejecutan  las  ordenes  NEW,  CLEAR, 
LOAD,  RUN,  etc. 

Palabras  clave  asociadas:  ATN,  COS,  DEG,  SIN,  TAN. 
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RANDOMIZE 

RANDOMIZE    Kexpresion  niiierica)] 

RANDOMIZE  123.456 
PRINT  RND 
0.258852139 


Orden.  El  generador  de  niimeros  aleatorios  de  BASIC  produce  una  sucesion  pseudo- 
aleatoria  en  la  que  cada  niimero  depende  del  anterior.  La  sucesion  es  siempre  la  misma. 
RANDOMIZE  hace  que  los  niimeros  aleatorios  se  tomen  de  esa  sucesi6n  a  partir  de 
la  position  dada  por  la  <expresion  numerica)  o,  si  se  omite  esta,  por  un  valor  que  el 
usuario  debe  teclear. 

RANDOMIZE  TIME  produce  una  sucesi6n  que  es  muy  dificil  de  repetir. 
Palabras  clave  asociadas:  RND. 


READ 

READ   Cist  de:<variable> 

10  FOR  n=l  TO  8 

20  READ  a*,c 

30  PRINT  a*;M  n;:SOUND  l,c:NEXT 

40  DATA  en, 478, todas,426, las, 379, escalas, 358 

50  DATA  musicales,319,hay,284,8,253,notas,239 

run 


Orden.  Lee  datos  de  las  listas  precedidas  de  DATA  y  los  asigna  a  variables,  actualizan- 
do  automaticamente  el  'puntero'  de  forma  que  este  seflale  el  siguiente  dato.  Se  puede 
utilizar  la  orden  RESTORE  para  hacer  que  el  puntero  seriale  el  primer  dato  de  una  de- 
terminada  lista  DATA. 

En  la  parte  2  del  capitulo  titulado  'Cuando  usted  guste  . . . '  daremos  mas  amplia  infor- 
mation a  este  respecto. 


Palabras  clave  asociadas:  DATA,  RESTORE. 
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RELEASE 

RELEASE   <ca»ales  de  sonido) 

10  SOUND  65,1000,100 

20  PRINT  "Pulse  R  para  liberar  el  sonido" 

30  IF  INKEY<50>=-1  THEN  30 

40  RELEASE  1 

RUN 

Orden.  Libera  los  canales  de  sonido  que  han  sido  retenidos  en  una  orden  SOUND. 

El  parametro  < canales  de  sonido)  tiene  que  dar  un  valor  entero  comprendido  entre  1 
y  7.  Su  significado  es  el  siguiente: 

1  libera  el  canal  A 

2  libera  el  canal  B 

3  libera  los  canales  A  y  B 

4  libera  el  canal  C 

5  libera  los  canales  A  y  C 

6  libera  los  canales  B  y  C 

7  libera  los  canales  A,  B  y  C 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  amplia  informaci6n 
acerca  de  los  sonidos. 

Palabras  clave  asociadas:  SOUND. 


REM 

REM  <restD  de  la  linea) 

10  REM  Caza  a  muerte  de  los  invasores  del 

hiperespacio  intergalact ico,  por  AMSOFT 
20  REM  Copyright  AMSOFT  1985 

Orden.  Precede  a  las  observaciones  o  anotaciones  al  programa.  Hace  que  BASIC  igno- 
re el  resto  de  la  linea,  en  el  cual  pueden  figurar  caracteres  cualesquiera,  incluso  el  signo 
de  dos  puntos  (:),  que  normalmente  se  utiliza  para  separar  instrucciones. 

En  lugar  de  :REM  se  puede  poner  una  comilla  sencilla  O  en  todos  los  casos  salvo  en 
las  lineas  de  DATA,  en  las  que  el  signo  '  se  interpreta  como  integrante  de  una  cadena 
literal. 

Palabras  clave  asociadas:  ninguna. 
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REMAIN 

REMAIN  (<nuiero  de  teiporizadof)) 

10  AFTER  500,1  GOSUE  40 

20  AFTER  100,2  GOSUB  50 

30  PRINT  "Programa  -f  uncionando" :  GOTO  30 

40  REM  esta  subrutina  no  sera  invocada  porque 

lo  impide  la  linea  80 
50  PRINT:PRINT  "El  tempori zador  1  va  a  set-  "; 
60  PRINT  "inhibido  por  REMAIN." 
70  PRINT  "(Jnidades  de  tiempo  que  quedaban:"; 
80  PRINT  REMAIN(l) 
run 

Funcion.  Da  la  cuenta  restante  en  el  temporizador  especificado  (margen  de  0  a  3)  y  lo 
desactiva. 

En  la  parte  2  del  capi'tulo  'Cuando  usted  guste  . . . '  daremos  mas  information  acerca 
de  las  interrupciones. 

Palabras  clave  asociadas:  AFTER,  Dl,  El,  EVERY. 


RENUM 

RENUM    Unuevo  nuiero  de  linea>J[ ,  Kantiguo  nuiero  de  linea)]! ,  <incre«ento>JJ 

10   CLS 

20  REM  esta  linea  sera  la  123 

30  REM  esta  linea  sera  la  124 

40  REM  esta  linea  sera  la  125 

RENUM  123,20,1 

LIST 

Orden.  Renumera  las  lineas  del  programa. 

El  parametro  (antiguo  niimero  de  linea)  especifica  el  mimero  de  linea  actual  en  el  cual 
debe  comenzar  la  remuneration.  Si  se  omite  ese  parametro,  la  remuneration  se  realiza 
desde  el  principio  del  programa. 

El  parametro  <nuevo  niimero  de  linea)  especifica  que  mimero  se  va  a  dar  a  la  primera 
linea  renumerada.  Si  se  omite  este  parametro,  el  programa  renumerado  empieza  en  la 
linea  10. 

El  parametro  (incremento)  especifica  el  salto  que  habra  entre  cada  dos  mimeros  de 
linea  sucesivos.  Si  se  lo  omite,  el  incremento  es  10. 
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RENUM  modifica  correctamente  los  niimeros  de  linea  citados  en  las  instrucciones 
GOTO,  GOSUB  y  similares.  Sin  embargo,  no  se  modifican  las  referencias  a  niimeros 
de  linea  que  esten  contenidas  en  expresiones  literales,  tales  como  las  que  intervienen 
en  las  ordenes  KEY,  ni  tampoco  las  contenidas  en  lineas  REM,  ni  las  <  expresiones  de 
niimero  de  linea)  incluidas  en  CHAIN  y  CHAIN  MERGE. 

Los  niimeros  de  linea  validos  son  los  comprendidos  entre  1  y  65535. 

Palabras  clave  asociadas:  DELETE,  LIST. 


RESTORE 

RESTORE    Knuiero  it  linea)] 

10  READ  s*: PRINT  a*;"  "; 

20  RESTORE  50 

30  FOR  t=l  TO  500: NEXT: GOTO  10 

40  DATA  restaure  los  datos  para  leerlos  una  vez 

50  DATA  y  otra 

run 

Orden.  Hace  que  el  'puntero'  de  datos  'apunte'  hacia  el  principio  de  la  linea  de  DATA 
especificada  por  el  parametro  opcional  <niimero  de  linea).  Si  se  omite  el  parametro, 
el  puntero  seflala  la  primera  linea  de  DATA  del  programa. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  informaci6n  a  este 
respecto. 

Palabras  clave  asociadas:  DATA,  READ. 


RESUME 

RESUME    Knmerc  de  linea)! 

10  ON  ERROR  GOTO  60 

20  FOR  x=10  TO  0  STEP  -1:PRINT  l/x:NEXT 

30  END 

40  PRINT  "llegamos  hasta  aqui  despues  del  error" 

50  END 

60  PRINT  "error  numero" ; ERR; "en  la  linea";ERL 

70  RESUME  40 

run 

Orden.  Reanuda  la  ejecucion  normal  del  programa  una  vez  detectado  un  error  y  proce- 
sado  por  una  orden  ON  ERROR  GOTO.  Si  se  omite  el  <niimero  de  linea),  el  programa 
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continiia  en  la  misma  linea  en  la  que  se  produjo  el  error.  Suprima  el  <niimero  de  linea) 
en  el  ejemplo  anterior  y  ejecute  nuevamente  el  programa: 

70   RESUME 
run 

Palabras  clave  asociadas:  DERR,  ERL,  ERR,  ERROR,  ON  ERROR  GOTO,  RESUME 
NEXT. 


RESUME  NEXT 

RESUME    NEXT 

10  ON  ERROR  GOTO  90 

20  PRINT  "Pulse  siempre  CRETURN3" 

30  INPUT  "1"  ;a 

40  INPUT  "2"; a 

50  inpot  "3"; a  REM  error  de  sintaxis 

60  INPUT  "4"  ;a 

70  INPUT  "5"; a 

80  END 

90  PRINT  "error  numero" ; ERR; "en  la  linea" ; ERL 

100  RESUME  NEXT 

run 

Orden.  Reanuda  la  ejecucidn  normal  del  programa  una  vez  detectado  un  error  y  proce- 
sado  por  una  orden  ON  ERROR  GOTO. 

RESUME  NEXT  reanuda  la  ejecucion  en  la  linea  siguiente  a  aqu&la  en  la  que  se  detec- 
to  el  error. 

Palabras   clave    asociadas:    DERR,    ERL,    ERR,    ERROR,    ON    ERROR    GOTO, 
RESUME. 


RETURN 

RETURN 

10  GOSUB  50: PRINT  "despues  del  GOSUB":END 

50  FOR  n=l  TO  20 

60  PRINT  "subrutina" 

70    NEXT: PRINT 

30  RETURN 

run 
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Orden.  Senala  el  final  de  una  subrutina.  BASIC  retorna  de  la  subrutina  a  la  instruction 
inmediatamente  posterior  a  aquella  que  invoc6  la  subrutina. 

Palabras  clave  asociadas:  GOSUB. 

RIGHTS 

RIGHT$<<expre5ioi>  literal) ,  <longitud  deseaia)) 

10  MODE  0:a*="Ordenador  CPC6128" 
20  FOR  n=l  TO  17:L0CATE  21-n,n 
30  PRINT  RIGHT*(a*,n) 
40  NEXT 
run 

Funcidn.  Produce  una  cadena  que  consta  del  numero  de  caracteres  dado  por  <longitud 
deseada)  (margen  de  0  a  255)  tornados  de  la  derecha  de  la  <expresion  literal).  Si  la  lon- 
gitud  de  la  <expresion  literal)  es  menor  que  la  <longitud  deseada),  la  cadena  producida 
es  la  <expresion  literal)  completa. 

Palabras  clave  asociadas:  LEFT$,  MID$. 

RND 

RNDI  (<expresion  KUierica))  1 

10  RANDOMIZE 

20  FOR  x=l  TO  -1  STEP  -1 

30  PRINT  "parametro  de  rnd  =  ";x 

40  FOR  n=l  TO  6 

50  PRINT  RND(X) 

60  NEXT  n,x 

run 

Funcidn.  Da  el  siguiente  numero  aleatorio  de  la  sucesion  en  el  caso  de  que  la  <expresion 
numerica)  tenga  valor  positivo  o  no  haya  sido  especificada. 

Si  la  <expresion  numerica)  toma  valor  cero,  RND  vuelve  a  dar  el  anterior  numero  alea- 
torio generado. 

Si  la  <expresion  numerica)  toma  un  valor  negativo,  se  inicia  una  nueva  sucesion  aleato- 
ria  y  RND  da  su  primer  numero. 

Palabras  clave  asociadas:  RANDOMIZE. 
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ROUND 

ROUND  ( <expresio«  nuierica>[ ,  <deciiales>] ) 

10    FOR    n=4    TO    -4    STEP-1 

20  PRINT  ROUND  (1234.  5678,  n)  , 

30  PRINT  "con  <decimales>  ="jn 

40  NEXT 

run 

Funcidn.  Redondea  la  <expresi6n  numerica)  a  un  numero  de  decimales  o  potencia  de 
diez  especificada  por  < decimales).  Si  < decimales)  es  menor  que  cero,  se  redondea  la 
<expresi6n  numerica)  para  dar  un  numero  entero  seguido  de  tantos  ceros  antes  del 
punto  decimal  como  indique  el  parametro  < decimales). 

Palabras  clave  asociadas:  ABS,  CINT,  FIX,  INT. 


RUN 

RUN   <expresion  literal) 
RUN    "disc" 

Orden.  Carga  un  programa  de  BASIC  o  un  programa  binario  que  este  grabado  en  disco 
e  inicia  su  ejecuci6n.  Borra  el  programa  anteriormente  residente  en  la  memoria. 

Los  programas  de  BASIC  protegidos  pueden  ser  ejecutados  por  este  procedimiento. 

Palabras  clave  asociadas:  LOAD. 


RUN 

RUN   Kmiiero  de  linea)] 
RUN   200 

Orden.  Inicia  la  ejecuci6n  del  programa  de  BASIC  actual  a  partir  de  la  linea  especifica- 
da por  < numero  de  linea),  o  a  partir  de  la  primera  linea  del  programa  si  se  omite  el 
parametro. 

Los  programas  protegidos  no  pueden  ser  ejecutados  por  este  procedimiento. 
Palabras  clave  asociadas:  CONT,  END,  STOP. 
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SAVE 

SAVE   <nmbre  de  fichero>[ ,  Uipo  de  tichero>!I ,  <par»etros  bi»arios>] 
SAVE    "-fichero.  xyz" 

graba  el  fichero  en  modo  de  BASIC  no  protegido  normal. 
SAVE    "-fichero.  xyz"  ,P 

graba  el  fichero  en  modo  de  BASIC  protegido. 
SAVE    "-fichero.  xyz" ,  A 

graba  el  fichero  en  modo  ASCII. 

SAVE  "  -f  i  chero . xyz " , B ,  8000,  3000 ,  8001 

graba  el  fichero  en  modo  binario.  En  este  ejemplo,  graba  la  zona  de  memoria  del  orde- 
nador  que  empieza  en  la  direccidn  8000  y  tiene  una  extension  de  3000  bytes;  el  punto 
de  entrada  opcional  es  8001. 

Orden.  Graba  en  disco  el  programa  actualmente  residente  en  la  memoria.  Un  fichero 
binario  consiste  en  una  zona  de  memoria  copiada  en  el  disco.  Los  parametros  son  en 
este  caso: 

<direccion  inicial> ,  Uongitud  del  f  icheroM  ,  <pwito  de  entrada)] 

La  memoria  dedicada  a  la  pantalla  se  puede  grabar  en  forma  de  fichero  binario.  Es 
lo  que  se  denomina  'volcado  de  la  pantalla';  la  orden  necesaria  es: 

SAVE    "pantalla",B,kC000,k4000 

El  fichero  se  puede  volver  a  cargar  con  la  orden: 

LOAD  "pantalla" 

Palabras  clave  asociadas:  CHAIN,  CHAIN  MERGE,  LOAD,  MERGE,  RUN. 
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SGN 

SGN  ((expresion  nuierica)) 

10    FOR    n=200    TO    -200    STEP-20 

20   PRINT    "SGN    da"; 

30  PRINT  SGN(n) ; "cuando  el  numero  es";n 

40  NEXT 

run 

Funcion.  Determina  el  signo  de  la  <  expresion  numerica).  Da  el  valor  - 1  si  la  (expre- 
sion numerica)  es  menor  que  cero;  el  valor  0  si  es  igual  a  0;  y  el  valor  1  si  es  mayor 
que  cero. 

Palabras  clave  asociadas:  ABS. 

SIN 

S I N  ( (expresion  nuierica) ) 

10  cls:deg: origin  0,200 

20  FOR  n=0  TO  720 

30  y=SIN(n) 

40  PLOT  n-X-640 / 720,  193*y:  NEXT 

50  GOTO  50 

run 

Funcion.  Calcula  el  seno  de  la  < expresion  numerica). 

Observese  que  se  puede  utilizar  DEG  y  RAD  para  hacer  que  el  ordenador  entienda  los 
arcos  como  dados  en  grados  o  en  radianes,  respectivamente. 

Palabras  clave  asociadas:  ATIM,  COS,  RAD,  TAN. 

SOUND 

SOUND   (situacion  de  canales) ,  (per iodo  de  tono)I ,  (duracion)I ,  <voluien> 
[,  <envolvente  de  voluien)! ,  (envDlvente  de  tono)[ ,  <ruido)]]JJ] 

10    FOR    z=0    TO    4095 
20    SOUND    l,z,  1,  12 
30    NEXT 
run 

Orden.  Programa  la  generacion  de  un  sonido.  Los  parametros  son  los  siguientes: 
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Parametro  1:  (situation  de  canales) 

El  parametro  (situation  de  canales)  debe  tener  un  valor  comprendido  entre  1  y  255. 
El  significado  de  cada  uno  de  los  bits  es  como  sigue: 

Bit  0  (decimal  1)  enviar  sonido  al  canal  A  (bit  menos  significativo) 

Bit  1  (decimal  2)  enviar  sonido  al  canal  B 

Bit  2  (decimal  4)  enviar  sonido  al  canal  C 

Bit  3  (decimal  8)  sincronizacion  con  el  canal  A 

Bit  4  (decimal  16  sincronizacion  con  el  canal  B 

Bit  5  (decimal  32)  sincronizacion  con  el  canal  C 

Bit  6  (decimal  64)  retention  del  canal  de  sonido 

Bit  7  (decimal  128)  borrado  del  canal  de  sonido  (bit  mas  significativo) 

Por  ejemplo,  el  valor  68  del  parametro  (situation  de  canales)  especifica: 

Enviar  el  sonido  al  canal  C  (4)  y  retenerlo  (64). 

Parametro  2:  <periodo  de  tono) 

Este  parametro  define  el  tono  del  sonido;  es  decir,  identifica  la  nota  (DO,  RE,  MI,  FA, 
etc.).  Cada  nota  tiene  un  niimero  de  identification,  que  es  el  <periodo  de  tono).  Vease 
el  capitulo  titulado  'Para  su  referencia  . . . '. 

Parametro  3:  (duration) 

Este  parametro  especifica  la  duration  del  sonido.  Las  unidades  son  de  centesimas  de 
segundo  (0.01  s).  Si  no  se  especifica  duration,  el  ordenador  toma  el  valor  implfcito  para 
este  parametro,  que  es  20  (un  quinto  de  segundo). 

Si  el  valor  de  (duration)  es  cero,  el  sonido  dura  hasta  el  final  de  la  envolvente  de  volu- 
men  especificada. 

Si  el  valor  de  (duration)  es  negativo,  la  envolvente  de  volumen  especificada  se  repite 
ABS(< duration))  veces. 

Parametro  4:  < volumen) 

Este  parametro  especifica  el  volumen  initial  de  la  nota.  El  margen  de  valores  va  de  0 
a  15.  El  <volumen)  0  es  el  minimo;  el  15  es  el  maximo.  Si  no  se  especifica  <volumen), 
el  ordenador  toma  el  implfcito,  que  es  12. 

Parametro  5:  (envolvente  de  volumen) 

Se  puede  hacer  que  el  volumen  de  la  nota  no  sea  constante,  sino  que  varfe  con  el  tiempo 
mientras  la  nota  esta  sonando.  Para  especificar  la  forma  de  variation  del  volumen  con 
el  tiempo  se  utiliza  la  orden  ENV.  De  hecho,  se  pueden  crear  hasta  15  envolventes  de 
volumen  diferentes,  con  mimeros  de  referencia  del  1  al  15.  El  parametro  (envolvente 
de  volumen)  invoca  una  envolvente  de  volumen  para  su  utilization  por  SOUND. 

Vease  la  description  de  la  orden  ENV. 
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Parametro  6:  <envolvente  de  tono> 

Se  puede  hacer  que  el  tono  de  una  nota  no  sea  constante,  sino  que  varie  con  el  tiempo 
mientras  la  nota  esta  sonando.  Para  especificar  la  forma  de  variation  del  tono  con  el 
tiempo  se  utiliza  la  orden  ENT.  De  hecho,  se  pueden  crear  hasta  15  envolventes  de 
tono  diferente,  con  numeros  de  referenda  del  1  al  15.  El  parametro  <envolvente  de 
tono)  invoca  una  envolvente  de  tono  para  su  utilization  por  SOUND.  Si  en  la  defini- 
tion de  ENT  se  ha  puesto  un  numero  negativo  como  numero  de  envolvente,  en  la  ins- 
truction SOUND  se  debe  poner  el  valor  absoluto  de  ese  numero  como  < envolvente  de 
tono  > . 

Vease  la  description  de  la  orden  ENT. 

Parametro  7:  <ruido> 

Se  puede  afiadir  ruido  al  sonido:  la  intensidad  del  ruido  se  controla  con  el  parametro 
<ruido>.  El  margen  de  valores  va  de  0  (ruido  apagado)  hasta  31. 

En  la  parte  2  del  capi'tulo  'Cuando  usted  guste  . . . '  daremos  mas  amplia  informacidn 
sobre  los  sonidos. 

Palabras  clave  asociadas:  ENT,  ENV,  ON  SQ  GOSUB,  RELEASE,  SQ. 


SPACES 

SPACE*  (<expfesion  entera)) 

10   MODE    1 

20  PRINT  "Pongamos  5  espacios  entre  uno"; 

30  PRINT  SPACE*(5) ; 

40  PRINT  "y  otro" 

run 

Funcion.  Crea  una  cadena  literal  consistente  en  el  numero  de  espacios  especificado  por 
<expresion  entera)  (margen  de  0  a  255). 

Palabras  clave  asociadas:  SPC,  STRING$,  TAB. 


SPC 

Vease  PRINT  SPC. 
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SPEED  INK 

SPEED    INK    <periodo  1> ,  <periodo  2) 

10    BORDER    7, 18 

20    FOR    i=30    TO    1    STEP-1 

30    SPEED    INK    i, i 

40    FOR    t=l    TO    700: NEXT    t,i 

run 

Orden.  Establece  la  velocidad  de  alternancia  entre  los  dos  colores  de  tinta  especificados 
mediante  INK  o  BORDER.  El  primer  parametro,  <periodo  1  >,  especifica  el  tiempo  pa- 
ra el  primer  color,  en  unidades  de  0.02  s  (cincuentavos  de  segundo);  <periodo  2>  especi- 
fica el  tiempo  para  el  segundo  color. 

Tengase  cuidado  al  elegir  colores  y  velocidades  para  evitar  efectos  mesmericos  ('hip- 
notizantes'). 

Palabras  clave  asociadas:  BORDER,  INK. 

SPEED  KEY 

SPEED    KEY    <deiora  de  arranque),  (periodo  de  repeticion) 

10    CLSIFOR    k=7    TO    1    STEP-2 

20    PRINT    "Escriba   su    nombre    y    pulse    [RETURN]" 

30   SPEED    KEY    k,k 

40  LINE  INPUT  a*: NEXT 

50  PRINT  "Es  un  nombre  muy  interesante" 

run 

Orden.  Establece  las  caracteristicas  de  repeticion  de  las  teclas.  El  parametro  <demora 
de  arranque)  especifica  el  tiempo,  en  unidades  e  0.02  s  (cincuentavos  de  segundo)  que 
ha  de  estar  pulsada  la  tecla  antes  de  que  empiece  a  repetirse  su  action.  El  parametro 
<periodo  de  repetici6n>  especifica  el  tiempo  que  debe  transcurrir  entre  cada  dos  repeti- 
ciones  sucesivas. 

SPEED  KEY  solamente  actiia  sobre  las  teclas  que  son  de  repeticion  implicitamente  o 
que  han  sido  definidas  como  tales  mediante  KEY  DEF. 

Cuando  se  vaya  a  utilizar  valores  muy  bajos  del  parametro  <demora  de  arranque),  es 
aconsejable  definir  previamente  una  de  las  teclas  numericas  para  que  devuelva  el  tecla- 
do  a  la  situation  implicita,  SPEED  KEY  30,2.  La  orden 

KEY  0, "SPEED  KEY  30, 2" +CHR* < 13) 
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restablece  los  valores  implicitos  de  los  parametros  de  SPEED  KEY  en  cuanto  se  pulsa 
la  tecla  del  0  del  teclado  numerico. 

Palabras  clave  asociadas:  KEY  DEF. 


SPEED  WRITE 

SPEED    WRITE    <expresioi>  entera) 

SPEED    WRITE    1 

Orden.  Establece  la  velocidad  de  transferencia  de  datos  al  magnetofono  (si  esta  conec- 
tado).  Las  velocidades  son:  2000  bits  por  segundo,  si  <expresi6n  entera)  vale  1,  y  1000 
bits  por  segundo  si  <expresion  entera)  vale  0.  Esta  ultima  es  la  velocidad  implicita.  Pa- 
ra leer  una  cinta  no  es  necesario  saber  a  que  velocidad  ha  sido  grabada,  pues  el  orden- 
dor  selecciona  automaticamente  la  velocidad  correcta  de  lectura. 

La  maxima  fiabilidad  en  la  transferencia  de  datos  se  obtiene  con  la  velocidad  minima, 
que  ademas  es  la  implicita:  SPEED  WRITE  0. 

Esta  orden  no  ejerce  ningun  efecto  sobre  el  sistema  de  grabacion  en  disco. 

Palabras  clave  asociadas:  OPENOUT,  SAVE. 


SQ 


SG(<caital>) 


10  SOUND  65, 100, 100 
20  PRINT  SGH1) 
run 
6? 

Funcion.  Genera  un  numero  que  informa  del  estado  de  la  cola  de  sonido  del  < canal) 
especificado.  El  parametro  puede  tener  uno  de  los  siguientes  valores: 

1  para  el  canal  A 

2  para  el  canal  B 
4  para  el  canal  C 

La  funcion  SQ  produce  un  numero  que  se  interpreta,  segiin  sea  el  valor  de  sus  bits, 
de  la  forma  siguiente: 

Bits  0,  1  y  2:  numero  de  huecos  libres  en  la  cola 

Bits  3,  4  y  5:  estado  de  sincronizacion  de  la  primera  nota  de  la  cola 

Bit   6  :  la  primera  nota  esta  retenida 

Bit   7  :  el  canal  esta  activo  en  la  actualidad 

donde  el  bit  0  es  el  menos  significativo  y  el  bit  7  el  mas  significative 
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Como  se  puede  apreciar,  si  el  bit  6  esta  a  1,  el  bit  7  tiene  que  estar  a  cero,  y  viceversa. 
Analogamente,  si  alguno  de  los  bits  3,  4  y  5  esta  a  1,  los  bits  6  y  7  tienen  que  estar 
a  cero. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  informacion  acerca 
de  los  sonidos. 

Palabras  clave  asociadas:  ON  SQ  GOSUB,  SOUND. 


SQR 

SQR  <  <expresion  nuierica) ) 

PRINT    SQR(9> 

3 

Funcion.  Da  el  valor  de  la  rafz  cuadrada  de  la  (expresion  numerica). 
Palabras  clave  asociadas:  ninguna. 

STEP 

Vease  FOR. 

STOP 

STOP 

10  FOR  n=l  TO  30: PRINT  n:NEXT 

20  STOP 

30  FOR  n=31  TO  60: PRINT  n:NEXT 

run 

cont 

Orden.  Detiene  la  ejecuci6n  del  programa,  pero  deja  BASIC  en  un  estado  tal,  que  el 
programa  puede  ser  reanudado  mediante  CONT.  STOP  se  utiliza  para  establecer  pun- 
tos  de  parada  en  la  depuracion  de  programas. 

Palabras  clave  asociadas:  CONT,  END. 
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STR$ 

STR*(<expresiois  miierica)) 

10   a=8cFF    :REM   255    en    hexadecimal 

20   b=8£Xllll    :REM    15    en    binario 

30   c*="***" 

40    PRINT    c*+STR*(a+b)+c* 

run 

***   270*** 


Funcion.  Convierte  la  <expresi6n  numerica)  en  una  cadena  literal  formada  por  los  mis- 
mos  digitos  decimales. 

Palabras  clave  asociadas:  BIN$,  DEC$,  HEX$,  VAL. 


STRINGS 

STRING*  ( <longitud> ,  (especif icidor  del  cincter) ) 

PRINT    STRING*(40, "*") 
**************************************** 

Funcidn.  Da  una  cadena  literal  que  consiste  en  el  caracter  especificado  repetido  tantas 
veces  como  indique  <longitud>  (margen  de  0  a  255).  Notese  que  en  el  ejemplo  anterior 
se  podria  haber  puesto  tambien: 

PRINT    STRING*(40,42) 
**************************************** 

donde  el  <especificador  del  caracter),  el  numero  42,  es  el  c6digo  ASCII  del  asterisco. 
Palabras  clave  asociadas:  SPACES. 


SWAP 

Vease  WINDOW  SWAP. 
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en 

binar i 

D 

en 

bi  nar i 

Q 

en 

binar 

IQ 

en 

binar 

io 

en 

bi  nar 

LO 

en 

binar 

ID 

en 

binar 

LO 

en 

bi  nar io 

—  SYMBOL 

~  SYMBOL   <nuero  del  caracter) ,  <lista  4e:<f ila) 

10  MODE  l: SYMBOL  AFTER  105 

—  20  -f  ilal=255:REM  11111111 
_  30  -f  ila2=129:REM  10000001 

40  -f  ila3=189:REM  10111101 

—  50  -f  ila4=153:REM  10011001 
60  -f  ila5=153:REM  10011001 

~~  70   -f  ila6=189:REM    10111101 

__  80  -f  ila7=129:REM  10000001 

90  -f  ila8=255:REM  11111111 

—  100  PRINT  "La  linea  110  rede-fine  la  letr-a  i  <105). 

Teclee  varias  veces  esa  letra  y  luego    1 iste 
el  programa. " 
_  110  SYMBOL  105,-f  ilal.-f  ila2,-f  i  la3, -f  i  la4, -H  la5, 

■f  i  1  a6 , -f  i  1  a7 , -f  i  1  a8 

—  run 

—  Orden.  Redefine  la  forma  de  un  caracter.  El  margen  para  todos  los  parametros  es  de 
0  a  255. 

Con  objeto  de  reservar  espacio  en  la  memoria  del  ordenador  para  la  description  del 

—  caracter,  es  necesario  ejecutar  previamente  la  orden: 

~  SYMBOL    AFTER    x 

donde  x  debe  ser  igual  o  menor  que  el  niimero  del  caracter  que  se  va  a  definir. 

~  A  continuation  se  emite  la  orden  SYMBOL  seguida,  en  primer  lugar,  por  el  niimero 

del  caracter. 

El  caracter  puede  ser  directamente  accesible  por  el  teclado;  en  cualquier  caso  se  lo  pue- 
~~  de  escribir  mediante  la  orden 

~  PRINT   CHR*<x) 

Despues  de  SYMBOL  x  viene  una  sucesion  de  hasta  8  parametros,  cada  uno  de  los  cua- 

—  les  describe  una  fila  de  la  matriz  del  caracter.  El  margen  de  estos  parametros  es  de  0 
a  255.  La  representation  binaria  de  cada  parametro  indica  la  situacidn  de  'encendido' 

~~  o  'apagado'  de  cada  uno  de  los  puntos  de  la  fila  correspondiente. 

—  Por  ejemplo,  si  el  primero  de  los  ochos  parametros  vale  1 ,  la  fila  superior  del  caracter 
tiene  la  representation  binaria  00000001.  Cada  1  indica  que  el  correspondiente  punto 

~~  del  caracter  se  ilumina  con  el  color  de  PEN;  cada  0  indica  que  el  correspondiente  punto 

_  no  sera  visible,  pues  se  lo  escribe  con  el  color  de  PAPER.  Asi  pues,  la  primera  fila  de 

este  caracter  consiste  en  un  punto  en  el  extremo  superior  derecho.  Los  siguientes  para- 

—  metros  son  3,7,15,31 ,63,0,0.  La  representacidn  binaria  de  los  ocho  parametros  es  como 
sigue: 
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parametro  (fila)  1: 

00000001  en  binario 

[  1  en  decimal) 

parametro  (fila)  2: 

00000011  en  binario 

[  3  en  decimal) 

parametro  (fila)  3: 

00000111  en  binario 

7  en  decimal) 

parametro  (fila)  4: 

00001111  en  binario 

15  en  decimal) 

parametro  (fila)  5: 

00011111  en  binario  1 

^31  en  decimal) 

parametro  (fila)  6: 

00111111  en  binario  1 

^63  en  decimal) 

parametro  (fila)  7: 

00000000  en  binario  ( 

0  en  decimal) 

parametro  (fila)  8: 

00000000  en  binario  ( 

0  en  decimal) 

Observando  el  conjunto  de  las  representaciones  binarias  podemos  hacernos  una  idea 
del  aspecto  que  tendra  el  caracter.  Asignemos  estos  parametros  al  caracter  numero  255 
mediante  la  orden: 

SYMBOL    255,1,3,7,15,31,63,0,0 

Al  ser  0  los  dos  liltimos,  podemos  omitirlos: 

SYMBOL    255,1,3,7,15,31,63 

Los  parametros  se  pueden  introducir  en  forma  binaria,  con  lo  que  se  ahorra  el  trabajo 
de  convertirlos  previamente  a  la  forma  decimal.  (Recuerdese  que  el  prefijo  para  niime- 
ros  binarios  es  &X.)  Por  ejemplo: 

SYMBOL  255 ,  &X00000001 ,  kX0000001 1 ,  &X000001 1 1 , 
8tX00001  111,  kX0001 1111,  kX001 11111 

Finalmente,  para  ver  el  resultado  de  la  definition,  ejecute  la  orden 
PRINT    CHR*<255) 

Si  se  redefine  uno  de  los  caracteres  accesibles  por  el  teclado,  el  nuevo  caracter  aparecera 
en  la  pantalla  cada  vez  que  se  pulse  la  tecla  correspondiente  o  se  lo  escriba  con  PRINT 
CHR$(  ).  Por  otra  parte,  BASIC  reconoce  la  forma  del  nuevo  caracter  cuando  trata 
de  leerlo  en  la  pantalla,  y  no  lo  rechaza  por  incomprensible. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  . . . '  daremos  mas  information  sobre 
la  redefinition  de  caracteres. 

Palabras  clave  asociadas:  COPYCHR$,  HIMEM,  MEMORY,  SYMBOL  AFTER. 
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—  SYMBOL  AFTER 

~  SYMBOL    AFTER   <eicpresion  entera) 

~  10   CLS 

—  20    SYMBOL    AFTER    115 

30  PRINT  "La  linea  40  rede-fine  la  letra  s  "; 
~  40  SYMBOL  115,0,56,64,64,48,8,8,112 

_  50  PRINT  "a  s" 

60  PRINT  "Cancele  esta  de-f  inic  ion  de  s" 

—  70  PRINT  "tecleando  SYMBOL  AFTER  240" 
run 

Or  den.  Establece  el  niimero  de  caracteres  redefinibles  por  el  usuario  (en  el  margen  de 
0  a  256).  El  niimero  implfcito  es  240,  lo  que  deja  16  caracteres  (del  240  al  255)  definibles 
por  el  usuario.  Si  <expresi6n  entera)  es  32,  todos  los  caracteres,  del  32  al  255,  son  defi- 
nibles. SYMBOL  AFTER  256  impide  la  redefinicion  de  caracteres. 

Cada  vez  que  se  ejecuta  una  orden  SYMBOL  AFTER,  quedan  anuladas  todas  las  rede- 

finiciones  y  la  forma  de  todos  los  caracteres  vuelve  a  ser  la  implicita. 

La  orden  SYMBOL  AFTER  no  se  puede  ejecutar  despues  de  modificar  el  valor  de  Hl- 
~  MEM,  lo  cual  puede  ocurrir  como  resultado  de  una  orden  MEMORY,  o  bien  al  abrir 

un  tamp6n  para  la  grabaci6n  o  lectura  de  un  fichero  con  OPENOUT  u  OPENIN.  En 
~~  tales  circunstancias  se  provoca  el  mensaje  'Improper  argument'  ('argumento  inade- 
cuado',  error  niimero  5),  a  menos  que  la  situation  anterior  fuera  SYMBOL  AFTER 

256. 

En  la  parte  2  del  capitulo  'Cuando  usted  guste  ..."  daremos  mas  information  sobre 

—  la  redefinicion  de  caracteres. 

_  Palabras  clave  asociadas:  HIMEM,  MEMORY,  SYMBOL. 


TAB 

Vease  PRINT  TAB. 

TAG 

TAG    [ttiexpresiofi  de  itinera  de  canal)] 

10  INPUT  "Escriba  su  nombre:  ",a*:CLS 
20  PRINT  "Se  mueve  usted  mucho,  " ; a* 
30  TAG 

40  x=LEN(a*)*17:y=50+RND*300:MOVE  -x,y 
50  FOR  -f  =  -x  TO  640  STEP  RND*7  +  3 
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60  MOVE  +,y: PRINT  "  " 5  a*; : FRAME: NEXT 

70  FOR  b=640  TO  -x  STEP-RND*7+3 

80    MOVE  b,y: PRINT  a*;"  ";: FRAME: NEXT 

90    GOTO  40 

run 

Orden.  Hace  que  el  texto  enviado  al  canal  especificado  sea  escrito  en  la  pantalla  grafi- 
ca,  en  la  position  actual  del  cursor.  De  esta  forma  se  puede  mezclar  texto  con  graficos, 
o  mover  los  caracteres  pixel  a  pixel.  Si  se  omite  la  <expresion  de  numero  de  canal  >, 
se  supone  el  #0. 

El  punto  superior  izquierdo  del  caracter  se  conecta  al  cursor  grafico.  Si  se  omite  el  sig- 
no  de  punto  y  coma  al  final  de  la  instruction  PRINT,  los  c6digos  de  retorno  del  carro 
y  de  avance  de  linea  se  visualizan  como  caracteres  graficos. 

Si  se  ha  aplicado  TAG  al  canal  #0,  BASIC  desactiva  TAG  al  volver  a  modo  directo. 

Palabras  clave  asociadas:  TAG  OFF. 

TAGOFF 

TAGOFF   l#<expresio»  it  »aiero  de  canal >] 

10   MODE  2:  TAG  :  REM  texto  ligado  al  cursor  gra-Fico 

20  periodo=1984:F0R  x=l  TO  640  STEP  70 

30  MOVE  x,400:DRAWR  0,-350 

40  per iodo=per iodo+1 :PRINT  per iodo; : NEXT 

50  TAGOFF  :REM  texto  desconectado  de  cursor  gra-fico 

60  LOCATE  34, 25: PRINT  "Datos  anuales" 

70  GOTO  70 

run 

Orden.  Cancela  la  orden  TAG  para  el  canal  especificado  (o  para  el  #0,  si  no  se  especifi- 
ca  otro)  y  redirige  el  texto  a  la  posici6n  que  tenia  el  cursor  de  texto  antes  de  ejecutarse 
TAG. 

Palabras  clave  asociadas:  TAG. 

TAN 

TAN  (<expresio»  fiuierica)) 

PRINT  TAN(45) 
1.61977519 

Funcion.  Calcula  la  tangente  de  la  <expresi6n  numerica),  que  debe  tener  un  valor  com- 
prendido  entre  -20000  y  +20000. 
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Observese  que  se  puede  utilizar  DEG  y  RAD  para  hacer  que  el  ordenador  entienda  los 
arcos  como  dados  en  grados  o  en  radianes,  respectivamente. 

Palabras  clave  asociadas:  ATN,  COS,  DEG,  RAD,  SIN. 


TEST 

TEST  ( <coordeiiada  x> ,  <coordenada  y>) 

10   CLS 

20  PRINT  "Estamos  uti 1 izando  la  pluma  numero"; 

30  PRINT  TEST (10, 386) 

40  PRINT  "Cambie  la  pluma  y  el  modo  "; 

50  PRINT  "...  y  ejecute  otra  vez  el  programa. " 

run 


Funcion.  Traslada  el  cursor  grafico  al  punto  de  coordenadas  absolutas  especificadas 
e  informa  del  valor  de  la  tinta  presente  en  esa  posicion. 

Palabras  clave  asociadas:  MOVE,  MOVER,  TESTR,  XPOS,  YPOS. 


TESTR 

TESTR  ((increiento  de  x>,  (increiento  de  y>) 

10    MODE    0:FOR    x=l    TO    15: LOCATE    l,x 

20    PEN    xlPRINT    STRIN6*<10, 143) 5 : NEXT 

30    MOVE    200, 400: PEN    1 

40  FOR  n=l  TO  23: LOCATE  12, n 

50  PRINT  "pen" 5TESTR (0,-16) : NEXT 

run 


Funcion.  Lleva  el  cursor  grafico  a  un  punto  cuya  posicion,  referida  a  la  posicion  actual, 
viene  dada  por  los  parametros  <incremento  de  x>  e  <incremento  de  y>,  e  informa  del 
valor  de  la  tinta  presente  en  ese  punto. 

Palabras  clave  asociadas:  MOVE,  MOVER,  TEST,  XPOS,  YPOS. 
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THEN 

Vease  IF. 

TIME 

TIME 


10  CLSJREM  reloj 

20  INPUT  "Hora:  " , hora 

30  INPUT  "Minuto:  ", minuto 

40  INPUT  "Segundo:  ", segundo 

50   CLS:re-ferencia=INT  (TIME/300) 

60  WHILE  hora<13 

70  WHILE  minuto<60 

80  WHILE  tiempo<60 

90  tiempo=(INT(TIME/300)  -re-Ferenc  ia)  +segundo 

100  LOCATE  1,1 

110  PRINT  USING  "##  ";hora,minuto,tiempo 

120  WEND 

130  tiempo=0:5egundo=0:minuto=minuto+l 

140  GOTO  50 

150  WEND 

160  minuto=0: hora=hora+l 

170  WEND 

180  hora=l 

190  GOTO  60 


Funcion.  Da  el  tiempo  transcurrido  desde  el  momento  en  que  se  encendio  o  reinicializo 
la  maquina  por  ultima  vez  (excluyendo  el  dedicado  a  escribir  o  leer  en  el  disco),  en  uni- 
dades  de  1/300  s.  Expresado  en  segundos,  el  tiempo  es,  pues,  TIME/300. 

Palabras  clave  asociadas:  AFTER,  EVERY,  WEND,  WHILE. 


TO 

Vease  FOR. 
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TROFF 
TRON 


TROFF 
TRON 

10  troff:print:print  "troff" 

20  FOR  n=l  TO  8 

30  PRINT  "Programs  -f  unc  ionando" :  NEXT 

40  IF  -f  =  l  THEN  END 

50  TRON: PR I NT: PR I NT  "TRON" 

60  -f  =  l:GOTO  20 

r  u  n 

Orden.  Sigue  la  'traza'  del  programa  escribiendo  los  numeros  de  cada  linea  antes  de 
ejecutarla.  Los  numeros  de  linea  aparecen  entre  corchetes  [  ]. 

TRON  activa  este  modo;  TROFF  lo  desactiva. 

TRON  es  particularmente  util  para  estudiar  la  secuencia  de  numeros  de  linea  anterior 
al  momento  en  que  se  produce  un  error. 

Palabras  clave  asociadas:  ninguna. 

UNT 

UNT  (<expresioit  de  direccion  de  leiofia)) 

PRINT    UNT(&FF66) 
-154 

Orden.  Da  un  entero,  comprendido  entre  -32768  y  +32767,  que  es  el  equivalente  en 
'complemento  a  dos'  al  valor  de  <expresion  de  direccion  de  memoria). 

Palabras  clave  asociadas:  CINT,  FIX,  INT,  ROUND. 

UPPERS 

UPPER* UexpresiDR  literal)) 

10    CLS:  a$="mire    como    cr-ecen!" 

20  PRINT  UPPER* ( a* ) 

run 

Funcion.  Da  una  cadena  literal  que  es  copia  de  la  <expresion  literal)  especificada,  pero 
convirtiendo  las  letras  minusculas  en  mayusculas  y  dejando  inalterados  los  restantes  ca- 
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racteres.  Esta  funcion  es  litil  en  el  proceso  de  datos  que  puedan  contener  miniisculas 
mezcladas  con  mayiisculas. 

Palabras  clave  asociadas:  LOWER$. 


USING 

Vease  PRINT  USING. 

VAL 

VALUeipresion  literal)) 

10  CLSlPRINT  "Ya  he  aprendido  la  tabla  de  multiplicar' 

20  PRINT:PRINT  "Pulse  una  tecla  del  1  al  9: » 

30  a*=INKEY*:IF  a*=""  THEN  30 

40  n=yAL(a$):IF  n<l  OR  n>9  THEN  30 

50  FOR  x=l  TO  10 

60  PRINT  n;  "x,!;x;  "=";n*x 

70  NEXT: GOTO  20 

run 

Funcion.  Da  el  valor  numerico  (incluyendo  el  signo  y  el  punto  decimal)  de  los  primeros 
caracteres  de  la  <expresi6n  literal)  que  sean  digitos. 

Si  el  primer  caracter  no  es  un  digito,  el  valor  generado  es  0.  Si  el  primer  caracter  es 
el  signo  menos  o  el  punto  decimal  y  va  seguido  de  caracteres  no  numericos,  se  provoca 
el  mensaje  Type  mismatch'  ('incongruencia  de  tipos',  error  numero  13). 

Palabras  clave  asociadas:  STR$. 

VPOS 

vPCS  ( *t<exDresion  de  nuiero  de  canal)) 

10  MODE  l: BORDER  0: LOCATE  8,2 

20  PRINT  "Utilice  las  teclas  subir/bajar  cursor" 

30  WINDOW  39,39, 1,25: CURSOR  1,1 

40  LOCATE  1, 13 

50  IF  INKEY(0)<>-1  THEN  PRINT  CHR*(11); 

60  IF  INKEY(2)<>-1  THEN  PRINT  CHR*(10); 

70  LOCATE  ttl, 1,23 

80  PRINT  ttl, "Posicion  vertical  del" 

90  PRINT  #l,"cursor  de  texto  ="; 

100  PRINT  #1, VPOS ( #0) : GOTO  50 

run 
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Funcidn.  Da  la  position  vertical  del  cursor  de  texto,  referida  al  extremo  superior  de 
la  ventana.  Es  necesario  especificar  la  (expresion  de  numero  de  canal),  pues  el  ordena- 
dor  no  da  por  supuesto  el  #0. 


WAIT 

WAIT   <nuiero  de  puerta), <iascara>[ ,  (inversion)! 

WAIT    &FF34,20,25 

Orden.  Espera  hasta  que  por  la  puerta  de  entrada/salida  especificada  por  (numero  de 
puerta)  se  reciba  un  determinado  valor.  BASIC  lee  incesantemente  la  puerta.  Con  el 
valor  recibido  y  el  parametro  (inversion)  se  realiza  la  operaci6n  logica  XOR;  con  este 
resultado  y  el  parametro  (mascara)  se  realiza  la  operaci6n  16gica  AND;  el  proceso  se 
repite  hasta  que  el  resultado  final  sea  distinto  de  cero. 

BASIC  espera  indefinidamente  hasta  que  se  cumple  la  condition  requerida. 

Esta  orden  no  debe  ser  utilizada  por  quien  no  sepa  cuales  son  sus  efectos. 

Palabras  clave  asociadas:  INP,  OUT. 


WEND 

WEND 

WEND 

Orden.  Senala  el  final  del  grupo  de  instrucciones  cuya  ejecucion  se  repite  en  un  bucle 

del  tipo  WHILE.  BASIC  determina  automaticamente  a  que  WHILE  corresponde  cada 

WEND. 

Palabras  clave  asociadas:  TIME,  WHILE. 


WHILE 

WHILE  <expresion  logica) 

10  CLS'.PRINT    "Temporizador    de    10   segundos" :  t=TIME 

20  WHILE    TIME<t+3000 

30  SOUND    1,0, 100,15 

.40  WEND: SOUND    129,40,30,15 
run 
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Orden.  Repite  la  ejecucion  de  un  grupo  de  instrucciones  mientras  se  cumpla  cierta  con- 
dicion.  La  orden  WHILE  sefiala  el  principio  del  bucle  y  especifica  la  condicion  logica 
mediante  la  (expresion  logica). 

Palabras  clave  asociadas:  TIME,  WEND. 


WIDTH 

WIDTH   <expresion  enters) 
WIDTH    40 

Orden.  Informa  a  BASIC  de  cuantos  caractes  por  lfnea  se  deben  enviar  a  la  impresora. 
BASIC  envfa  a  la  impresora  los  codigos  de  retorno  del  carro  y  avance  de  lfnea  en  el 
momento  adecuado. 

El  valor  implicito  es  132. 

La  orden  WIDTH  255  suprime  los  codigos  de  retorno  del  carro  y  avance  de  linea,  de- 
jando  que  el  niimero  de  caracteres  por  linea  sea  totalmente  controlado  por  la  impreso- 
ra. En  todo  caso,  la  orden  PRINT  envia  a  la  impresora  esos  dos  codigos  siempre  que 
no  se  incluya  el  signo  de  punto  y  coma  al  final. 

Palabras  clave  asociadas:  POS. 


WINDOW 

WINDOW    [Wexpresion  de  nuiero  de  canal),  Kizquierda),  (derecha),  <arriba>,  (abajo) 

10  MODE  0: BORDER  0:REM  carta  de  ajuste 

20  INK  0,0:INK  1,25: INK  2,23:INK  3,21 

30  INK  4,17:INK  5,6:INK  6,2:INK  7,26 

40  PAPER  0:CLS 

50  PAPER  l:WINDOW  2,4,1,13:CLS 

60  PAPER  2:WIND0W  5,7,1,18:CLS 

70  PAPER  3:WIND0W  8, 10, 1 , 18: CLS 

80  PAPER  4: WINDOW  1 1 , 13, 1 , 18: CLS 

90  PAPER  5:WIND0W  14, 16, 1 , 18: CLS 

100  PAPER  6: WINDOW  17, 19, 1 , 13: CLS 

110  PAPER  7:WIND0W  2, 19, 19, 25: CLS 

120  GOTO  120 

run 

Orden.  Especifica  las  dimensiones  y  situacion  de  una  ventana  de  texto.  Los  valores  de 
los  parametros  <izquierda>,  (derecha),  <arriba>  y  <abajo>  indican  los  niimeros  extre- 
mos  de  columna  y  de  fila,  y  deben  ser  consistentes  con  el  modo  de  pantalla  actual. 
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Si  no  se  especifica  la  <expresion  de  niimero  de  canal),  BASIC  supone  el  #0. 

En  la  parte  2  del  capitulo  titulado  'Cuando  usted  guste  . . . '  daremos  mas  information 
sobre  ventanas  de  texto. 

Palabras  clave  asociadas:  WINDOW  SWAP. 


WINDOW  SWAP 

WINDOW   SWAP   <expresion  de  nuiero  de  canal), <expresion  de  nuiero  de  canal) 

10  MODE  l:INK  1,24:INK  2,9:INK  3,6 

20  WINDOW  21,40, 13, 25:PAPER  3 

30  WINDOW  ttl, 1,20, 1,12: PAPER  **1,2 

40  CLS: PRINT  "  Ventana  numero  0" 

50  CLS  ttl: PRINT  ttl,"  Ventana  numero  1" 

60  LOCATE  1,6 

70  PRINT  "  Ventana  roj a  <0)";SPC(2) 

80  LOCATE  ttl, 1,6 

90  PRINT  ttl,"  Ventana  verde  < 1 ) " 

100  FOR  t=l  TO  1000: NEXT 

110  WINDOW  SWAP  0,1: GOTO  60 

r  u  n 

Orden.  Intercambia  las  caracteristicas  de  las  dos  ventanas  de  texto  especificadas  por 
las  <expresiones  de  numero  de  canal). 

Se  deben  especificar  los  dos  numeros  de  canal,  pero  en  este  caso  no  deben  ir  precedidos 
del  signo  #. 

En  la  parte  2  del  capitulo  titulado  'Cuando  usted  guste  . . . '  daremos  mas  information 
sobre  ventanas  de  texto. 

Palabras  clave  asociadas:  WINDOW. 

WRITE 

WRITE   [#<expresion  de  nuiero  de  canal),  IKlista  de  datos)! 

10  REM  escribir-  variables  en  disco 

20  INPUT  "Esc riba  un  numero:  ",a 

30  INPUT  "Esc riba  una  palabra:  " , a* 

40  OPENOUT  "dates" 

50  WRITE  **9,a,a* 

60  CLOSEOUT: PRINT  "Datos  grabados  en  disco" 

run 
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Orden.  Envia  los  valores  de  los  elementos  de  la  <lista  de  datos)  al  canal  especificado 
por  la  <expresion  de  numero  de  canal).  Los  elementos  iran  separados  por  comas;  las 
cadenas  literales  iran  entre  comillas. 

En  el  ejemplo  anterior,  los  valores  captados  por  el  teclado  son  enviados  al  canal  #9 
(disco). 

Para  leer  esos  valores  despues  de  grabarlos  en  disco,  se  necesita  un  programa  tal  como 
el  siguiente: 

10  REM  leer-  variables  del  disco 

20  OPENIN  "datos": INPUT  #9, a, a* 

30  CLOSEIN: PRINT  "Los  dos  valores  son:" 

40  PRINT:PRINT  a, a* 

run 

Palabras  clave  asociadas:  INPUT,  LINE  INPUT. 

XOR 

(arguieitto)   XOR   <ar9iuento> 

IF  'juan'Cpepe'  XOR  ■perroVjato"  THEN  PRINT  ■vertaiero1  ELSE  PRINT  'fatso* 

falsa 

IF  ■pepe'CjuaB1  XOR  'gato^'perro'  THEN  PRINT  'verMero'  ELSE  PRINT  'falso' 

{also 

IF  'juanVpepe'  XOR  ^ato'^perro'  THEN  PRINT  ■verdaiero"  ELSE  PRINT  'falso" 

verdadero 

PRINT  1  XOR  1 

i 
PRINT  I  XOR  I 

i 
PRINT  1  XGR  i 

1 

Operador.  Realiza  la  operacion  16gica  'o  exclusivo'  bit  a  bit  entre  enteros.  EI  resultado 
es  1  a  menos  que  ambos  bits  tengan  el  mismo  valor. 

Para  mas  amplia  informacion  sobre  operaciones  16gicas,  consulte  la  parte  2  del  capitu- 
lo  titulado  'Cuando  usted  guste  . . .'. 

Palabras  clave  asociadas:  AND,  OR,  NOT. 
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XPOS 

XPOS 

10  MODE  l:DRAW  320,200 

20  PRINT  "Posicion  horizontal  del  cursor  graf ico  ="; 

30  PRINT  XPOS 

run 

Funcion.  Da  el  valor  de  la  posicion  horizontal  (coordenada  x)  del  cursor  grafico. 
Palabras  clave  asociadas:  MOVE,  MOVER,  ORIGIN,  YPOS. 

YPOS 

YPOS 

10  MODE  l:DRAW  320,200 

20  PRINT  "Posicion  vertical  del  cursor  grafico  ="; 

30  PRINT  YPOS 

run 

Funcidn.  Da  el  valor  de  la  posici6n  vertical  (coordenada  y)  del  cursor  grafico. 
Palabras  clave  asociadas:  MOVE,  MOVER,  ORIGIN,  XPOS. 

ZONE 

ZONE   (expresion  enteri) 

10    CLSIFOR    z=2    TO    20 

20    ZONE    z 

30    PRINT    "X" ,"X    ZONE    ="jz:NEXT 

run 

Orden.  Cambia  la  anchura  de  la  zona  de  escritura  (especificada  en  las  instrucciones 
PRINT  cuando  se  utiliza  una  coma  para  separar  elementos).  La  achura  implicita  es  13 
columnas,  pero  se  la  puede  cambiar  al  valor  dado  por  la  <expresi6n  entera),  cuyo  mar- 
gen  es  de  1  a  255. 

Palabras  clave  asociadas:  PRINT. 
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Capitulo  4 
Discos  y  cintas 


Parte  1:  Discos 
Discos  de  trabajo 

En  esta  seccion  vamos  a  explicar  como  preparar  discos  para  el  trabajo 
diario  y  a  presentar  algunas  funciones  de  CP/M  y  sus  programas  de 
ayuda. 

Temas  tratados: 

*  Copia  de  los  discos  maestros. 

*  Introduction  a  CP/M  Plus. 

*  Utilization  de  los  ficheros  HELP. 

*  Utilization  de  una  y  dos  unidades  de  disco. 

*  Copia  de  ficheros  con  PIP. 

*  Trabajo  con  discos  para  BASIC  (sin  CP/M). 

*  Instalacion  de  aplicaciones  "Have  en  mano"  en  BASIC  de 
AMSTRAD. 

*  Instalacion  de  aplicaciones  "Have  en  mano"  en  CP/M  Plus. 

*  Introduction  al  GSX. 

*  Trabajo  con  CP/M  2.2. 

En  la  parte  7  del  'Curso  de  introduction'  hemos  explicado  como  inicializar  un  disco 
virgen  para  utilizarlo  tanto  con  BASIC  como  con  CP/M. 

En  la  parte  10  del  'Curso  de  introduction'  vimos  como  copiar  discos  con  el  programa 
DISCKIT3  (cara  1  del  juego  de  discos  del  sistema). 

En  esta  seccion  vamos  a  abordar  la  preparation  de  discos  con  los  programas  deseados. 


Copia  de  los  discos  maestros 

Es  muy  importante  hacer  una  copia  de  los  discos  maestros  del  sistema  y  de  ayudas  que 
se  suministran  con  el  ordenador  y  guardar  en  lugar  seguro  los  originales,  pues  seria 
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muy  costoso  sustituirlos  si  resultaran  danados.  Recuerde  que  cada  disco  tiene  dos  ca- 
ras,  por  lo  que  en  los  discos  maestros  hay  en  total  cuatro  caras: 

La  cara  1  es  la  mas  importante;  contiene  el  sistema  operativo  CP/M  Plus  y  un  conjunto 
de  programas  de  ayuda  para  el  manejo  de  discos. 

La  cara  2  contiene  una  serie  de  ficheros  para  programacion  en  ensamblador. 

La  cara  3  contiene  Dr.  LOGO,  diversos  ficheros  'HELP'  y  el  sistema  GSX  (que  descri- 
biremos  mas  adelante). 

La  cara  4  contiene  el  CP/M  2.2  y  el  Dr.  LOGO  que  se  suministra  con  los  modelos 
CPC664  y  CPC464+DDI1;  los  incluimos  por  razones  de  compatibilidad,  pero  normal- 
mente  no  seran  necesarios. 

Considere  sus  copias  de  los  discos  maestros  como  una  'biblioteca'  de  programas.  Para 
ejecutar  uno  de  estos  programas,  el  procedimiento  habitual  es  insertar  en  la  unidad  el 
'disco  de  biblioteca'  en  el  que  se  encuentre  el  programa  y  cargarlo  con  el,  en  lugar  de 
copiar  el  programa  en  un  disco  nuevo  y  cargarlo  desde  este. 

Insistimos  una  vez  mas  en  que  los  'discos  de  biblioteca'  para  el  trabajo  diario  tienen 
que  ser  copias  de  los  discos  maestros  que  se  suministran  con  el  ordenador. 

Recuerde  que  el  programa  DISCKIT3  (cara  1)  inicializa  el  disco  destino  al  mismo  tiem- 
po  que  copia,  de  modo  que  se  puede  hacer  una  copia  en  un  disco  virgen  sin  necesidad 
de  inicializarlo  previamente. 


Introduction  a  CP/M  Plus 

El  lector  ya  se  habra  habituado  a  trabajar  con  el  BASIC  de  AMSTRAD,  programa  que 
controla  el  CPC6128  desde  el  momento  en  que  se  lo  enciende  hasta  que,  o  bien  se  ejecu- 
ta  algiin  programa  binario  desde  AMSDOS,  o  bien  se  carga  CP/M  Plus  con  la  orden 
externa  Icpm. 

Una  vez  cargado  CP/M  Plus,  el  ordenador  no  necesita  volver  a  leer  la  cara  1  (salvo, 
por  supuesto,  que  se  quiera  cargar  alguno  de  los  programas  de  ayuda  que  estan  graba- 
dos  en  esa  cara).  Por  esta  razon,  el  disco  de  arranque  es  el  unico  que  tiene  que  ser  un 
disco  de  sistema;  todos  los  demas  pueden  tener  formato  'de  datos',  lo  que  les  da  mayor 
capacidad  de  almacenamiento. 

Para  ejecutar  un  programa  de  CP/M  lo  unico  que  hay  que  hacer  es  insertar  el  disco 
en  el  que  este  grabado  y  escribir  el  nombre  del  programa.  Los  datos  utilizados  por  el 
programa  pueden  estar  en  el  mismo  disco  o  en  otro.  CP/M  Plus  permite  cambiar  dis- 
cos, lo  mismo  que  AMSDOS.  Si  por  comodidad  se  prefiere  agrupar  varios  programas 
en  un  mismo  disco,  quiza  junto  con  algunos  programas  de  ayuda,  se  puede  utilizar  el 
programa  PIP  de  la  cara  1  segiin  explicaremos  mas  adelante  (en  este  capitulo  y  en  el 
siguiente). 
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El  programa  PROFILE 


El  disco  del  sistema  contiene  un  fichero  especial,  llamado  PROFILE. SUB,  que  contiene 
una  serie  de  6rdenes  que  se  ejecutan  automaticamente  en  el  momento  de  cargar  CP/M 
Plus.  Si  no  lo  ha  hecho  todavia,  inserte  en  la  unidad  una  copia  de  la  cara  1  de  los  discos 
maestros,  cargue  CP/M  Plus  y,  cuando  aparezca  el  mensaje  A>,  escriba: 

REN  PROFILE. SUB=PROFILE. ENG 

Esta  orden  ha  creado  el  fichero  PROFILE.SUB  a  partir  de  PROFILE.ENG  cambiando- 
le  el  nombre  (REN  es  abreviatura  de  rename,  "renombrar").  Este  fichero,  que  sera  eje- 
cutado  siempre  que  se  cargue  CP/M  Plus,  contiene  las  siguientes  ordenes: 

SETKEYS  KEYS.CCP 
LANGUAGE  3 

las  cuales  modifican  la  funcion  de  las  teclas  del  cursor  (para  adaptarlas  a  la  escritura 
de  ordenes  de  CP/M)  y  transforman  la  salida  por  la  pantalla  de  la  version  EE.UU.  a 
la  version  UK  (Reino  Unido),  haciendo  que  la  tecla  [SHIFT13  genere  el  simbolo  '£'. 

Cuando  el  teclado  ha  sido  preparado  con  la  orden  SETKEYS.CCP,  las  lineas  de  6rde- 
nes  de  CP/M  se  pueden  editar  de  forma  similar  a  como  se  hace  en  BASIC.  En  el  capitu- 
lo  5,  parte  2,  explicaremos  SETKEYS  detalladamente. 


El  programa  HELP 

En  la  cara  3  de  los  discos  del  sistema  esta  grabado  un  programa  especial,  llamado 
HELP;  es  una  especie  de  manual  de  instrucciones  electronico  que  describe  los  progra- 
mas  de  ayuda  de  CP/M  Plus.  Para  ejecutar  este  programa,  inserte  la  cara  3  y  escriba, 
tras  el  mensaje  A>,  lo  siguiente: 

HELP 

El  programa  le  hard  las  preguntas  y  le  pedira  las  respuestas  necesarias  para  guiarle  has- 
ta  la  information  requerida. 


Cuantas  unidades  de  disco? 


Cuando  se  carga  CP/M  Plus,  una  de  sus  primeras  acciones  es  detectar  cuantas  unidades 
de  disco  hay  conectadas.  Este  numero  se  visualiza  como  parte  del  mensaje  de  presenta- 
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cion.  El  resultado  de  la  comprobacion  se  puede  falsear  si  en  la  segunda  unidad  hay  un 
disco  parcialmente  insertado. 

Todos  los  mensajes  de  error  relativos  a  los  mecanismos  de  las  unidades  de  disco  se  vi- 
sualizan  en  la  linea  25,  en  forma  de  cinta  "sin  fin".  Los  programas  solamente  utilizan 
las  primeras  24  lineas  de  la  pantalla. 

Cuando  solamente  se  dispone  de  la  unidad  de  disco  incorporada  al  ordenador,  en  la 
ultima  linea  de  la  pantalla  aparece  tambien  el  mensaje  'Drive  is  A:'  o  'Drive  is  B:' 
("la  unidad  es  . . .  ").  De  esta  forma  CP/M  Plus  permite  utilizar  un  solo  dispositivo 
fisico  como  si  se  tratase  de  dos.  Cuando  sea  necesario,  el  usuario  tendra  que  intercam- 
biar  los  discos;  el  ordenador  pedira  en  cada  momento  el  disco  requerido  por  el  progra- 
ma.  Este  sistema  hace  que  no  sea  imprescindible  comprar  la  segunda  unidad  de  disco, 
pero  no  puede  evitar  la  necesidad  de  intercambiar  los  discos,  a  veces  muy  frecuente- 
mente,  lo  que  representa  una  considerable  perdida  de  tiempo  y  un  riesgo  de  error 
humano. 


Copia  de  ficheros  de  un  disco  a  otro 

El  programa  de  ayuda  PIP  (abreviatura  de  Periferal  Interchange  Program,  "programa 
de  intercambio  entre  perifericos")  permite,  entre  otras  cosas,  copiar  ficheros  de  un  dis- 
co a  otro: 

Para  cargar  PIP,  inserte  en  la  unidad  la  cara  1  y  escriba,  tras  el  mensaje  A>,  lo 
siguiente: 

PIP 

Un  nuevo  signo  'inductor',  el  *,  indicara  que  PIP  ha  quedado  cargado  correctamente. 
Normalmente  se  copiara  de  un  disco  fuente  (en  la  unidad  A:)  a  un  disco  destino  (en 
la  unidad  B:).  Ya  hemos  visto  que  en  los  sistemas  de  una  sola  unidad  de  disco  las  unida- 
des A:  y  B:  son  el  mismo  dispositivo  fisico. 

Para  copiar  un  fichero  (por  ejemplo,  el  SUBMIT.COM),  escriba  despues  del  *  lo 
siguiente: 

B:=A:SUBMIT.COM 
Para  copiar  todos  los  ficheros  del  disco  fuente  al  disco  destino,  escriba: 
B:=*.* 

Para  abandonar  PIP,  pulse  [RETURN]  tras  el  inductor  *. 

PIP  es  un  programa  muy  complejo.  En  el  capitulo  5  lo  describiremos  mas  detallada- 
mente. 
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Disco  para  BASIC  (sin  CP/M) 

Como  ya  hemos  mencionado,  el  linico  disco  que  se  necesita  con  formato  de  sistema 
es  el  que  se  utiliza  para  cargar  CP/M  Plus.  Por  lo  tanto,  los  discos  destinados  a  BASIC 
pueden  tener  formato  'de  datos',  con  el  cual  la  capacidad  de  almacenamiento  es  algo 
mayor. 

El  disco  debe  ser  inicializado  con  el  programa  DISCKIT3.  Para  copiar  programas  se 
puede  utilizar  PIP  (cara  1),  o  bien  cargarlos  (LOAD)  y  grabarlos  (SAVE)  desde  BASIC. 


Discos  Have  en  mano  de  BASIC  de  AMSTRAD 


Si  usted  compra  una  aplicacion  escrita  en  BASIC  de  AMSTRAD  para  el  CPC6128,  de- 
beria  estar  lista  para  funcionar  sin  mas  preparativos.  Todo  lo  que  tendra  que  hacer  es 
copiarla  en  un  disco  de  trabajo  y  guardar  el  original. 


Programas  Have  en  mano  de  CP/M 

El  sistema  operativo  CP/M  permite  disponer  de  una  inmensa  variedad  de  programas 
que  han  sido  escritos  para  los  ordenadores  personales  que  pueden  trabajar  con  CP/M. 
El  funcionamiento  basico  de  los  programas  ya  esta  decidido;  todo  lo  que  hay  que  hacer 
es  instalarlos  en  un  disco  adecuado  y  quiza  informarles  del  metodo  de  gestion  de  la  pan- 
talla  caracteristico  del  CPC6128. 

Un  conjunto  de  programas  disenado  para  realizar  una  aplicacion  especifica  es  lo  que 
se  denomina  un  'paquete' .  Los  paquetes  estan  disenados  normalmente  para  funcionar 
en  diversos  ordenadores,  cada  uno  de  los  cuales  tendra  un  propio  metodo  de  gestion 
de  la  pantalla  y  de  movimiento  del  cursor. 

El  CPC6128,  cuando  funciona  con  CP/M,  esta  dotado  de  un  'emulador  de  consola'; 
las  caracteristicas  son  diferentes  de  los  c6digos  de  control  utilizados  por  BASIC. 

En  ocasiones  el  paquete  que  usted  adquiere  ya  habra  sido  'instalado'  en  el  Amstrad; 
de  lo  contrario,  ofrecera  un  menu  para  realizar  la  adaptacion.  Si  el  programa  da  ins- 
trucciones  para  el  protocolo  Zenith  Z19/Z29,  sigalas.  Si  no  menciona  esta  variante  ni 
tampoco  una  especifica  de  Amstrad,  consulte  la  section  titulada  'Configuration  de  un 
programa  en  CP/M',  en  la  que  se  indica  que  c6digos  se  deben  mandar  a  la  pantalla 
para  producir  los  efectos  requeridos  por  los  paquetes.  Generalmente,  la  instalacion  (o 
adaptacion)  requerira  que  se  tecleen  los  codigos  adecuados  cuando  el  programa  lo  pida. 
Siga,  en  todo  caso,  las  instrucciones  suministradas  con  los  programas. 


Discos  y  cintas  4/5 


El  paquete  que  usted  adquiera  tiene  que  estar  en  un  disco  adecuado  para  este  sistema. 
Casi  todos  los  ordenadores  tienen  su  propio  formato  de  disco.  Aunque  el  tamano  sea 
el  mismo,  no  por  ello  esta  garantizada  la  compatibilidad.  Al  comprar  un  paquete  de 
programas,  pida  a  su  proveedor  la  version  para  Amstrad  CPC6128  en  discos  de  3 
pulgadas. 


Creadon  de  un  disco  de  trabajo  para  programas 
Have  en  mano  de  CP/M 

Es  aconsejable  copiar  los  programas  del  paquete  en  otro  disco  y  guardar  el  original. 
Ademas,  suele  ser  conveniente  copiar  en  el  mismo  disco  el  programa  SETKEYS.COM, 
y  quiza  tambien  SUBMIT.COM  (con  sus  correspondientes  ficheros  de  instrucciones). 

Se  puede  utilizar  PIP  para  copiar  los  ficheros  .COM,  y  tambien  para  elaborar  un  fiche- 
ro  de  instrucciones  para  SUBMIT.  En  esta  ultima  aplicacion  PIP  funciona  como  senci- 
llo  editor  de  lfneas.  Por  ejemplo,  el  fichero  L0G03.SUB  de  la  cara  3  se  podria  haber 
creado  de  la  siguiente  forma: 

(Inserte  el  disco  del  sistema,  cara  1,  en  la  unidad  A:.)  Escriba: 
PIP 

(Extraiga  el  disco  del  sistema  e  inserte  el  de  destine)  Escriba: 

L0G03.S(JE=C0N: 
SETKEYS  KEYS.DRL 
[CONTROL] J  L0G03 
[ CONTROL ]Z 


Configuration  de  un  programa  de  CP/M 


El  CPC6128  maneja  una  amplia  variedad  de  codigos  de  control,  gracias  a  los  cuales 
se  lo  puede  adaptar  a  cualquier  programa  escrito  para  CP/M.  La  mayor  parte  de  los 
programas  de  proceso  de  datos,  asi  como  muchos  otros  paquetes  de  aplicaciones,  nece- 
sitan  poder  escribir  mensajes  en  determinados  lugares  de  la  pantalla,  leer  caracteres  es- 
critos  en  ella  y  entender  los  codigos  de  movimiento  del  cursor. 

Si  su  paquete  de  programas  ya  ha  sido  adaptado  al  ordenador  Amstrad,  no  es  necesario 
que  se  preocupe  por  estas  cuestiones. 
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Configuration  de  la  salida  de  un  paquete 


La  instalaci6n  de  un  paquete  requiere  normalmente  la  ejecuci6n  de  un  programa  espe- 
cial (habitualmente  llamado  INSTALL)  el  cual,  si  no  menciona  terminales  del  tipo 
Z19/Z29  ni  el  CPC6128  especificamente,  hard  al  usuario  una  serie  de  preguntas  sobre 
las  caracteristicas  de  la  pantalla  del  6128.  Para  introducir  las  respuestas  necesitara  con- 
sultar  la  tabla  siguiente,  que  es  un  resumen  de  la  parte  15  del  capitulo  7. 


C6digos 
de  control 


Hexadecimal      Decimal      Operaci6n 


[BEL] 
[BS] 
[LF] 
[CR] 

&07 
&08 
&0A 
&0D 

7 

8 

10 

13 

[ESC]A 
[ESC]C 
[ESC]E 
[ESC]H 

&1B 
&1B 
&1B 
&1B 

&41 
&43 
&45 
&48 

27  65 
27  67 
27  69 

27  72 

[ESC]J 

&1B 

&4A 

27  74 

[ESC]K 

&1B 

&4B 

27  75 

[ESC]L 
[ESC]M 
[ESC]N 

&1B 
&1B 
&1B 

&4C 
&4D 
&4E 

27  76 
27  77 
27  78 

[ESC]Y 

&1B 

&59 

27  89 

<c><f> 

<c><f> 

[ESC]d 

&1B 

&64 

27  100 

[ESC]o 

&1B 

&6F 

27  111 

[ESC]p 

&1B 

&70 

27  112 

[ESC]q 

&1B 

&70 

27  113 

Producir  un  pitido 

Cursor  a  la  izquierda  una  posici6n 

Cursor  abajo  una  linea 

Cursor  al  borde  izquierdo  de  la  ventana,  en  la 
linea  actual 

Cursor  arriba  una  linea 

Cursor  a  la  derecha  una  posici6n 

Borrar  pantalla 

Cursor  a  su  posici6n  inicial  (extremo  superior 
izquierdo  de  la  ventana) 

Borrar  desde  la  posici6n  actual  del  cursor  inclu- 
sive hasta  el  final  de  la  pantalla 

Borrar  desde  la  posici6n  actual  del  cursor  inclu- 
sive hasta  el  borde  derecho  de  la  pantalla 

Insertar  linea 

Borrar  linea 

Borrar  el  caracter  que  esta  en  la  posici6n  del 
cursor 

Llevar  el  cursor  hasta  la  posici6n  especificada 
de  la  pantalla,  donde  <c>  es  el  numero  de  co- 
lumna  mas  32  y  <f  >  es  el  numero  de  fila  mas 
32 

Borrar  desde  el  principio  de  la  pantalla  hasta  la 
posici6n  actual  del  cursor  inclusive 

Borrar  desde  el  borde  izquierdo  de  la  pantalla 
hasta  la  posici6n  actual  del  cursor  inclusive 

Activar  video  inverso  (intercambio  de  colores 
de  papel  y  pluma) 

Desactivar  video  inverso 
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Configuration  de  la  entrada  a  un  paquete 

Los  programas  del  paquete  generalmente  necesitaran  captar  datos  a  traves  del  teclado. 
Casi  todas  las  teclas  del  CPC6128  generan  valores  estandar,  a  exception  de  las  de  movi- 
miento  del  cursor.  Se  puede  utilizar  SETKEYS  para  redefinir  los  codigos  producidos 
por  el  teclado;  sin  embargo,  es  preferible  adaptar  cada  programa  para  que  acepte  los 
codigos  estandar. 

Lamentablemente,  no  hay  ninguna  norma  general  comun  a  todos  los  programas  en 
cuanto  a  que  teclas  se  deben  pulsar  para  realizar  las  diversas  funciones  de  control.  Los 
caracteres  visibles,  el  'espacio',  [TAB]  y  [RETURN]  estan  bastante  estadarizados;  pero 
en  cambio  es  notorio  el  desacuerdo  en  el  'retroceso  del  cursor',  y  mucho  mas  en  las 
restantes  funciones.  Comparese,  por  ejemplo,  los  codigos  que  significan  'cursor  al 
principio  de  linea'  en  los  siguientes  casos: 

En  CP/M:  [CONTROUB 

En  Dr.  LOGO:  [CONTROL]A 

En  ciertos  procesadores  de  texto:  [CONTROUQ  S 

Con  los  discos  del  sistema  se  suministran  tres  juegos  de  definiciones  del  teclado  (parte 
2  del  capitulo  5).  Por  ejemplo, 

SETKEYS  KEYS.CCP 

orden  ya  descrita  como  una  de  las  que  ejecuta  automaticamente  el  programa  PROFI- 
LE. SUB,  adapta  el  teclado  para  la  escritura  de  ordenes  de  CP/M. 


Ejecucion  de  un  paquete  Have  en  mano  de  CP/M 

Normalmente,  basta  con  escribir  el  nombre  del  programa  a  la  derecha  del  mensaje  in- 
ductor A>.  Por  ejemplo,  para  poner  en  marcha  un  programa  de  nominas  llamado  NO- 
MINAS.COM  se  escribirfa,  sencillamente, 

NOMINAS 

Si  alguna  configuration  requiere  cierta  preparation,  quiza  incluya  un  fichero  de  tipo 
.SUB.  Un  ejemplo  es  el  L0G03.SUB  que  esta  grabado  en  la  cara  3.  Este  fichero  se 
invoca  mediante  la  orden 

SUBMIT  L0603 
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Para  examinar  el  fichero  se  puede  escribir 

TYPE  L0G03.SUE 

y  se  comprueba  que  contiene 

SETKEYS   KEYS.  DRL         . . .  para  redefinir  el  teclado 

L0603  ...  para  ejecutar  el  programa  Dr.  LOGO 

SETKEYS   KEYS.  CCP         . . .  para  devolver  el  teclado  a  la  situation  inicial 


Arranque  automatico  de  un  paquete  Have  en 
mano  en  CP/M 

Se  puede  hacer  que  cada  vez  que  se  cargue  el  sistema  operativo  CP/M  Plus  con  el  disco 
de  arranque,  el  propio  sistema  ponga  en  marcha  un  programa  concreto.  La  forma  de 
conseguirlo  es  poner  el  nombre  del  programa  al  final  del  fichero  PROFILE. SUB  que 
haya  en  ese  disco. 


Introduction  al  GSX 


GSX  es  un  sistema  de  gestion  de  graficos  que  permite  a  los  programas  de  CP/M  dar 
como  salida  graficos  ademas  de  texto.  Se  utiliza  GSX  para  aplicaciones  tales  como  di- 
bujar  diagramas  de  barras  y  de  sectores  o  para  escribir  encabezamientos  y  textos  con 
tipos  de  letra  y  tamanos  distintos  de  los  normales.  En  la  figura  siguiente  se  muestra 
una  reproduction  de  una  salida  tipica  obtenida  con  GSX.  Las  salidas  se  pueden  dirigir 
a  la  pantalla,  a  una  impresora  o  a  un  plotter. 

El  sistema  GSX  por  si  mismo  no  es  capaz  de  dibujar,  por  lo  mismo  que  CP/M  no  puede 
realizar  proceso  de  textos:  se  requiere  en  cada  caso  un  programa  especifico.  El  ejemplo 
de  la  figura  se  obtuvo  mediante  el  programa  'DR.  Graph'  de  Digital  Research.  Lo  que 
si  hace  GSX  es  estandarizar  el  acceso  a  pantallas,  impresoras  y  plotters,  de  forma  que 
los  programas  de  aplicacion  sean  transportables  de  unas  maquinas  a  otras  sin  requerir 
mas  que  un  mi'nimo  de  trabajo  de  reinstalacion. 

Para  crear  un  disco  con  el  que  se  puedan  ejecutar  programas  GSX,  copie  (de  la  cara 
3),  mediante  PIP,  los  ficheros  GSX.SYS,  ASSIGN. SYS  y  los  controladores  de  dispo- 
sitivo  requeridos  (junto  con  el  propio  programa  de  aplicacion)  en  un  disco  vacio.  El 
fichero  ASSIGN. SYS  contiene  una  lista  de  hasta  tres  controladores  de  dispositivo,  en 
orden  in  verso  de  su  tamafio: 
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21 

a:dd+xlr7 

11 

a:ddhp7470 

01 

a: ddmode2 

02 

a: ddmodel 

03 

a:  ddmode0 

Epson   7   bit   printer  impresora  Epson  de  7  bits 

Pen   plotter  plotter 

Screen    in   mode   2  pantalla  en  modo  2 

Screen    in   mode    1  pantalla  en  modo  1 

Screen    in   mode   0  pantalla  en  modo  0 

Los  numeros  (01  a  21)  informan  a  GSX  del  tipo  de  dispositivo  de  que  se  trata  (impreso- 
ra, plotter  o  pantalla).  En  todo  momento  no  hay  mas  que  un  controlador  de  dispositivo 
cargado  en  la  memoria;  por  eso  GSX  necesita  conocer  el  tamafio  del  mayor  con  el  fin 
de  reservarle  el  espacio  necesario. 

Con  los  discos  se  proporcionan  diversos  controladores  para  los  tres  modos  de  pantalla 
del  6128  y  para  las  impresoras  y  plotters  estandar.  El  fichero  DRIVERS. GSX  contiene 
una  lista  de  los  disponibles.  Lea  este  fichero  insertando  en  la  unidad  la  cara  3  y  escri- 
biendo  tras  el  mensaje  A>  lo  siguiente: 

TYPE    DRIVERS. GSX 
para  seleccionar  los  controladores  de  dispositivo  requeridos. 


Test  Diagram 

Ken's  wages  in  pence 


■Fill  2  100.00 


■Fill  7  150.00 


■Fill  4  100.00 


100.00  -Fill    1 


100.00  -Fill   0 


100.00  -Fill  3 


100.00  -Fill  6 


■Fill  5  50.00 


Un  ejemplo  de  salida  por  impresora  obtenida  con  GSX 
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Normalmente  los  programas  de  aplicacion  incluiran  un  cargador  de  GSX,  de  modo  que 
para  ejecutar  el  programa  bastara  con  escribir  el  nombre  del  programa  en  respuesta 
al  mensaje  A>.  No  obstante,  si  su  aplicacion  no  tiene  instalado  el  cargador  de  GSX, 
copie  el  fichero  GENGRAF.COM  (cara  3)  en  su  disco  de  trabajo  y  luego  escriba 

6EN6RAF  PROGRAMA 

donde  PR0GRAMA.COM  es  el  nombre  de  la  aplicacion  no  instalada.  Ahora  puede 
borrar  GENGRAF.COM,  puesto  que  PR0GRAMA.COM  ya  contiene  el  cargador  de 
GSX. 


Trabajo  con  CP/M  2.2 


A  diferencia  de  CP/M  Plus,  CP/M  2.2  (que  es  una  version  anterior)  es  muy  exigente 
en  cuanto  al  cambio  de  discos.  Frecuentemente  requiere  que  se  vuelva  a  cargar  parte 
del  sistema  operativo  con  un  disco  de  sistema  instalado  en  la  unidad  A:,  en  particular 
cuando  reaparece  el  mensaje  inductor  A>  despues  de  ejecutar  un  programa.  Por  esta 
raz6n  se  suelen  utilizar  con  CP/M  2.2  discos  con  formato  de  sistema.  Cuando  no  se 
dispone  de  segunda  unidad  de  disco,  para  copiar  ficheros  hay  que  utilizar  FILE  COPY 
en  lugar  de  PIP. 

Se  recomienda  no  utilizar  CP/M  2.2  mas  que  para  ejecutar  programas  diseflados  para 
los  modelos  CPC664  y  CPC464+DDI1,  los  cuales  pueden  no  ser  compatibles  con 
CP/M  Plus. 


Advertencia.  Algunas  aplicaciones  escritas  para  los  modelos  CPC664  y 
CPC464+DDI1  contienen  ciertas  instrucciones  especificas  de  la  maquina  y  no 
funcionaran,  por  tanto,  con  CP/M  Plus.  En  tales  casos  sera  necesario  utilizar 
CP/M  2.2,  que  esta  grabado  en  la  cara  4  del  juego  de  discos  que  se  suministra  con 
el  ordenador  CPC6128. 
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Parte  2:  Cintas 


Se  puede  conectar  un  magnetofono  de  cassettes  al  sistema  (segiin  se  explico  en  la  parte 
2  del  'Curso  de  introduction').  Cuando  se  especifica  el  funcionamiento  con  magnetofo- 
no mediante  la  orden  !  tape,  algunas  instrucciones  de  BASIC  funcionan  de  forma  dife- 
rente.  Por  ejemplo,  en  la  pantalla  se  veran  ciertos  mensajes  que  no  aparecen  cuando 
se  esta  trabajando  con  discos. 

Nota.  En  algunos  magnetofonos  las  funciones  de  avance  rapido  y  rebobinado  estan 
controladas  por  el  control  remoto.  En  tal  caso,  para  hacer  avanzar  o  retroceder 
la  cinta  en  modo  rapido  se  debe,  o  bien  desconectar  la  clavija  REM  del  magneto- 
fono, o  bien  escribir  la  orden  iTAPE:CAT,  con  el  fin  de  activar  el  movimiento 
del  motor.  La  orden  CAT  se  cancela  con  la  tecla  [ESC]. 

A  diferencia  de  lo  que  ocurre  con  el  sistema  de  grabacion  en  disco,  los  nombres  de  los 
ficheros  que  se  graban  en  cinta  no  tienen  que  sujetarse  a  normas  estrictas.  Pueden  cons- 
tar  de  hasta  16  caracteres  y  contener  espacios  y  signos  de  puntuacion.  En  determinados 
casos,  ni  siquiera  son  necesarios. 

A  continuation  damos  una  lista  de  las  diferencias  entre  las  dos  versiones  (cinta  y  disco) 
de  las  instrucciones  citadas.  Las  descripciones  de  las  instrucciones  se  encuentran  en  el 
capi'tulo  3  ('Lista  completa  de  las  palabras  clave  del  BASIC  de  AMSTRAD'). 


CAT 

El  ordenador  le  pedira  que: 

Press  PLAY  then  any  key: 

('Pulse  PLAY  y  luego  cualquier  tecla.')  Usted  debe  pulsar  el  boton  PLAY  ('reprodu- 
cir')  del  magnetofono  y  despues  una  de  las  teclas  del  ordenador.  El  motor  del  magneto- 
fono empezara  a  moverse  y  el  ordenador  escribira  en  la  pantalla  la  lista  de  los  ficheros 
que  haya  en  la  cinta  a  medida  que  los  vaya  encontrando. 

Para  cada  fichero  se  mostrara  cada  uno  de  los  bloques  integrantes,  seguidos  de  un  ca- 
racter  que  indica  el  tipo  de  fichero: 


$  fichero  de  BASIC  no  protegido 

%  fichero  de  BASIC  protegido 

*  fichero  ASCII 

&  fichero  binario 

El  ordenador  escribe 
Ok 
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al  final  de  la  linea  cuando  ha  terminado  de  leer  sin  incidentes  el  fichero;  esto  indica 
que  habria  podido  cargar  el  fichero  en  memoria  si  lo  hubiera  intentado. 

La  instruction  CAT  no  afecta  al  programa  residente  en  la  memoria  del  ordenador. 

Si  un  fichero  ha  sido  grabado  sin  nombre,  CAT  escribe 

Un named    i i le 

('fichero  sin  nombre'). 

EL  proceso  se  puede  interrumpir  en  cualquier  momento  pulsando  [ESC]. 

Errores  de  lectura 

Si  no  aparecen  en  la  pantalla  los  mensajes  mencionados,  o  si  aparece 
Read    error    a      ...    a  bien    ...       Read    error    b 

puede  estar  ocurriendo  lo  siguiente: 

1 .  El  magnetofono  no  esta  conectado  correctamente  en  el  zocalo  CINTA  del  ordena- 
dor (vease  la  parte  2  del  'Curso  de  introduction'). 

2.  No  esta  correctamente  ajustado  el  control  VOLUMEN  del  magnetofono. 
3..  La  cinta  esta  gastada  o  es  de  baja  calidad. 

4.  La  cinta  ha  estado  sometida  a  un  campo  magnetico  (se  la  ha  dejado  cerca  de  un  alta- 
voz,  televisor,  etc.). 

5.  Se  esta  tratando  de  leer  una  cinta  incompatible  con  los  ordenadores  AMSTRAD. 

CHAIN 

CHAIN  MERGE 
LOAD 
MERGE 
RUN 

No  es  necesario  especificar  el  nombre  del  programa  si  se  pretende  leer  el  primero  que 
el  ordenador  encuentre  en  la  cinta.  Ejemplos: 

CHAIN  "" 
CHAIN  "",100 

CHAIN  MERGE 

CHAIN  MERGE  " " , 100 

CHAIN  MERGE  "", 100, DELETE  30-70 

LOAD  "" 

LOAD  " ",&1F40 
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MERGE 
RUN 

(Notese  que  esta  ultima  orden  se  ejecuta  pulsando  la  tecla  [INTRO]  en  combination 
con  [CTRL]1;  previamente  se  debe  haber  ejecutado  itape.) 

El  ordenador  le  pedira  que: 

Press  PLAY  then  any  key: 

('Pulse  PLAY  y  luego  cualquier  tecla.')  Usted  debe  pulsar  el  boton  PLAY  del  magneto- 
fono  y  despues  una  de  las  teclas  del  ordenador.  El  motor  del  magnetofono  empezara 
a  mo  verse  y  el  ordenador  cargara  el  fichero. 

En  la  pantalla  se  mostraran  los  mensajes  de  carga: 
Loading   NOMBREFI    block    1 

y  asi  sucesivamente  para  los  restantes  bloques  hasta  que  el  fichero  este  cargado. 

Si  el  primer  caracter  del  nombre  del  fichero  es  !  se  suprimen  todos  los  mensajes  citados, 
y  usted  debe  asegurarse  de  que  ha  pulsado  el  boton  PLAY.  En  el  caso  de  los  ficheros 
grabados  en  disco,  el  ordenador  ignora  el  distintivo  !.  Observe  que  el  signo  !  no  cuenta 
a  efectos  de  la  longitud  del  nombre  del  fichero. 

Si  se  abandona  el  proceso  pulsando  la  tecla  [ESC],  se  provoca  el  mensaje 
Broken    in 

Si  no  consigue  cargar  el  fichero,  lea  el  apartado  'Errores  de  lectura'  anterior. 


;Atenci6n!  El  interfaz  del  disco  ocupa  una  pequena  porci6n  de  la  memoria  del  orde- 
nador, la  cual  ha  sido  aprovechada  en  algunos  programas  comerciales  escritos  para 
ser  cargados  en  el  CPC464  desde  la  cinta.  Tales  programas  no  funcionaran  correcta- 
mente  en  el  CPC6128. 


EOF 
POS(#9) 

Estas  funciones  operan  igual  con  cinta  que  con  disco. 
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INPUT  #9 
LINE  INPUT  #9 
OPENIN 
CLOSEIN 

No  es  necesario  especificar  el  nombre  del  fichero  si  se  desea  leer  el  primer  fichero  que 
el  ordenador  encuentre  en  la  cinta.  Ejemplo: 

OPENIN    "" 

El  ordenador  le  pide  que: 

Press  PLAY  then  any  key: 

('Pulse  PLAY  y  luego  cualquier  tecla.')  Usted  debe  pulsar  el  bot6n  PLAY  del  magneto- 
fono  y  despues  una  de  las  teclas  del  ordenador.  La  cinta  empezara  a  mo  verse  y  el  orde- 
nador cargara  los  primeros  2K  del  fichero  en  una  zona  de  memoria  denominada  'tam- 
p6n'.  El  programa  toma  los  datos  del  tampon.  Cuando  se  vacia,  el  ordenador  vuelve 
a  emitir  el  mensaje: 

Press  PLAY  then  any  key: 

y  carga  los  2K  siguientes. 

En  la  pantalla  van  apareciendo  los  mensajes  de  carga: 

Loading  NOMBREFI  block  1 

para  los  sucesivos  bloques. 

Si  el  primer  caracter  del  nombre  del  fichero  es  !  se  suprimen  todos  los  mensajes  citados; 
usted  debe  asegurarse  de  que  ha  pulsado  el  boton  PLAY.  En  el  caso  de  los  ficheros 
grabados  en  disco,  el  ordenador  ignora  el  distintivo  !.  Observe  que  el  signo  !  no  cuenta 
a  efectos  de  la  longitud  del  nombre  del  fichero. 

Si  se  abandona  el  proceso  pulsando  la  tecla  [ESC],  se  provoca  el  mensaje 

Broken    in 
Si  no  consigue  cargar  el  fichero,  lea  el  apartado  'Errores  de  lectura'  anterior. 
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LIST  #9 
OPENOUT 
CLOSEOUT 
PRINT  #9 
WRITE  #9 

No  es  necesario  especificar  el  nombre  del  fichero  si  se  desea  grabarlo  como  Unnamed 
file  (fichero  sin  nombre).  Ejemplo: 

OPENOUT    "" 

El  ordenador  va  enviando  datos  a  una  portion  de  la  memoria  denominada  'tampon', 
cuya  capacidad  es  de  2  K.  Cuando  se  llena  el  tampon,  el  ordenador  pide  que 

Press  REC  and  PLAY  then  any  key: 

('Pulse  REC  y  PLAY  y  luego  cualquier  tecla.')  Usted  debe  pulsar  los  botones  REC  y 
PLAY  del  magnetofono  y  despues  una  de  las  teclas  del  ordenador.  La  cinta  empezara 
a  moverse  y  el  ordenador  grabara  en  ella  el  contenido  del  tampon.  El  ordenador  sigue 
enviando  datos  al  tampon;  cada  vez  que  se  llena  vuelve  a  emitir  el  mensaje 

Press  REC  and  PLAY  then  any  key: 

y  a  grabar  los  2K  en  la  cinta. 

Si  el  tampon  esta  parcialmente  ocupado  cuando  se  ejecuta  la  orden  CLOSEOUT,  el  or- 
denador vuelve  a  emitir  el  mensaje. 

Press  REC  and  PLAY  then  any  key: 

tras  lo  cual  vacia  el  tampon  hacia  la  cinta. 

Durante  el  proceso  de  grabacion  apareceran  en  la  pantalla  los  mensajes  del  tipo 

Saving  NGMEREFI  block  <x> 

Si  el  primer  caracter  del  nombre  del  fichero  es  !  se  suprimen  todos  los  mensajes  citados; 
usted  debe  asegurarse  de  que  ha  pulsado  los  botones  REC  y  PLAY  del  magnetofono. 
En  el  caso  de  los  ficheros  grabados  en  disco,  el  ordenador  ignora  el  distintivo  !.  Obser- 
ve que  el  signo  !  no  cuenta  a  efectos  de  la  longitud  del  nombre  del  fichero. 

Si  se  abandona  el  proceso  pulsando  [ESC],  se  provoca  el  mensaje: 
Broken    in 
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Calidad  de  la  grabacion 

Para  asegurar  la  fiabilidad  de  la  grabaci6n: 

1 .  Compruebe  que  el  magnetofono  esta  correctamente  conectado  al  zocalo  CINTA  del 
ordenador  (vease  la  parte  2  del  'Curso  de  introduction'). 

2.  Ajuste  adecuadamene  el  control  del  nivel  de  entrada  del  magnetofono  (si  lo  tiene). 

3.  No  utilice  cintas  de  baja  calidad,  ni  de  duration  C120.  (Recomendamos  las  cintas 
AMSOFT  CI 5.) 

4.  Asegurese  de  no  dejar  las  cintas  sometidas  a  la  influencia  de  campos  magneticos 
(cerca  de  altavoces,  televisores,  etc.) 

5.  Antes  de  borrar  el  programa  de  la  memoria,  compruebe  que  ha  quedado  correcta- 
mente grabado  rebobinando  la  cinta  y  verificando  su  contenido  mediante  la  orden 
CAT. 

6.  De  a  su  magnetofono  un  mantenimiento  periddico  adecuado;  en  particular,  limpie 
las  cabezas  con  regularidad. 


-         SAVE 


No  es  necesario  especificar  el  nombre  del  fichero  si  se  desea  grabarlo  como  Unnamed 
file  ('fichero  sin  nombre').  Ejemplo: 

SAVE    " " 

El  ordenador  pide  que 

Press  REC  and  PLAY  then  any  key: 

('Pulse  REC  y  PLAY  y  luego  cualquier  tecla.')  Usted  debe  pulsar  los  botones  REC  y 
PLAY  del  magnetofono  y  despues  una  de  las  teclas  del  ordenador.  La  cinta  empezara 
a  moverse  y  el  ordenador  grabara  en  ella  el  programa. 

Durante  el  proceso  de  grabacion  apareceran  en  la  pantalla  los  mensajes  del  tipo 

Saving  NOMEREFI  block  1 

Si  el  primer  caracter  del  nombre  del  fichero  es  !  se  suprimen  todos  los  mensajes  citados; 
usted  debe  asegurarse  de  que  ha  pulsado  los  botones  REC  y  PLAY  del  magnetofono. 
En  el  caso  de  las  ficheros  grabados  en  disco,  el  ordenador  ignora  el  distintivo  !.  Obseve 
que  el  signo  !  no  cuenta  a  efectos  de  la  longitud  del  nombre  del  fichero. 

Si  se  abandona  el  proceso  pulsando  [ESC],  se  provoca  el  mensaje 

Broken    in 
Lea  el  apartado  'Calidad  de  la  grabacion'  anterior. 
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SPEED  WRITE 

Esta  orden  solo  afecta  a  la  cinta,  pero  puede  ser  ejecutada  cuando  el  ordenador  esta 
trabajando  con  el  disco. 


Mensajes  de  error 

El  sistema  de  cinta  puede  generar  los  mensajes  7,  21,  24,  25,  27  y  32  (vease  la  parte 
3  del  capitulo  titulado  'Para  su  referenda  ...'). 


Ordenes  externas  de  AMSDOS 


ITAPE 

especifica  que  las  entradas  y  salidas  se  deben  dirigir  a  la  cinta.  Esta  orden  se  puede  sub- 
divide en 

ITAPE. IN 

para  las  entradas  y 
ITAPE. OUT 

para  las  salidas. 
1DISC 

especifica  que  las  entradas  y  salidas  se  deben  dirigir  al  disco.  Esta  orden  se  puede  subdi- 
vide en 

IDISC. IN 

para  las  entradas  y 
IDISC. OUT 

para  las  salidas. 
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Las  ordenes 
!A 

:b 

!CPM 

IDIR 

[DRIVE 

!ERA 

IREN 

IUSER 


se  ejecutan  siempre  con  el  disco,  aun  cuando  se  haya  seleccionado  la  cinta  con  las  orde- 
nes Itape. 
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Capitulo  5 
AMSDOS  y  CP/M 


-     Parte  1:  AMSDOS 


Temas  tratados: 

*  Introduction  a  AMSDOS 

*  Directorio  del  disco 

*  Cambio  de  discos 

*  Nombres  y  tipos  de  ficheros 

*  Cabeceras  de  fichero  en  AMSDOS 

*  Nombres  de  fichero  con  dos  unidades  de  disco 

*  Simbolos  comodin 

*  Ejemplo  de  programa  con  ordenes  de  AMSDOS 

*  Guia  de  referencia  de  las  ordenes  de  AMSDOS 

*  Manejo  y  copia  de  ficheros 

*  Guia  de  referencia  de  los  mensajes  de  error 


Introduction 

AMSDOS  amplfa  el  BASIC  suministrado  con  su  ordenador  al  afiadirle  algunas  ordenes 
externas,  identificadas  por  el  signo  !  que  las  precede. 

AMSDOS  permite  cambiar  libremente  los  discos  siempre  que  no  haya  ningiin  fichero 
abierto.  Si  lo  hay,  emite  un  mensaje  de  error  y  se  puede  producir  una  perdida  de  datos 
si  el  fichero  estaba  abierto  para  escritura  (en  direction  de  salida). 


Directorio  del  disco 


Todos  los  discos  tienen  dos  secciones:  el  directorio  y  el  area  de  datos.  El  directorio  con- 
tiene  la  lista  de  los  nombres  de  los  ficheros  y  un  'mapa'  de  la  organization  del  area 
de  datos.  AMSDOS  y  CP/M  pueden  calcular  el  tamafio  de  un  fichero  consultando  su 
resefia  en  el  directorio.  El  calculo  del  espacio  libre  se  realiza  sumando  las  longitudes 
de  todos  los  ficheros  y  restandolo  de  la  capacidad  total  del  disco. 
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Cada  vez  que  se  va  a  leer  de  un  fichero,  se  consulta  su  resefta  en  el  directorio  para  averi- 
guar  su  situation  en  el  disco.  Cuando  se  crea  un  fichero  nuevo,  se  le  reserva  espacio 
en  el  disco.  Cuando  se  borra  un  fichero,  se  libera  el  espacio  por  el  ocupado.  El  directo- 
rio trabaja  en  unidades  de  IK  y  puede  contener  hasta  64  reseflas.  Los  ficheros  largos 
necesitan  una  resefia  para  cada  16K,  si  bien  este  hecho  queda  oculto  y  carece  de  impor- 
tancia  para  el  usuario. 


Cambio  de  discos 


AMSDOS  (y  CP/M  Plus)  permite  el  cambio  o  la  extraction  del  disco  en  todo  momento 
en  que  no  se  este  accediendo  a  el,  suponiendo  que  no  haya  ningiin  fichero  abierto  en 
esa  unidad.  A  diferencia  de  CP/M  2.2,  no  necesita  'reconocer'  los  discos. 

Si  se  extrae  un  disco  cuando  se  esta  escribiendo  en  el,  se  pueden  perder  los  datos  graba- 
dos  en  el  disco.  En  cuanto  AMSDOS  detecta  que  se  ha  extraido  un  disco  habiendo  fi- 
cheros abiertos  en  el,  se  abandonan  todos  los  ficheros  y  se  emite  un  mensaje  de  error. 
Los  datos  pendientes  de  escribir  en  el  tampdn  de  salida  se  perderan,  y  no  se  grabara 
la  ultima  resefta  del  directorio.  No  obstante,  AMSDOS  solamente  detecta  la  extraction 
del  disco  cuando  consulta  el  directorio,  lo  que  ocurre,  con  ficheros  grandes,  una  vez 
cada  16K  (y  siempre  que  abre  o  cierra  un  fichero).  Asi,  es  posible  perder  16K  de  datos 
si  se  extrae  un  disco  antes  de  cerrar  todos  los  ficheros  abiertos  en  el. 


Nombres  y  tipos  de  ficheros  en  AMSDOS 

Es  costumbre  dar  a  los  ficheros  nombres  que  incluyan  un  distintivo  del  tipo  de  fichero 
de  que  se  trata.  Este  convenio  no  obliga  al  ordenador  a  utilizar  los  ficheros  de  una  for- 
ma determinada,  si  bien  hay  programas  que  solamente  aceptan  ficheros  de  un  tipo  de- 
terminado.  BASIC  acepta  ficheros  de  todo  tipo,  pero  busca  preferentemente  ciertos  ti- 
pos si  no  se  le  especifica  otra  cosa.  (Vease  la  seccidn  'Cabeceras  de  fichero  en 
AMSDOS'.) 


Construction  de  los  nombres  de  los  ficheros 

El  nombre  del  fichero  consta  de  dos  partes,  separadas  por  un  punto  (.).  La  primera 
parte  consta  de  8  caracteres  como  maximo;  la  segunda  puede  contener  hasta  3  caracte- 
res.  Asi,  por  ejemplo,  "ROINTIME.DEM",  "DISCKIT3.COM"  y  "DISC.BAS"  son 
nombres  correctos  de  fichero. 
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La  segunda  parte  del  nombre  del  fichero  es  el  distintivo  de  tipo.  Los  nombres  y  los  dis- 
tintivos  pueden  consistir  en  una  mezcla  cualquiera  de  letras  y  mimeros,  pero  no  pueden 
contener  espacios  ni  signos  de  puntuacion.  Algunos  distintivos  de  tipo  convencionales. 
son  los  siguientes: 

.< espacios)  Tipo  no  especificado.  Puede  ser  un  fichero  creado  por  OPENOUT 
"<nombrefi>",  o  bien  un  programa  de  BASIC  grabado  por  AMSDOS 
con  SAVE  "<nombrefi>",A. 

.BAS  Programa  de  BASIC  grabado  con  SAVE  "<nombrefi>",  con  SAVE 

"<nombrefi>",P  o  con  SAVE"<nombrefi>".BAS",A. 

.BIN  Programa  o  zona  de  memoria  grabados  por  AMSDOS  con  SAVE 

"  <  nombrefi  >  ",  B ,  <  parametros  binarios  > . 

.BAK  Este  distintivo  se  asigna  automaticamente  a  la  version  anterior  de  un  fi- 

chero cuando  AMSDOS  o  un  programa  de  ayuda  graban  una  version 
mas  moderna  con  el  mismo  nombre.  Esto  permite  que  el  usuario  pueda 
utilizar  o  consultar  la  version  anterior  siempre  que  lo  necesite. 

.COM  Fichero  de  orden  (programa  directamente  ejecutable).  Los  programa  de 

ayuda  de  CP/M  son  de  este  tipo. 

.SUB  Fichero  de  instrucciones  para  el  programa  SUBMIT  de  CP/M. 


Cabeceras  de  fichero  en  AMSDOS 

AMSDOS  asigna  automaticamente  a  los  ficheros,  distintivos  de  tipo  adecuados  cuando 
los  graba,  por  lo  que  normalmente  no  es  necesario  especificar  distintivo.  Los  ficheros 
de  BASIC  ordinarios,  los  ficheros  de  BASIC  protegidos  y  los  ficheros  binarios  se  gra- 
ban con  un  registro  de  cabecera,  de  forma  que  en  el  proceso  de  lectura  la  orden  de 
AMSDOS 

LOAD    "<iH»brefi>" 

pueda  reconocerlos  y  obrar  en  consecuencia.  Si  la  orden  LOAD  no  encuentra  el  registro 
de  cabecera,  supone  que  se  trata  de  un  fichero  ASCII,  es  decir,  de  un  fichero  de  texto. 

Independientemente  del  registro  de  cabecera,  cuando  se  pide  a  AMSDOS  que  cargue 
un  fichero  sin  especificarle  el  distintivo  de  tipo,  empieza  por  buscarlo  con  el  distintivo 

.  (espacios) 

Si  no  lo  encuentra,  busca  uno  del  tipo 

.BAS 
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y,  finalmente,  del  tipo 

.BIN 

Esto  permite  que  el  usuario  se  despreocupe  del  distintivo  de  tipo  en  la  mayor  parte  de 
los  casos. 

Un  fichero  de  disco  creado  por  OPENOUT  y  escrito  por  BASIC  carecera  de  registro 
de  cabecera;  su  contenido  estara  en  ASCII  (es  decir,  texto  normal  escrito  con  las  6rde- 
nes  WRITE,  PRINT  o  LIST  de  BASIC.)  La  orden  OPENIN  busca  los  ficheros  en  el 
mismo  orden  que  LOAD  si  no  se  especifica  distintivo  de  tipo. 


Nombres  de  fichero  con  dos  unidades  de  disco 

En  los  sistemas  de  dos  unidades  de  disco  (esto  es,  en  aquellos  a  los  que  se  ha  conectado 
la  unidad  externa),  puede  haber  ficheros  en  las  dos  unidades.  El  ordenador  no  busca 
los  ficheros  automaticamente  en  las  dos  unidades,  por  lo  que  el  usuario  debe  especificar 
que  unidad  se  va  a  utilizar.  Se  puede  utilizar  las  ordenes  !  A,  !  B  o  DRIVE  (descritas 
mas  adelante)  para  seleccionar  una  de  las  dos  unidades;  o  bien,  sin  necesidad  de  modifi- 
car  la  unidad  implicita,  se  puede  especificar  A:  o  B:  como  prefijo  del  nombre  del  fiche- 
ro (los  niimeros  de  usuario  permiten  participar  el  directorio).  Asf,  por  ejemplo, 

IB 

SAVE    "PROG.BAS" 
!A 


!A 
SAVE    "B: PROG.BAS" 

graban  el  programa  en  la  segunda  unidad  (B). 

Analogamente,  se  puede  modificar  transitoriamente  la  asignacion  implicita  de  USER 
('usuario',  margen  de  0  a  15)  poniendo  el  niimero  de  usuario  como  prefijo  del  nombre 
del  fichero.  Asi,  por  ejemplo, 

LOAD    "15: PROG.BAS" 

y 

SAVE    "15: PROG.BAS" 

cargan  y  graban  el  programa  de  la  secci6n  del  disco  correspondiente  al  usuario  niimero 
15,  cualquiera  que  sea  la  asignacion  implicita  de  USER.  (Vease  mas  abajo  la  descrip- 
ci6n  de  la  orden  iUSER.) 
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Finalmente,  se  pueden  modificar  transitoriamente  las  asignaciones  implicitas  de  USER 
y  DRIVE  a  un  tiempo  especificando  ambos  (y  en  este  orden)  como  prefijo  del  nombre 
del  fichero.  Por  ejemplo, 

RUN    "15B: PROG. BAS" 

Simbolos  comodin 

A  veces  se  necesita  realizar  con  el  disco  operaciones  (catalogo,  copia,  borrado,  etc.) 
que  afecten  a  varios  ficheros.  Cuando  se  especifica  un  nombre  de  fichero  para  una  de- 
terminada  operacion,  el  sistema  busca  en  el  directorio  un  nombre  que  coincida  exacta- 
mente  con  el  especificado.  Algunas  ordenes  pueden  actuar  sobre  un  conjunto  de  fiche- 
ros independientemente  de  alguno  de  los  caracteres  de  su  nombre.  En  vez  de  especificar 
los  caracteres  'indiferentes',  en  su  lugar  se  pone  el  signo  de  interrogacion  ?.  Si  todo 
el  bloque  (o  resto  del  bloque)  del  nombre  del  fichero  o  del  distintivo  de  tipo  es  indife- 
rente,  el  conjunto  de  signos  de  interrogacion  se  puede  sustituir  por  un  asterisco.  Asi, 
por  ejemplo,  NOM.*  es  abreviatura  de  NOM.???,  y  F*.BAS  es  abreviatura  de 
F???????.BAS. 

La  expresion  *.*  significa  'todos  los  ficheros'. 

Ejemplos: 


Directorio 


Concuerdan  con 
*.BAS 


BANCO. BAS       BANCO. BAS 


NOM1.BAS 
NOM2.BAS 
NOM3.BAK 
NOM3.BAS 
NOMINA.BAS 


NOM1.BAS 
NOM2.BAS 

NOM3.BAS 
NOMINA.BAS 


Concuerdan  con 
NOM?. BAS 


Concuerdan  con 
N*.BA? 


NOM1.BAS 
NOM2.BAS 

NOM3.BAS 


NOM1.BAS 
NOM2.BAS 
NOM3.BAK 
NOM3.BAS 
NOMINA.BAS 


Ejemplos  de  utilization  de  ordenes  de  AMSDOS 
dentro  de  un  programa 

Para  mejor  asimilar  las  ordenes  de  AMSDOS,  le  recomendamos  que  introduzca  en  el 
ordenador  y  estudie  los  programas  siguientes.  No  ejecute  nunca  estos  programa  con 
un  disco  maestro  de  CP/M  instalado:  los  programas  escriben  datos  en  disco,  y  nunca 
se  debe  correr  el  riesgo  de  escribir  sobre  los  discos  maestros  originales.  Utilice  una  co- 
pia o  un  disco  de  trabajo. 
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Grabacion  de  variables  y  volcado  de  pantalla 

El  siguiente  programa  dibuja  la  bandera  britanica  y  graba  la  pantalla  completa  en  dis- 
co. Para  ejecutarlo  es  necesario  poner  en  la  unidad  un  disco  inicializado. 

10  i ichero*="volcpant.srn" 

20  MODE  l: BORDER  0 

30  DIM  color<2) 

40  FOR  i=0  TO  2 

50   READ  color <i):  REM  lee  colores  de  lista  DATA 

60   INK  i,color(i) 

70  NEXT 

80  ON  ERROR  GOTO  430 

90   OPENIN  "param.dat"  '  comprueba  si  existe  fichero 

100  CLOSEIN.-ON  ERROR  GOTO  0 

110  IF  numerror=32  AND  DERR=146  THEN  CLS 

120  CURSOR  l:PRINT  "Quiere  escribir  sobre  el  fichero": 

PRINT  "anterior?  Y/N"; 
130  a*=INKEY*:ON  INSTR<»  YN" , UPPER*<a*) )  GOTO  130,150 

140: GOTO  130 
140  PRINT  a*: PRINT  "Fin  del  programa" : END 
150  PRINT  a*: CURSOR  0 
160  OPENOUT  "param.dat" 

170  WRITE  #9,f  ichero*,l:  REM  graba  nombre  de  -fichero  y 

modo 
1S0  FOR  i=0  TO  2 

190  WRITE  #9, color (i):  REM  graba  colores 
200  NEXT  i 
210  CLOSEOUT 
220  CLS 

230  gp=l: GRAPHICS  PEN  gp:w=125 
240  x=-65:a=240:y=400:b=-150:GOSUB  400 
250  y=0:b=150:GOSUB  400 

260  x=575:a=-240:y=400:b=-150:GOSUB  400 

270  y=0:b=150:GOSUB  400 

2S0  gp=2: GRAPHICS  PEN  gp:w=40 

290  a=240:x=-40:y=400:b=-150:GOSUB  400 

300  x=0:y=0:L>=150:GOSUB  400 

310  a=-240:x=640:y=0:b=150:GOSUB  400 

320  x=600:y=400:b=-150:GOSUB  400 

330  ORIGIN  0,0,256,3S0,0,400:CLG  1 

340  ORIGIN  0,0,0,640, 150, 250:CLG  1 

350  ORIGIN  0,0,280,352,0,400:CLG  2 

360  ORIGIN  0,0,0,640, 168, 230ICLG  2 

370  SAVE  fie her o* , b , &C000 , &4000 

380    DATA    2,26,6 
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390  END 

400  MOVE  x,y:DRAWR  a,b:DRAWR  w,0:DRAWR  -a,-b 

410  MOVE  x+a/2+w/2,y+b/2:FILL  gp 

420  RETURN 

430  numerr or =ERR: RESUME  NEXT 

run 

Fijese  en  los  distintivos  de  tipo  .DAT  y  .SRN.  No  tienen  mas  significado  intrinseco  que 
recordarnos  cual  es  su  contenido.  El  fichero  PARAM.DAT  sera  un  fichero  ASCII  sin 
registro  de  cabecera,  mientras  que  VOLCPANT.SRN  es  un  fichero  binario  AMSDOS 
con  cabecera. 

Observe  que  el  programa  trata  de  leer  el  fichero  PARAM.DAT,  para  averiguar  si  exis- 
te, antes  de  escribir  en  el.  Si  no  existe,  BASIC  genera  un  error,  el  cual  es  gestionado 
por  el  programa  para  que  la  ejecuci6n  continue  sin  interrupci6n.  Si  ya  existe  el  fichero, 
no  se  genera  error  y  el  programa  pregunta  al  usuario  si  desea  escribir  encima  de  61. 

En  este  fichero  se  graba  informaci6n  sobre  el  modo  de  pantalla,  los  colores  y  el  nombre 
del  fichero  que  contiene  el  volcado  de  pantalla.  La  linea  170  ilustra  c6mo  se  puede  utili- 
zar  un  fichero  de  datos  para  escribir  en  61  valores  de  variables  (fichero$)  y  constantes 
(1)  que  luego  hayan  de  ser  utilizados  por  otro  programa. 


Carga  de  pantallas 

El  siguiente  ejemplo  es  un  lector  de  volcados  de  pantalla  que  utiliza  un  fichero  de  para- 
metros  para  controlar  su  acci6n.  Observe  c6mo  se  leen  los  datos  del  fichero  con  INPUT 
y  c6mo  se  utiliza  EOF  para  adaptar  la  lectura  automaticamente  al  tamaflo  del  fichero. 
Para  que  este  programa  visualice  correctamente  el  volcado  de  pantalla,  es  necesario  que 
la  grabaci6n  se  haya  hecho  en  una  posici6n  de  memoria  conocida,  pues  en  caso  contra- 
rio  la  imagen  quedara  desplazada.  Esto  se  garantiza  grabando  el  volcado  despu6s  de 
ejecutar  una  orden  MODE  y  teniendo  cuidado  de  que  durante  la  formaci6n  de  la  ima- 
gen no  se  desplace  la  pantalla. 

10  DIM  color (15):  REM  preparacion  para  16  colores 

20  OPENIN  "param.dat " 

30  INPUT  «9,nombre-f  ichero*,modopantal  la 

40  i=0 

50  WHILE  NOT  EOF 

60   INPUT  t*9,color(i) 

70   INK  i.color(i) 

80   i  =  i  + 1 

90  WEND 

100  CLOSEIN 

110  MODE  modopantal la: BORDER  0 

120  LOAD  nombre-f  ichero* 

run 
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Resumen  de  las  ordenes  externas  de  AMSDOS 


:a 


Orden.  Especifica  que  la  unidad  de  disco  implicita  sea  la  A.  Equivale  a  !  DRIVE  con 
parametro  A.  (La  unidad  incorporada  al  ordenador  es  la  A.) 


B 

IB 


Orden.  Especifica  que  la  unidad  de  disco  implicita  sea  la  B.  Equivale  a  !  DRIVE  con 
parametro  B.  (La  unidad  incorporada  al  ordenador  es  la  A.) 


ICPM 

!CPM 

Orden.  Carga  un  sistema  operativo  de  disco.  Los  sistemas  operativos  suministrados 
con  el  ordenador  son  CP/M  Plus  y  CP/M  2.2. 

La  ejecucion  de  esta  orden  no  se  puede  completar  si  en  la  unidad  no  hay  instalado  un 
disco  de  sistema  con  CP/M.  En  concreto,  CP/M  Plus  se  carga  con  una  copia  de  la- 
cara  1  de  los  discos  maestros  suministrados  con  el  ordenador;  CP/M  2.2,  con  una  copia 
de  la  cara  4. 


IDIR 

IDIR   [ ,  <expresiori  literal)] 
IDIR, "K.BAS" 

Orden.  Escribe  en  la  pantalla  el  directorio  del  disco  (al  estilo  de  CP/M)  y  el  espacio 
libre.  Si  se  omite  el  parametro,  se  supone  *.*. 
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IDISC 

1DISC 
Orden.  Equivale  a  las  ordenes  IDIS.IIM  y  IDISC.OUT. 

IDISC.IN 

!DISC. IN 
Orden.  Especifica  que  las  operaciones  de  lectura  se  deben  hacer  con  el  disco. 

IDISC.OUT 

SDISC.OUT 
Orden.  Especifica  que  las  operaciones  de  escritura  se  deben  hacer  con  el  disco. 

!  DRIVE 

!  DRIVE,  <expfesion  literal) 
SDRIVE, "A" 

Orden.  Establece  que  unidad  de  disco  se  debe  considerar  como  implicita  en  lo  sucesivo. 
Esta  orden  fallara  si  AMSDOS  no  consigue  leer  en  la  unidad  especificada. 

IERA 

!  ERA,  <expre5ia»  literal) 

IERA, "*.BAK" 

Orden.  Borra  todos  los  ficheros  que  concuerden  con  la  <expresion  literal)  y  no  sean 
de  solo  lectura.  Admite  simbolos  comodin. 

IREN 

IREN,  <expresioii  literal), <expresion  literal) 

!REN, "FICHNUEV.BAS" , "FICHANTI.BAS" 
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Orden.  Da  un  nuevo  nombre  a  un  fichero  ya  existente  en  el  disco.  No  puede  haber  otro 
fichero  con  el  nombre  nuevo.  No  admite  simbolos  comodin. 

Se  puede  incluir  el  parametro  USER  ('usuario',  vease  mas  abajo)  en  la  <expresion 
literal)    para    modificar    transitoriamente    la    situation    implicita.    Por    ejemplo 
iREN."0:NUEVO.BAS","15:ANTIGUO.BAS"  da  al  fichero  "ANTIGUO.BAS"  de 
USER  15  el  nuevo  nombre  "NUEVO.BAS"  en  USER  0,  cualquiera  que  sea  el  parame- 
tro de  !  USER  especificado  con  anterioridad. 


ITAPE 

iTAPE 

Orden.  Equivale  a  las  ordenes  ITAPE.IN  y  ,'TAPE.OUT.  Solamente  actiia  si  esta  co- 
nectado  un  magnetofono  externo. 


ITAPE.IN 

ITAPE.IN 

Orden.  Especifica  que  las  operaciones  de  lectura  se  deben  hacer  con  la  cinta.  Solamente 
actiia  si  esta  conectado  un  manetofono  externo. 


ITAPE.OUT 

! TAPE. OUT 

Orden.  Especifica  que  las  operaciones  de  escritura  se  deben  hacer  con  la  cinta.  Sola- 
mente actiia  si  esta  conectado  un  magnet6fono  externo. 

IUSER 

:USER,<txprtsio»  rateri) 
IUSER, 3 

Orden.  Determina  con  cual  de  las  16  secciones  del  directorio  (areas  de  usuario,  del  0 
al  15)  deben  actuar  ciertas  6rdenes  de  manejo  de  disco  (CAT,  LOAD,  ]  DIR,  etc.). 

Un  fichero  grabado  en  un  area  de  usuario  puede  ser  transferido  a  otra  con  la  orden 
I  REN.  Asi,  !REN/'15:EJEMPLO.BAS","0:EJEMPLO.BAS"  transfiere  el  fichero 
del  area  15  al  area  0  sin  cambiarle  el  nombre. 
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Copia  de  ficheros  de  disco  a  disco 

Ficheros  de  AMSDOS  con  cabecera 

Los  ficheros  de  este  tipo  se  pueden  copiar  desde  CP/M  mediante  PIP  y  (vease  la  parte 
2  de  este  capitulo).  Los  ficheros  creados  por  AMSDOS  con  registro  de  cabecera  (vease 
mas  arriba)  pueden  ser  copiados  en  bloque  (disco  a  disco),  pero  en  general  su  contenido 
no  puede  ser  entendido  por  los  programas  de  CP/M. 


Ficheros  ASCII 

Los  ficheros  creados  por  AMSDOS  sin  registro  de  cabecera  estaran  generalmente  en 
ASCII  y  son  tanto  copiables  como  entendibles  por  los  programas  de  CP/M.  En  concre- 
to,  los  ficheros  de  programa,  de  datos  y  de  texto  de  ASCII  son  intercambiables  entre 
AMSDOS  y  CP/M. 


Ficheros  de  'solo  lectura' 

Desde  CP/M  es  posible  hacer  que  un  fichero  sea  de  solo  lectura  y/o  invisible  a  efectos 
de  catalogo  del  directorio.  Estas  caracteristicas  solo  se  pueden  establecer  o  anular  desde 
CP/M,  pero  son  respetadas  por  AMSDOS.  Para  mas  detalles,  vease  la  parte  2  de  este 
capitulo  (programa  de  ayuda  SET). 


Copia  de  ficheros  entre  disco  y  cinta 

CP/M  Plus  no  esta  preparado  para  acceder  a  ficheros  de  cinta  y  copiarlos  en  disco, 
ni  para  copiar  ficheros  de  disco  a  cinta.  Si  lo  esta,  en  cambio,  CP/M  2.2  (cara  4  de 
los  discos  maestros).  Los  programas  de  ayuda  CLOAD  y  CSAVE  de  CP/M  2.2  realizan 
estas  funciones  segiin  se  muestra  en  las  tablas  siguientes. 


Procedimientos  de  copia  de  ficheros 

En  las  tablas  siguientes  se  describen  los  procedimientos  de  transferencia  para  todo  tipo 
de  ficheros  entre  disco  y  cinta.  No  se  requiere  tener  conectada  la  segunda  unidad  de 
disco.  Los  programas  de  BASIC  protegidos  no  pueden  ser  copiados  de  cinta  a  disco, 
ni  viceversa;  tampoco  pueden  serlo  los  ficheros  binarios  (tales  como  programas  de  jue- 
gos  en  codigo  de  maquina)  si  no  se  conocen  las  direcciones  de  carga.  En  la  parte  2  de 
ese  capitulo  se  da  mas  information  sobre  los  programas  PIP,  CLOAD  y  CSAVE. 
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COPIAR  DESDE 


BASIC  de  Amstrad 

Datos 

COPIAR  HACIA 

en  cinta  * 

en  cint 

BASIC  de  Amstrad 

ITAPE 

en  cinta  * 

LOAD"FICH" 
(cnbiar  cinta) 
SAVE"FICH" 
IDISC 

Binario 

en  cinta  * 

ASCII 
en  cinta  ' 


ITAPE 

LOAD-FICH" 
(caibiar  cinta) 
SAVE"FICH" ,A 
IDISC 


(insertar  disco  it  CP/K  2.2) 

ICPM 

CLOAD"FICH",TEMP 

(caibiar  cinta) 

CSAVE    TEMP, "FICH" 

ERA    TEMP 

AMSDOS 

(nota  1) 


Binario 
en  cinta  * 


H=HIMEM 

ITAPE 

MEMORY    (p)-l 
LOAD"FICH" 
(caibiar  cinta) 
SAVE"FICH",B, 
<p> ,  <l>t ,  <e>] 

IDISC 
MEMORY=H 
(nota  2) 


BASIC  de  Amstrad 

ITAPE 

en  disco  * 

LOAD"FICH" 

IDISC 

SAVE"FICH" 

ASCII 

ITAPE 

(insertar  disco  it  CP/K  2.2) 

en  disco 

LOAD"FICH" 

ICPM 

IDISC 

CLOAD"FICH" 

SAVE"FICH",A 

AMSDOS 

Binario 
en  disco 

H=HIMEM 

ITAPE 

MEMORY    (p)-l 
LOAD"FICH" 

IDISC 
SAVE"FICH",B, 

<p>,  (!)!,(»>! 
MEMORY    H 
(nota  2) 

*  Fichero  con  cabecera. 

<nota  1>  Requiere  espacio  libre  en  el  disco  para  el  fichero  transitorio  "TEMP". 
<nota  2>  <p>  es  la  direction  inicial  del  fichero,  <1>  es  su  longitud,  <e>  es  la  direction  optional 
de  ejecucion. 
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COPIAR  DESDE 


COPIAR  HACIA 


BASIC  de  Amstrad 
en  cinta  * 


Binario 
en  cinta  * 


ASCII 
en  cinta  * 


BASIC  de  Amstrad 
en  disco  * 


ASCII 
en  disco 


Binario  Amsdos 
en  disco  * 


Todos  los  demas 
en  disco 


BASIC  de  Amstrad 
en  disco  * 


Datos  ASCII 
en  disco 


Binario  Amsdos 
en  disco  * 


Todos  los  demas 
en  disco 


LOAD-RICH" 
ITAPE 

SAVE-FICH" 
IDISC 


H=HIMEM 
MEMORY    <p)-l 
LOAD"FICH" 
ITAPE 
SAVE"FICH",B, 

<p>,  <!>[,<»>] 
IDISC 
MEMORY    H 
(not J  2) 


LOAD'FICH" 

ITAPE 
SAVE"FICH",A 

IDISC 
o  biea 
(iasertar  disco  de  CP/H  2.2 

1CPM 

CSAVE  FICH 
AMSDOS 


LOAD'FICH" 
(caibiar  disco) 
SAVE"FICH" 

o  biea 
(iasertar  disco  de  CP/H  Plus) 
1CPM 

PIP    B:=FICH 
AMSDOS 


(iasertar  disco  de  CP/H  2.2) 
ICPM 

CSAVE    FICH 
AMSDOS 


(insertar  disco  de  CP/B  2.2) 
ICPM 

CSAVE    FICH 
AMSDOS 
(nota  3) 


LOAD"FICH" 
(caibiar  disco) 
SAVE"FICH",A 


(iasertar  disco  de  CP/H  Plus) 
ICPM 

PIP    B:=FICH 
AMSDOS 


<  iasertar  disco  de  CP/H  Plus) 

ICPM 

PIP    B:=FICH 

AMSDOS 


(iaseftar  disco  de  CP/N  Plus) 

ICPM 

PIP    B:=FICH 

AMSDOS 


*  Fichero  con  cabecera. 

<nota  2>   <p  es  la  direccion  inicial  del  fichero,  <1>  es  su  longitud,  <e>  es  la  direction  optional 

de  ejecucion. 
<nota  3>  El  fichero  destino  no  es  utilizable  directamente  por  BASIC.  No  obstante,  esta  option 

es  interesante  como  medio  de  almacenamiento  a  bajo  costo.  El  fichero  se  puede  volver 

a  copiar  en  disco  con  CLOAD*'FICH"  (desde  CP/M  2.2). 
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Guia  de  referenda  de  los  mensajes  de  error 

Cuando  AMSDOS  no  puede  ejecutar  una  orden,  emite  un  mensaje  de  error.  Si  el  pro- 
blema  es  mecanico  o  radica  en  los  circuitos,  el  mensaje  de  error  va  seguido  de  la 
pregunta: 

Retry,  Ignore  or  Cancel? 

R  (reintentar)  hace  que  se  repita  la  operaci6n,  posiblemente  despues  de  que  el  usuario 
haya  remediado  el  problema. 

I  (ignorar)  hace  que  el  ordenador  continue  como  si  nada  hubiera  ocurrido,  lo  que  gene- 
ralmente  da  lugar  a  efectos  inesperados  y  posiblemente  indeseados. 

C  (cancelar)  hace  que  se  cancele  la  operacidn,  lo  que  frecuentemente  conduce  a  un  nue- 
vo  mensaje  de  error. 


Lista  de  errores 

Unknown   command 
...  la  orden  no  ha  sido  tecleada  correctamente. 
Gad   command 

...  la  orden  no  puede  ser  ejecutada  por  alguna  razon;  error  de  sintaxis  o  configuracidn 
inadecuada  del  sistema. 

<noibre  de  fichero)   already   exists 
...  el  usuario  ha  intentado  dar  a  un  fichero  el  nombre  de  un  fichero  ya  existente. 

<noibre  de  fichero)    not    found 
...  no  existe  ese  fichero. 

Drive   (unidad):    directory   -full 
...  no  queda  espacio  en  el  directorio  para  una  nueva  resefia. 

Drive   <unidad> :    disc    -full 
...  no  queda  espacio  en  el  disco  para  grabar  nuevos  datos. 
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Drive   <unidad>:    disc    changed,    closing   <hOibre  de  fichero> 

...  se  ha  cambiado  el  disco  antes  de  cerrar  el  fichero;  el  ordenador  lo  cierra. 

<noibre  de  fichero)    is    read    only 

...  el  fichero  no  se  puede  modificar  porque  es  de  'solo  lectura'.  Los  ficheros  solamente 
se  pueden  caracterizar  como  de  solo  lectura  o  de  lectura/escritura  desde  CP/M. 

Drive   <unidad>:    disc    missing 

...  no  hay  disco  en  la  unidad,  o  el  disco  no  esta  girando  correctamente.  La  accion 
aconsejable  es  extraer  el  disco,  insertarlo  de  nuevo  y  pulsar  R. 

Drive   <uniiad>:    disc    is   write   protected 

...  se  ha  intentado  escribir  en  un  disco  que  tiene  abierto  el  orificio  de  protection.  Si 
efectivamente  quiere  utilizar  ese  disco,  extraigalo,  cierre  el  orificio  de  protecci6n,  inser- 
telo  de  nuevo  y  pulse  R. 

Drive  <u»idad>:    read   -fail 

. . .  error  en  los  circuitos  de  lectura.  La  acci6n  aconsejable  es  extraer  el  disco,  insertarlo 
de  nuevo  y  pulsar  R. 

Drive   <unidad>:    write   -fail 

. . .  error  en  los  circuitos  de  escritura.  La  accion  aconsejable  es  extraer  el  disco,  inser- 
tarlo de  nuevo  y  pulsar  R. 

Failed  to  load  CP/M 

. . .  error  de  lectura  al  intentar  cargar  CP/M  con  la  orden  !  CPM,  o  bien  no  se  ha  inser- 
tado  un  disco  de  sistema  de  CP/M  valido.  Cuando  se  intenta  cargar  CP/M  con  un  disco 
que  tenga  formato  'de  datos'  se  genera  el  mensaje  de  error  'Read  fail'. 
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Parte  2:  CP/M 


CP/M  Plus 

Temas  tratados: 

*  Introduction  a  CP/M 

*  Carga  de  CP/M  Plus 

*  Modo  directo  de  consola 

*  Programas  de  ayuda  transitorios 

*  Gestion  de  perifeiicos 

*  CP/M  2.2 

CP/M  Plus  es  un  sistema  operativo  de  disco.  Es  un  programa  especial  que  da  acceso 
a  la  gran  potencia  del  CPC6128.  Aprovecha  todos  los  128K  de  RAM  y  deja  libres  mas 
de  61 K  para  los  programas  del  usuario.  CP/M  permite  el  acceso  aleatorio  a  los  ficheros 
de  datos;  la  implementacion  en  el  CPC6128  incluye  un  sofisticado  emulador  de 
consola. 

El  hecho  de  que  CP/M  este  disponible  para  tan  gran  variedad  de  ordenadores  hace  que 
se  hayan  escrito  millares  de  paquetes  de  aplicacion,  entre  los  que  usted  puede  elegir  los 
que  mejor  satisfagan  sus  necesidades. 

En  la  publication  'A  Guide  to  CP/M  Plus',  SOFT971,  se  da  una  description  completa 
de  CP/M  Plus,  junto  con  information  detallada  sobre  como  escribir  sus  propios  pro- 
gramas y  sobre  la  implementacion  de  CP/M  Plus  en  el  Amstrad.  Puede  consultar  tam- 
bien  otras  publicaciones  de  Amsoft  y  de  otros  editores  sobre  este  tema. 


Introduction 

El  sistema  operativo  CP/M  proporciona  un  medio  de  comunicacion  entre  el  usuario 
y  el  sistema  informatico,  incluidas  las  unidades  de  disco  y  otros  perifericos.  Ofrece  6r- 
denes  especiales  (incorporadas  en  el  sistema)  y  programas  de  ayuda  (grabados  en  los 
discos)  cuyo  objetivo  fundamental  es  ayudarle  en  la  tarea  principal  y  mas  frecuente: 
ejecutar  los  programas  de  las  aplicaciones  con  sus  propios  datos. 

Desde  luego,  es  posible  adquirir  gran  experiencia  en  el  manejo  de  CP/M  y  todos  sus 
programas  de  ayuda.  Tal  experiencia  puede  ayudarle  a  salir  de  algiin  apuro.  Pero  la 
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realidad  es  que  a  la  mayor  parte  de  los  usuarios  les  basta  con  saber  como  poner  en  mar- 
cha  los  programas.  El  resto  de  este  capftulo  estara  dedicado  a  explicar  las  funciones 
y  caracterfsticas  fundamentales  de  CP/M,  procurando  evitar  que  el  exceso  de  detalles 
oscurezca  lo  esencial. 

Del  mismo  modo  que  BASIC  tiene  su  'modo  directo'  o  'modo  inmediato',  caracteriza- 
do  por  el  mensje  inductor  Ready,  CP/M  tiene  un  'modo  directo  de  consola',  identifi- 
cado  por  los  mensajes  A>  o  B>.  El  sistema  dispone  de  ciertas  ordenes  incorporadas, 
pero  la  mayor  parte  del  trabajo  se  realiza  cargando  y  ejecutando  'programas  transito- 
rios'.  Se  les  llama  'transitorios'  porque  normalmente  estan  en  el  disco  y  solo  se  los  car- 
ga  en  la  memoria  cuando  se  los  va  a  utilizar. 

El  sistema  genera,  ademas  de  los  mensajes  de  error  estandar  de  CP/M,  cierto  mimero 
de  mensajes  de  error  especfficos  de  los  circuitos,  los  cuales  se  distinguen  por  el  hecho 
de  que  aparecen  en  la  ultima  linea  de  la  pantalla  en  forma  de  "cinta  sin  fin". 


Situation  de  CP/M  Plus  en  el  disco 

La  mayor  parte  de  CP/M  Plus  reside  en  un  fichero  especial  con  distintivo  de  tipo 
.EMS,  grabado  en  la  cara  1  del  juego  de  discos  del  sistema.  El  ordenador  carga  CP/M 
a  partir  de  este  fichero  siguiendo  un  proceso  de  dos  etapas. 

En  primer  lugar,  la  orden  i  CPM  de  AMSDOS  carga  el  primer  sector  de  la  pista  mimero 
0.  En  los  discos  con  formato  de  sistema,  este  sector  contiene  un  programa  cuya  linica 
mision  es  cargar  el  fichero  .EMS.  El  resto  de  las  pistas  del  sistema  no  se  utiliza. 


Arranque  en  frio 


Durante  el  proceso  de  carga,  cuando  se  activa  CP/M  por  primera  vez,  el  sistema  busca 
en  el  disco  el  fichero  PROFILE. SUB.  Si  lo  encuentra,  ejecuta  automaticamente  las  ins- 
trucciones  contenidas  en  el.  Asi  pues,  incluyendo  en  el  fichero  PROFILE. SUB  las  ins- 
trucciones  adecuadas,  se  puede  automatizar  la  preparation  del  teclado,  la  initialization 
de  la  impresora  e  incluso  la  puesta  en  marcha  de  una  aplicacion.  En  el  capitulo  4  vimos 
como  se  cambia  el  nombre  del  fichero  PROFILE  (cara  1)  para  activarlo. 

Mientras  esta  funcionando  el  fichero  PROFILE. SUB  se  crea  en  el  disco  un  pequeflo 
fichero  transitorio;  asi  pues,  el  disco  no  puede  estar  protegido  contra  escritura.  Esta 
es  la  razon  por  la  que  el  fichero  PROFILE  del  disco  maestro  no  puede  ser  reconocible, 
esto  es,  no  puede  tener  el  distintivo  .EMS. 

Los  ficheros  PROFILE  se  pueden  elaborar  con  un  procesador  de  textos,  con  un  editor 
de  texto  (tal  como  ED.COM)  o  incluso  desde  BASIC.  El  siguiente  programa  de  BASIC 
podria  haber  sido  utilizado  para  crear  el  fichero  PROFILE. SUB: 
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10  OPENOUT  "PROFILE. SUB" 

20  PRINT  #9,"SETKEYS  KEYS.CCP" 

30  PRINT  #9, "LANGUAGE  3" 

40  CLOSEOUT 


Codigos  de  control  de  consola 


En  CP/M  se  utilizan  diversas  teclas  para  controlar  la  evolution  de  los  programas.  Estas 
funciones  reemplazan  la  action  que  ejercen  las  teclas  de  movimiento  del  cursor  y  [ESC] 
en  BASIC.  Los  codigos  de  control  que  relacionamos  a  continuation  se  asignan  a  las 
correspondientes  teclas  ejecutando  la  orden 

SETKEYS  KEYS.CCP 

El  programa  transitorio  SETKEYS.COM  y  el  fichero  KEYS.CCP  se  encuentran  ambos 
en  la  cara  1  del  juego  de  discos  del  sistema. 


C6digo  de 
control 


Tecla 


Funci6n 


[C0NTR0L1A 

0 

[C0NTR0L1B 

[CONTROL]  0 

...  o  bien  . . . 

[CONTROL]  H 

[C0NTR0L1C 

[CONTROL]  [ESC] 

[C0NTR0L1E 

[CONTROL]  [RETURN] 

[C0NTR0L1F 

B 

[CONTROUG 

[CRL] 

[C0NTR0L1H 

[•^BORR] 

[C0NTR0L1I 

[TAB] 

[CONTROUJ 

[C0NTR0L1K 

[CONTROL]  [CLR] 

[C0NTR0L1M 

[RETURN] 

...  o  bien  . . . 

[INTRO] 

[C0NTR0L1P 

Mover  el  cursor  una  posici6n  hacia  la  izquierda 
Llevar  el  cursor  al  principio  de  la  lfnea;  si  ya  esta 
en  esa  posicion,  lo  lleva  al  final  de  la  linea 

Abandonar  el  programa 
Retorno  fisico  del  carro 
Mover  el  cursor  una  posici6n  hacia  la  derecha 
Borrar  el  caracter  que  esta  en  la  posicion  actual 
del  cursor 

Borrar  el  caracter  que  esta  a  la  izquierda  del  cur- 
sor y  mover  este  una  posici6n  a  la  izquierda 
Llevar  el  cursor  al  siguiente  tope  de  tabulaci6n 
Introducir  linea  de  orden 
Borrar  hasta  el  final  de  la  linea 
Introducir  linea  de  orden 


Bascula  de  la  impresora.  Activa  y  desactiva  el 
envio  a  la  impresora  de  toda  la  informaci6n 
que  aparece  en  la  pantalla 
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C6digo  de 
control 


Tecla 


Funci6n 


[CONTROUQ 
[CONTROUR 
[CONTROUS 

[CONTROUU 

[CONTROUW 

[CONTROUX 

[CONTROUZ 


[CONTROL]  [INTRO] 
[ESC] 


[COPIA] 
[CONTROL]  [* 


BORR] 


Reanudar  el  envio  de  informaci6n  a  la  pantalla 
Repetir  la  linea  de  orden  actual 
Detener  el  envio  a  la  pantalla  de  la  informaci6n 
generada  por  CP/M.  Se  reanuda  con  [CON- 
TROUQ 

Ignorar  la  linea  actual 
Repetir  la  ultima  orden  tecleada 
Borrar  desde  el  principio  de  la  linea  hasta  la  po- 
sition actual  del  cursor 
Fin  del  texto 


Nombres  de  ficheros 

Muchas  de  las  ordenes  de  CP/M  llevan  como  parametros  nombres  de  ficheros.  En  cier- 
tos  casos  se  permite  la  inclusion  de  simbolos  comodin  (vease  la  section  'Simbolos 
comodin'  en  la  parte  1  de  este  capitulo).  El  sistema  convierte  a  mayusculas  todos  los 
nombres  de  fichero. 

Las  ordenes  directas  de  consola  y  la  mayor  parte  de  los  programas  de  ayuda  no  requie- 
ren  que  se  escriban  los  nombres  de  ficheros  entre  comillas. 

Los  nombres  de  los  ficheros  pueden  incluir  los  prefijos  A:  o  B:  para  obligar  a  CP/M 
a  utilizar  la  unidad  especificada. 

Una  orden  tipica  de  CP/M  es,  por  ejemplo, 

TYPE  KEYS.CCP 

donde  TYPE  es  el  nombre  de  la  funcion  ('visualizar  en  la  pantalla')  y  KEYS.CCP  es 
el  nombre  del  fichero  cuyo  contenido  queremos  ver. 


Cambio  de  la  unidad  de  disco  implicita 

Si  se  tienen  conectada  la  segunda  unidad  de  disco,  se  puede  especificar  cual  de  las  dos 
debe  ser  considerada  como  implicita.  Para  ello  se  escribe  A:  o  B:  en  respuesta  a  los 
mensajes  inductores  B>  o  A>,  respectivamente.  El  propio  mensaje  inductor  indica  en 
todo  momento  cual  es  la  unidad  implicita.  La  inclusi6n  de  A:  o  B:  como  prefijos  en 
los  nombres  de  los  ficheros  obliga  a  utilizar  la  unidad  especificada  en  una  operation 
concreta,  pero  no  modifica  la  unidad  implicita. 
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DIR 

DIR 

B: 

DIR 

*.BAS 

DIR 

B:*.BAS 

DIR 

PIP.COM 

Ordenes  directas  de  consola 

Hay  varias  ordenes  directas  de  consola  que  se  pueden  teclear  en  respuesta  a  los  mensa- 
jes  A>  o  B>.  Estas  ordenes  pueden  ser  abreviadas.  Las  versiones  simplificadas  que 
vamos  a  estudiar  si  estan  incorporadas  en  el  sitema  operativo,  pero  existen,  con  el  mis- 
mo  nombre,  programas  transitorios  mas  complejos. 


DIR 

Escribe  en  la  pantalla  la  lista  del  contenido  del  directorio.  Los  nombres  de  los  ficheros 
no  estan  ordenados  segun  ningiin  criterio,  sino  en  el  or  den  en  que  estan  sus  reseflas  en 
el  directorio.  DIR  admite  simbolos  comodin;  no  lista  los  ficheros  que  tengan  el  atributo 
SYS'. 

lista  todos  los  ficheros  de  la  unidad  iiplicita 

lista  todos  los  ficheros  de  la  unidad  B: 

lista  todos  los  ficheros  del  tipo    .  BAS 

lista  todos  los  focheros  del  tipo    .  BAS  de  la  unidad   B: 

lista  solaiente  el  fichero  PIP.COM   (si  existe) 


DIRSYS  y  DIRS 

Estas  ordenes  escriben  la  lista  de  los  ficheros  del  disco  que  tienen  el  atributo  'SYS'. 
Por  lo  demas  funcionan  igual  que  DIR.  Mas  adelante  describiremos  el  atributo  SYS. 


ERASE  o  ERA 

Borra  reseflas  del  directorio.  Solo  se  borra  la  resefla,  de  modo  que  los  datos  siguen  es- 
tando  en  el  disco  hasta  que  se  graben  otros  en  su  lugar;  no  obstante,  la  information 
es  irrecuperable.  ERA  admite  simbolos  comodin;  si  se  incluyen  estos  simbolos  en  el 
nombre  de  fichero,  ERA  pide  que  se  le  confirme  que  debe  borrar  todos  los  ficheros 
concordantes.  ERA  no  lista  los  nombres  de  los  ficheros  que  va  borrando.  Si  alguno 
de  los  ficheros  que  se  le  ha  pedido  que  borre  es  de  'solo  lectura',  la  orden  queda  inte- 
rrumpida.  El  atributo  de  'solo  lectura'  sera  descrito  mas  adelante. 

ERA   PIP.COM  borra  el  fichero  PIP.COM 

ERA   B:PIP.C0M      borra  el  fichero  PIP.COM   de  la  unidad   B: 

ERA   *.  BAS  borra  todos  los  ficheros  de  tipo    .  BAS 
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—  RENAME  o  REN 

Cambia  el  nombre  de  un  fichero  ya  existente.  El  primer  nombre  de  fichero  que  se  espe- 

—  cifica  es  el  nuevo,  seguido  del  signo  =  y  del  nombre  antiguo.  Si  ya  hay  en  el  disco  un 
fichero  con  el  nombre  nuevo,  se  emite  un  mensaje  de  error.  Como  orden  incorporada 

~~  al  sistema,  REN  no  admite  simbolos  comodin  en  los  nombres  de  los  ficheros;  si  lo  hace, 

_  en  cambio,  el  programa  transitorio  RENAME.COM. 

—  REN   FICHNUEV.BAS=FICHANTI.BAS       da  al  fichero   FICHANTI .  BAS   el  nuevo 

itoibre  FICHNUEV.BAS 
~"  REN   B:  FICHNUEV.BAS=FICHANTI.  BAS  Ja  al  fichero   FICHANTI. BAS  el  nuevo 

ADibre  FICHNUEV.BAS   en  la  unidad   B: 


TYPE  o  TYP 

Envia  a  la  pantalla  el  contenido  del  fichero  especificado.  Si  el  fichero  no  es  un  fichero 
ASCII  de  texto,  se  produciran  efectos  imprevisibles,  quiza  indeseables. 

TYPE    KEYS.CCP 
exhibe  el  listado  del  programa  KEYS.CCP. 

USER  o  USE 

El  'niimero  de  usuario'  es  un  metodo  de  particion  del  directorio  mediante  el  cual  se 
limita  el  acceso  de  distintos  usuarios  a  sus  correspondientes  ficheros.  Normalmente  un 
fichero  solo  es  accesible  si  esta  identificado  con  el  niimero  actual  de  usuario. 

Los  ficheros  que  hayan  sido  grabados  en  'usuario  0'  y  tengan  el  atributo  'SYS'  son 
accesibles  desde  todos  los  numeros  de  usuario;  de  esta  forma,  los  programas  de  ayuda 
y  de  aplicacion  estan  al  servicio  de  todos  los  usuarios  sin  necesidad  de  que  cada  uno 
tenga  una  copia  en  su  propia  area. 

La  orden  USER  cambia  el  niimero  actual  de  usuario.  Por  ejemplo, 

USER   3 
hace  que  el  niimero  de  usuario  sea  el  3. 
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Ordenes  transitorias 

Para  realizar  una  gesti6n  de  ficheros  mas  elaborada  que  la  que  permite  el  modo  directo 
de  consola  es  necesario  recurrir  a  los  diversos  programas  de  ayuda  disponibles.  Estos 
programas  se  ejecutan  sin  mas  que  escribir  su  nombre,  en  ocasiones  seguido  de  algun 
nombre  de  fichero  o  de  algun  parametro.  El  lector  seguramente  conocera  una  de  estas 
6rdenes  transitorias:  DISCKIT3. 

Las  6rdenes  transitorias  se  dividen  en  los  grupos  indicados  mas  abajo.  La  documenta- 
ci6n  disponible  sobre  estos  programas  es  muy  amplia;  el  lector  puede  consultar  los  fi- 
cheros HELP  (cara  3  del  juego  de  discos  del  sistema)  y  la  publicaci6n  'A  Guide  to 
CP/M  Plus',  SOFT971. 

Las  ordenes  transitorias  DISCKIT,  SETKEYS,  SETLST,  SETSIO,  PALETTE,  LAN- 
GUAGE y  AMSDOS,  asi  como  los  controladores  de  pantalla  para  GSX  y  la  instala- 
ci6n  de  LOG03,  han  sido  disenadas  por  Amstrad  y  funcionan  solamente  en  este  siste- 
ma. No  son  trasladables  a  ningun  otro  CP/M.  En  una  misma  linea  se  pueden  incluir 
varias  6rdenes  separandolas  con  el  signo  de  exclamaci6n  (!): 

LANGUAGE  3 ! SETKEYS  KEYS.WP 


Gestion  de  perifericos 

DISCKITS  es  un  programa  completo  para  inicializar,  copiar  y  comprobar  discos.  Es 
mas  rapido  inicializar  mientras  se  copia  que  inicializar  primero  y  luego  copiar.  El  pro- 
grama ofrece  meniies  que  indican  que"  tecla  (normalmente  del  teclado  numerico)  se  debe 
pulsar  para  realizar  cada  funcion.  El  formato  'comerciaP  (vendor)  es  un  tipo  especial 
de  formato  de  sistema  disenado  para  la  distribution  comercial  de  programas.  No  obs- 
tante, los  discos  con  formato  'de  datos'  pueden  ser  mas  adecuados  para  ese  fin. 


AVISO 

El  acuerdo  de  licencia  para  su  CP/M  (que  esta  codificado  electronicamente  con 
un  niimero  de  serie)  permite  su  utilization  en  un  solo  ordenador.  Esto  significa, 
en  particular,  que  esta  prohibido  dar  a  otras  personas  una  copia  de  su  disco  (la 
cual  seria  identificable  por  el  mimero  de  serie).  Puesto  que  todas  las  copias  de  la 
cara  1  llevan  grabado  su  CP/M  (en  el  fichero  .EMS),  tenga  buen  cuidado  de  no 
vender,  intercambiar  o  de  ninguna  otra  forma  de  enajenar  discos  con  ese  fichero 
en  ellos. 
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LANGUAGE 


El  CPC6128  tiene  un  juego  de  caracteres  internacionales  bastante  completo.  La  orden 
LANGUAGE  intercambia  determinados  grupos  de  caracteres  para  que  los  programas 
de  aplicacion  puedan  visualizar  caracteres  especiales  y  acentuados.  En  la  parte  16  del 
capitulo  titulado  'Para  su  referenda'  daremos  mas  amplia  information  sobre  este 
tema. 

La  orden 

LANGUAGE   3 

adapta  el  ordenador  para  que  escriba  el  juego  de  caracteres  britanico,  cuya  diferencia 
con  el  estandar  (EE.UU.)  esta  en  el  intercambio  de  los  signos  £  y  #. 


Colores 


Los  colores  iniciales  de  CP/M  Plus  en  el  6128  (con  monitor  de  color)  son  el  bianco  in- 
tenso  para  los  caracteres  y  el  azul  para  el  fondo.  Pero  estos  colores  se  pueden  modificar 
con  la  orden  PALETTE,  la  cual  va  seguida  de  varios  parametros,  uno  para  cada  tinta. 
La  tinta  0  es  la  del  borde  y  el  fondo;  la  tinta  1  es  la  de  los  caracteres.  Cada  color  esta 
descrito  por  un  numero  (margen  de  0  a  63)  que  caracteriza  al  mismo  tiempo  la  intensi- 
dad  perceptible  en  un  monitor  monocromatico. 

Se  puede  especificar  desde  una  hasta  16  tintas,  pero  solo  las  dos  primeras  seran  visibles 
en  la  pantalla  de  80  columnas. 

La  orden 

PALETTE    63, 1 

invierte  la  situation  normal  de  las  tintas  0  y  1,  pues  da  caracteres  azules  (1)  sobre  fondo 
bianco  intenso  (63). 

Utilice  la  tabla  siguiente  para  elegir  los  colores  (o  las  intensidades)  que  desee.  Los  mi- 
meros  se  pueden  especificar  en  decimal  o  en  hexadecimal. 
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Color 

Hex 

Dec 

Color 

Hex 

Dec 

Negro 

&00 

0 

Azul  pastel 

&2B 

43 

Azul 

&02 

2 

Naranja 

&2C 

44 

Azul  intenso 

&03 

3 

Rosa 

&2E 

46 

Rojo 

&08 

8 

Magenta  pastel 

&2F 

47 

Magenta 

&0A 

10 

Verde  intenso 

&30 

48 

Malva 

&0B 

11 

Verde  mar 

&32 

50 

Rojo  intenso 

&0C 

12 

Cyan  intenso 

&33 

51 

Morado 

&0E 

14 

Verde  lima 

&38 

56 

Magenta  intenso 

&0F 

15 

Verde  pastel 

&3A 

58 

Verde 

&20 

32 

Cyan  pastel 

&3B 

59 

Cyan 

&22 

34 

Amarillo  intenso 

&3C 

60 

Azul  celeste 

&23 

35 

Amarillo  pastel 

&3E 

62 

Amarillo 

&28 

40 

Blanco  intenso 

&3F 

63 

Blanco 

&2A 

42 

El  teclado 


Los  codigos  generados  por  el  teclado  pueden  ser  modificados  mediante  la  orden 
SETKEYS.  Esta  orden  permite  asignar  los  valores  deseados  a  las  teclas  o  a  los  codigos 
expansibles.  La  lista  de  codigos  debe  encontrarse  en  un  fichero,  cuyo  nombre  se  incluye 
luego  como  parametro  de  SETKEYS.  El  fichero  puede  haber  sido  creado  con  ED,  con 
PIP  o  incluso  desde  BASIC.  Por  ejemplo,  una  orden  ti'pica  es 

SETKEYS  KEYS.TST 

donde  el  fichero  KEYS.TST  contiene 

E  &8C  "DIR  TM"  codigo  expansible  niimero  12 

8  N  S  C  "TH"  retroceso  del  cursor  =  [CO NTROL]H,  ASCII  08 

que  primero  redefine  el  codigo  expansible  generado  por  [CONTROL]  [INTRO]  (repre- 
sentado  por  &8C)  para  asignarle  la  cadena  DIR[RETURN],  y  luego  la  tecla  de  'cursor 
a  la  izquierda'(@,  tecla  niimero  8)  para  que  genere  un  retroceso  del  cursor. 

Los  ficheros  KEYS  estandar  suministrados  con  el  ordenador  6128  son:  KEYS.CCP  pa- 
ra la  edition  de  ordenes  de  CP/M,  KEYS.DRL  para  utilizar  con  Dr.  LOGO  (cara  3) 
y  KEYS.WP,  adecuado  para  muchos  procesadores  de  texto. 
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Impresoras 


La  initialization  de  impresoras  se  puede  realizar  con  la  orden 
SETLST   <noibrefichero> 

donde  <nombrefichero>  contiene  la  cadena  de  codigos  que  se  debe  enviar  a  la  impreso- 
ra.  Al  igual  que  en  los  ficheros  de  SETKEYS,  los  codigos  de  control  se  pueden  repre- 
sentar  por: 

t  <caracter> 

o  por 

t '  <valor  del  caracter> ' 

o  bien  por 

t'<noibre  del  codigo  de  control)' 

donde  los  <nombres  del  codigo  de  control)  son  ESC,  FF,  etc.,  o  sea,  los  que  se  mues- 
tran  en  la  tabla  de  caracteres  ASCII  del  capitulo  titulado  'Para  su  referenda  . . . ' . 

Un  codigo  de  initialization  de  impresoras  muy  frecuente  es  el  15  (decimal),  que  estable- 
ce  el  modo  de  escritura  estrechada. 

En  BASIC  la  orden  seria 

PRINT    t*8,CHR*<15> 

En  CP/M, 

SETLST  ESTRECHA 

donde  el  fichero  ESTRECHA  debe  contener  cualquiera  de  las  siguientes  lineas: 
t '  SI ' 

to 

t'fcF' 
t'15' 

todas  las  cuales  representan  el  codigo  15  (decimal). 
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Algunos  programas  de  aplicacion  trabajan  con  la  pantalla  de  24x80.  La  orden 
SET24X80 

o  bien 

SET24X80    ON 

seleciona  el  modo  24x80.  La  orden 
SET24X80    OFF 

lo  anula. 

La  pantalla  normal  en  el  6128  es  24x80,  con  la  ultima  linea  reservada  para  los  mensajes 
de  estado.  La  desactivacion  del  modo  24x80  solo  sera  apreciable  si  tambien  se  deactiva 
la  linea  de  estado.  En  la  parte  15  del  capitulo  7  se  explica  como  activar  y  desactivar 
la  linea  de  estado. 


Interfaz  serie 


CP/M  puede  controlar  un  interfaz  serie  monocanal  de  entrada/salida  (RS232).  Sus  ca- 
racteristicas  fundamentales  se  pueden  consultar  ejecutando  la  orden  SETSIO  sin 
parametros: 

SETSIO 

Se  las  puede  modificar  con  esta  misma  orden  incluyendo  los  siguientes  parametros  (o 
algunos  de  ellos): 

SETSIO,  RX  1200,  TX  75,  PARITY  NONE,  STOP  1,  BITS  8, 
HANDSHAKE  ON,  XOFF  OFF 

con  lo  que  quedaria  establecida  una  nueva  configuration. 

Las  caracteristicas  de  velocidad  de  transmision  (RX)  y  de  estado  XON/XOFF  pueden 
resultar  afectadas  por  una  de  las  acciones  posibles  de  la  orden  DEVICE.  Esta  orden 
controla  los  dispositivos  logicos  y  fisicos.  Los  dispositivos  logicos  llevan  como  sufijo 
el  signo  de  dos  puntos  (:).  Para  examinar  los  atributos  actuales  de  los  dispositivos  se 
ejecuta  la  orden 

DEVICE 
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Los  atributos  se  pueden  modificar  con  6rdenes  tales  como  las  siguientes: 

DEVICE   SIOC1 200 3         establece la velocidad de  1200 bits por segundo para 

el  interfaz  serie 
DEVICE   SIOCXON]  activa  el  protocolo  XON/XOFF 

DEVICE   SIOCNOXON]       desactiva  el  protocolo  XON/XOFF 

La  correspondencia  entre  dispositivos  16gicos  y  fisicos  tambien  es  modificable.  Nor- 
malmente  CON:  es  CRT  fla  consola,  o  sea,  el  teclado  y  la  pantalla),  AUX:  es  SIO  (el 
interfaz  serie  opcional)  y  LST  es  LPT  (el  interfaz  paralelo  Centronics).  La  orden 

DEVICE    LST:=SIO 

enviara  al  interfaz  serie  (si  esta  conectado)  la  salida  que  normalmente  iria  a  la 
impresora. 

Observe  que  esto  es  una  reasignacidn  de  canales,  que  no  se  debe  confundir  con  las  fun- 
ciones  de  copia  de  ficheros  realizadas  por  PIP.  Las  ordenes  GET  <nombrefichero>  y 
PUT  <nombrefichero>  redirigen  las  entradas  y  salidas  de  la  consola  y  la  salida  hacia 
la  impresora  para  hacerles  utilizar  ficheros  en  lugar  de  controladores  de  dispositive 


PIP 


El  programa  de  ayuda  PIP  {Peripheral  Interchange  Program,  "programa  de  intercam- 
bio  entre  perifericos")  realiza  el  intercambio  de  informacion  entre  el  ordenador  y  sus 
perifericos. 

La  forma  general  de  la  orden  es 
PIP  <desti»o>=<fue»le> 

La  <fuente>  y  el  <destino>  pueden  ser,  o  bien  un  dispositivo  logico,  o  bien  nombres 
de  ficheros;  en  este  ultimo  caso  se  permiten  simbolos  comodin  en  la  <fuente>.  Los  dis- 
positivos logicos  utilizables  son  los  siguientes: 


Como  fuente 

Como  destino 

con: 

entrada  por  consola 

con: 

salida  por  consola 

aux: 

entrada  auxiliar 

aux: 

salida  auxiliar 

EOF! 

indicador  de  fin  de  fichero 

lst: 

impresora 

prn: 

impresora  con  gestion  de  tabu- 
ladores,  numeros  de  linea  y 
salto  entre  paginas 
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Ejemplos  de  utilization  de  PIP: 

PIP   B:=A:*.COM 
copia  todos  los  ficheros  *.COM  de  la  unidad  A:  a  la  B:. 

PIP    TECLADO.CPM=KEYS.CCP 
hace  una  copia  del  fichero  KEYS.CCP  y  le  da  el  nombre  de  TECLADO.CPM. 

pip  con:=keys.ccp 

envia  el  fichero  KEYS.CCP  a  la  pantalla  (efecto  similar  al  de  TYPE  KEYS.CCP). 

PIP   LST:=KEYS.CCP 
envia  el  fichero  KEYS.CCP  a  la  impresora. 

pip  entrada.txt=con: 

capta  caracteres  por  el  teclado  y  los  envia  a  un  fichero  llamado  ENTRADA.TXT. 

Observe  que,  en  este  ultimo  ejemplo,  el  proceso  se  concluye  con  el  codigo  de  control 
[CONTROL1Z  y  que  para  pasar  a  la  linea  siguiente  hay  que  pulsar  siempre  [CON- 
TROL1J  despues  de  [RETURN].  ECONTROL1J  es  el  codigo  ASCII  del  avance  de  linea. 

Cuando  se  escribe  PIP  sin  parametros,  emite  el  mensaje  inductor  *,  a  continuation  del 
cual  se  puede  introducir  las  ordenes  deseadas.  Esta  forma  de  funcionamiento  es  muy 
util  en  el  trabajo  de  copia  de  ficheros  cuando  no  se  tiene  grabado  el  fichero  PIP.COM 
en  el  disco  fuente  ni  en  el  disco  destine  El  procedimiento  consiste,  pues,  en  cargar  PIP 
con  la  cara  1  del  juego  de  discos  del  sistema,  extraer  este  disco  y  luego  insertar  los  que 
hayan  de  intervenir  en  el  proceso  de  copia. 

Para  abandonar  PIP  basta  con  pulsar  [RETURN]  en  respuesta  al  mensaje  inductor  *. 

Observe  que  PIP  tambien  puede  copiar  ficheros  de  un  disco  a  otro  en  sistemas  de  una 
sola  unidad;  el  programa  avisa  cuando  se  debe  cambiar  el  disco.  Los  indicadores  de 
unidad  de  los  ficheros  fuente  y  destino  deben  ser  diferentes. 

Gestion  del  sistema 


DIR,  ERASE,  RENAME  y  TYPE  existen  tambien  como  programas  transitorios;  en  es- 
ta version  son  mas  potentes  que  las  correspondientes  ordenes  intrinsecas  al  sistema.  Al 
igual  que  ocurre  con  otros  programas  transitorios  suministrados  por  Digital  Research, 
los  parametros  secundarios  se  especifican  entre  corchetes.  En  los  ficheros  HELP  de  la 
cara  3  se  da  una  explication  mas  completa.  Veamos  algunos  ejemplos: 
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DIR    [FULL]  muestra  todos  los  nombres  de  los  ficheros, 

con  sus  tamaflos  y  atributos 
ERASE   *.COM    [CONFIRM]        pide  confirmation  individual  para  cada  fi- 

chero  que  encuentra,  antes  de  borrarlo 
RENAME  pregunta  los  nombres  antiguo  y  nuevo  del 

fichero 
RENAME  * .  SA  V=* .  BAK  cambia  todos  los  distintivos  de  tipo  de  .  BAK 

a  .SAV 
TYPE   KEYS.  WP    [NOPAGE]         inhibe  la  pagination  en  la  pantalla 

Ya  hemos  mencionado  antes  los  atributos  de  SYS  (sistema)  y  RO  (solo  lectura).  Estos 
y  muchos  atributos  pueden  ser  asignados  mediante  la  orden  SET,  la  cual  acepta  simbo- 
los  comodin. 

Las  ordenes 

SET  *.COM  [RO] 
SET  KEYS.CCP  [RO] 
SET  A:  [RO] 

asignan  a  los  ficheros  o  a  una  unidad  de  disco  el  atributo  RO  (para  prevenir  el  borrado 
accidental). 

Las  6rdenes 

SET  *.COM  [RW] 
SET  KEYS.CCP  [RW] 
SET  A:  [RW] 

devuelven  a  los  ficheros  o  a  la  unidad  de  disco  el  atributo  de  'lectura/escritura' . 
Las  ordenes 

SET  *.COM  [SYS] 
SET  KEYS.CCP  [SYS] 

dan  a  los  ficheros  el  atributo  de  'sistema'.  Los  ficheros  que  tienen  este  atributo  no  apa- 
recen  en  los  listados  generados  por  DIR  (pero  si  en  los  de  DIRS  y  DIRSYS).  No  obstan- 
te, esos  ficheros  estan  disponibles  a  todos  los  demas  efectos;  e  incluso,  si  estan  en  el 
area  de  usuario  numero  0,  estan  disponibles  para  todos  los  numeros  de  area  de  usuario. 

Las  ordenes 

SET  *.C0M  [DIR] 
SET  KEYS.CCP  [DIR] 

anulan  el  atributo  de  'sistema'. 
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A  cada  disco  se  le  puede  asignar  una  etiqueta  o  nombre  (NAME)  y  tambien  una  clave 
(PASSWORD).  La  clave  protege  el  directorio,  no  los  ficheros.  Tambien  se  puede  asig- 
nar claves  a  ficheros  individuales.  Las  6rdenes 

SET  [NAME= JAVIER] 
SET  [PASSWORD=SESAMO] 
SET  [PROTECT=ON] 

actiian  sobre  el  disco  que  esta  en  la  unidad  implicita. 
Las  6rdenes 

SET  *.*[PASSWORD=SESAMO] 
SET  *.*[PROTECT=READ] 

actiian  sobre  ficheros  de  ese  disco  (*.*  significa  'todos  los  ficheros'). 

La  estampaci6n  de  fecha  y  hora  se  puede  activar  con  INITDIR  (cara  2  del  juego  de  dis- 
cos del  sistema).  Las  6rdenes 

INITDIR 

SET    [CREATE=ONJ       ...    o    ...       SET    [ACCESS=ON]       ...    y    ... 

SET    [UPDATE=ONJ       ...    junto  con    ... 

DIR    [FULL] 

inician  y  visualizan  la  estampacion  de  fecha  y  hora  del  disco  de  la  unidad  implicita. 
La  orden 

DATE   SET 

sera  necesaria  cada  vez  que  se  cargue  CP/M  Plus  para  comunicarle  la  fecha  y  la  hora. 
Una  vez  puesto  en  hora,  el  reloj  la  actualiza  con  precision  razonable.  Para  consultarla 
se  utiliza  la  orden 


■  *      7      •  ■ 


DATE       . . .     y 
DATE    CONTINUOUS 


ADVERTENCIA 

Cuando  a  un  disco  se  le  asigna  nombre  o  clave,  o  se  le  estampa  fecha  y  hora,  en 
ese  disco  ya  no  debe  escribir  ni  AMSDOS  ni  CP/M  2.2,  pues  estos  sistemas  no  es- 
tan  dotados  de  tales  funciones. 
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Normalmente  el  sistema  solo  accede  a  los  ficheros  del  disco  que  esta  en  la  unidad  impli- 
cita,  salvo  que  se  especifique  otra  unidad.  Sin  embargo,  la  orden 

SETDEF   *,A: 

(donde  *  representa  la  unidad  implicita)  instruye  a  CP/M  para  que  en  lo  sucesivo, 
cuando  este  buscando  ficheros,  lo  haga  primero  en  la  unidad  implicita  y  luego  en  la 
A:.  Dicho  de  otra  forma,  si  la  unidad  implicita  es  la  B:,  el  fichero  sera  encontrado  si 
esta  en  alguna  de  las  dos  unidades. 

Las  ordenes 

SETDEF  [PAGE]    ...  y  ... 
SETDEF  [NOPAGE] 

activan  y  desactivan  la  pagination  en  la  pantalla  (esto  es,  la  pausa  que  el  sistema  hace 
automaticamente,  en  espera  de  que  el  usuario  pulse  una  tecla,  cuando  la  informaci6n 
emitida  por  la  consola  llena  la  pantalla). 

Recuerde  que  la  mayor  parte  de  las  funciones  realizadas  por  DEVICES,  SET  y 
SETDEF,  en  particular  cuando  afectan  a  las  unidades  de  disco  (en  lugar  de  a  fiche- 
ros o  discos  concretos),  han  de  ser  inicializadas,  junto  con  la  fecha,  cada  vez  que  se 
carga  CP/M  Plus.  Esta  tarea  se  presta  perfectamente  a  ser  programada  en  un  fichero 
PROFILE.SUB  adecuado. 

SUBMIT  ejecuta  grupos  de  6rdenes  individuales  automaticamente.  Las  ordenes  tienen 
que  estar  en  un  fichero  de  texto  cuyo  distintivo  de  tipo  sea  .SUB.  Cada  linea  representa 
una  orden;  una  linea  puede  ser  la  entrada  a  un  programa  si  empieza  con  el  signo  < . 

Con  las  diferentes  versiones  de  SHOW  se  puede  obtener  information  sobre  el  tamano  de 
un  disco,  el  espacio  libre,  el  mimero  de  resenas  libres  en  el  directorio,  ficheros  que  hay  en 
las  distintas  areas  de  usuario,  el  nombre  del  disco,  las  caracteristicas  de  la  unidad,  etc.: 

show  b: 

show  b: [label] 
show  b: [users] 
show  b:[dir] 
show  b: [drive] 


Salida  de  CP/M 


La  orden 

AMSDOS 

retira  el  control  de  CP/M  y  lo  cede  al  BASIC  de  AMSTRAD,  a  traves  del  cual  se  accede 
a  las  6rdenes  del  sistema  operativo  de  disco  AMSDOS. 
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Programacion  avanzada 


La  cara  2  del  juego  de  discos  del  sistema  contiene  diversos  programas  que  nan  sido  dise- 
flados  para  ayudar  a  los  programadores  mas  expertos.  Le  sugerimos  que  consulte  la 
publication  'A  Guide  to  CP/M  Plus',  SOFT  971,  o  alguna  otra  obra  de  referenda. 


CP/M  2.2 


El  objetivo  de  esta  section  es  poner  de  manifiesto  las  diferencias  que  hay  entre  CP/M 
Plus  y  CP/M  2.2. 

CP/M  2.2  se  carga  con  las  dos  primeras  pistas  de  un  disco  de  sistema.  El  sector  de  auto- 
carga  es  diferente  del  que  se  utiliza  para  cargar  CP/M  Plus;  es  necesario  no  confundir- 
los.  Aunque  es  posible  utilizar  discos  con  formato  'comercial',  'IBM'  y  'de  datos'  en 
cualquier  unidad  de  disco,  es  habitual  limitar  su  uso  a  la  segunda  unidad. 

A  menos  que  el  programa  tome  medidas  al  efecto  (tal  como  hace  FILECOPY,  por  ejem- 
plo),  CP/M  2.2  no  permite  escribir  en  un  disco  que  no  haya  sido  'reconocido'  previa- 
mente.  Por  otra  parte,  CP/M  2.2  solo  comprueba  el  tipo  de  formato  que  tiene  el  disco 
(sistema,  datos  o  IBM)  cuando  lo  reconoce.  En  el  caso  de  la  unidad  de  disco  incorpora- 
da  (unidad  A)  esto  ocurre  cada  vez  que  vuelve  al  modo  directo  de  consola  o  cuando 
se  teclea  [COI\ITROL]C  en  respuesta  a  los  mensajes  inductores  A>  o  B>.  En  el  caso 
de  la  unidad  externa  (unidad  B),  CP/M  2.2  reconoce  el  disco  la  primera  vez  que  accede 
a  el,  despues  de  reconocer  el  instalado  en  la  unidad  A. 

Si  se  intenta  escribir  en  un  disco  que  no  ha  sido  reconocido,  se  provoca  el  error 
Bdos   Err    on   <unidad>:    R/0 

Pulse  una  tecla  cualquiera  para  continuar.  Si  ademas  el  nuevo  disco  es  de  formato  dis- 
tinto,  se  producira  un  error  de  lectura  o  de  escritura.  Pulse  C  para  continuar. 

Si  usted  adquiere  programas  grabados  en  un  disco  con  formato  'comercial',  puede,  o 
bien  copiarlo  a  un  disco  de  sistema  (de  CP/M  2.2)  mediante  FILECOPY  o  PIP,  o  bien 
convertir  el  disco  en  un  disco  de  sistema  anadiendole  las  pistas  de  su  propio  CP/M  2.2, 
para  lo  cual  sirven  los  programas  BOOTGEN  y  SYSGEN.  Lea  atentamente  el  'Acuer- 
do  de  Licencia  para  el  Usuario  Final'  (apendice  1  de  este  manual). 

SYSGEN  (sin  parametros)  es  un  programa  copiador  especial  que  solicita  los  discos 
fuente  y  destino  y  copia  las  pistas  del  sistema  CP/M  2.2  del  uno  al  otro.  BOOTGEN 
copia  la  pista  0  del  sector  1  (el  cargador)  y  el  sector  de  configuration  de  un  disco  a  otro. 
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La  orden  DIR  no  acepta  parametros  (aparte  del  indicativo  de  la  unidad).  Los  nombres 
de  los  ficheros  no  son  ordenados  segiin  ningiin  criterio,  sino  que  aparecen  en  la  pantalla 
en  el  mismo  orden  en  que  figuran  sus  reseflas  en  el  directorio. 

STAT  proporciona  algunas  de  las  funciones  de  SET  y  SHOW.  Las  ordenes 

STAT 
STAT  a: 
STAT  B: 

muestran  el  estado  del  disco  y  el  espacio  libre. 
Las  ordenes 

STAT   *.COM 
STAT    DISC.BAS 

dan  information  mas  amplia  acerca  de  ficheros  concretos. 
Las  ordenes 

STAT  *.COM  *R/0 
STAT  DISC.BAS  *R/0 

asignan  al  fichero  especificado  el  atributo  de  'solo  lectura',  de  forma  que  no  queda  ser 
borrado  accidentalmente. 

Las  ordenes 

STAT  *.COM  *R/W 
STAT  DISC.BAS  *R/W 

anulan  el  atributo  de  'solo  lectura'  y  activan  el  de  'lectura/escritura'. 
Las  ordenes 

STAT    *.COM    *SYS 

STAT  SECRETO.BAS  *SYS 

asignan  al  fichero  el  atributo  de  'fichero  de  sistema'  para  hacerlo  invisible  a  las  opera- 
ciones  de  listado  del  directorio  y  de  copia.  El  fichero  seguira  disponible  para  todo  lo 
demas. 

Las  ordenes 

STAT    *.COM    *DIR 

STAT  SECRETO.BAS  *DIR 

asignan  al  fichero  el  atributo  de  'directorio',  anulando  el  de  'sistema'. 
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El  programa  de  ayuda  FILECOPY  permite  copiar  ficheros  de  un  disco  a  otro  en  siste- 
mas  de  una  sola  unidad  de  disco.  Informa  al  usuario  de  cuando  debe  intercambiar  los 
discos  y  le  da  instrucciones  completas  a  traves  de  la  pantalla.  Si  se  incluyen  simbolos 
comodin  en  los  nombres  de  los  ficheros,  FILECOPY  pide  confirmaci6n  de  que  efectiva- 
mente  se  desea  copiar  cada  uno  de  los  ficheros  encontrados.  El  programa  escribe  los 
nombres  de  los  ficheros  a  medida  que  los  va  copiando.  Ejemplos: 

FILECOPY    *.COM 

copia  todos  los  ficheros  del  tipo  .COM. 
FILECOPY    PIP.COM 

copia  el  fichero  PIP.COM. 

DISCKIT2  realiza  las  mismas  funciones  que  DISCKIT3,  pero  es  algo  mas  lento  en  la 
copia  de  discos  ya  que  dispone  de  menos  espacio  de  memoria. 

Hay  dos  programas  de  ayuda  que  realizan  la  transferencia  entre  disco  y  cinta.  Salvo 
para  el  usuario  especialista,  lo  normal  es  que  solo  tenga  interes  transferir  ficheros  de 
texto  (ASCII). 

CLOAD  puede  llevar  dos  parametros.  El  primero  es  el  nombre  del  fichero  origen  (cin- 
ta), entre  comillas;  el  segundo  es  el  nombre  del  fichero  destino  (disco).  Si  se  omite  el 
segundo  parametro,  el  fichero  destino  tendra  el  mismo  nombre  que  el  fichero  origen; 
en  tal  caso  el  nombre  tendra  que  ajustarse  a  las  normas  de  CP/M.  Si  se  omite  el  nombre 
del  fichero  origen,  CLOAD  lee  el  primero  que  encuentra  en  la  cinta.  Si  el  primer  carac- 
ter  del  nombre  es  el  signo  de  admiration  (!),  se  suprimen  los  mensajes  habituales  del 
sistema  de  cinta. 

Ejemplo: 

CLOAD  "MI  CARTA"  MICARTA.TEXT 

CSAVE  puede  llevar  tres  parametros.  El  primero  es  el  nombre  del  fichero  origen  (dis- 
co); el  segundo  es  el  nombre  del  fichero  destino  (cinta),  entre  comillas.  Si  se  omite  el 
segundo  parametro,  el  fichero  se  grabara  en  la  cinta  con  el  mismo  nombre  que  tiene 
en  el  disco.  Si  el  primer  caracter  del  nombre  del  fichero  destino  es  el  signo  de  admira- 
ci6n  (!),  se  suprimen  los  mensajes  habituales  del  sistema  de  cinta.  Si  se  especifican  am- 
bos  nombres,  se  puede  incluir  un  tercer  parametro  para  indicar  la  velocidad  de  transfe- 
rencia de  datos  a  la  cinta:  0  para  1000  bits  por  segundo  o  1  para  2000  bits  por  segundo. 

Ejemplos: 

CSAVE  TEXTSAL.TXT  "TEXTO  SALIDA"  1 
CSAVE  FICHEDAT 
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SETUP 

Este  programa  permite  redefinir  las  caracteristicas  del  teclado  del  CPC6128,  del  siste- 
ma  de  disco  y  del  interfaz  serie.  Tambien  permite  realizar  diversas  acciones  cuando  se 
carga  CP/M  2.2.  A  diferencia  de  otros  programas  de  ayuda,  que  realizan  sus  funciones 
cuando  se  los  ejecuta,  SETUP  modifica  el  sector  de  configuraci6n  del  disco  (el  cual 
s61o  es  invocado  en  los  arranques  en  frio).  En  este  aspecto,  SETUP  ejerce  una  acci6n 
similar  a  la  de  PROFILE.SUB  de  CP/M  Plus. 

El  programa  es  controlado  por  menu;  cuando  una  pantalla  es  correcta  o  no  requiere 
modificaci6n,  se  pasa  a  la  siguiente  respondiendo  Y  a  la  pregunta: 

Is   this  correct    (Y/N):_ 

CiEs  esto  correcto?)  Se  puede  interrumpir  el  programa  pulsando  [CONTROUC.  Una 
vez  completos  los  cambios,  el  programa  pregunta: 

Do  you  want  to  update  your  system  disc  (Y/N):_ 

CiQuiere  actualizar  el  disco  de  sistema?')  Esto  da  la  oportunidad  de  conservar  el  sector 
de  configuraci6n  existente  pulsando  N.  Tambien  pregunta: 

Do  you  want  to  restart  CP/M  (Y/N):_ 

lo  que  permite  cargar  y  probar  la  nueva  configuraci6n  pulsando  Y. 

Para  copiar  el  sector  de  configuration  en  otro  disco  hay  dos  procedimientos:  uno  con- 
siste  en  ejecutar  BOOTGEN  (vease  mas  abajo);  el  otro,  en  cargar  SETUP  con  el  disco 
origen,  responder  con  Y  a  todas  las  preguntas  e  insertar  el  disco  destino  antes  de  res- 
ponder  a  la  penultima: 

Do  you  want  to  update  your  system  disc  (Y/N):_ 

Los  caracteres  de  c6digo  ASCII  inferior  a  32  (decimal)  se  pueden  introducir  en  las  cade- 
nas  literales  tecleando  el  signo  t  antes  del  caracter  correpondiente,  tornado  del  conj  un- 
to @,  A-Z,  [,  \,  ],  >,  _. 

Las  dos  opciones  siguientes  son  las  que  normalmente  requieren  mayor  atenci6n: 
**  Initial   command   bu-f-fer: 

('Tampon  de  ordenes  iniciales').  Los  caracteres  introducidos  tendran  el  mismo  efecto 
que  si  se  los  teclease  en  modo  directo  de  consola  inmediatamente  despues  de  cargar 
CP/M,  es  decir,  ejecutan  automaticamente  un  programa  en  ese  momento.  No  olvide 
incluir  el  equivalente  a  [RETURN],  que  se  representa  con  los  caracteres  tM. 
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Asi,  para  ejecutar  automaticamente  DIR,  el  tampon  de  ordenes  initiates  debe  contener 
DIRfM 

Para  cargar  Dr.  LOGO, 

SUBMIT    L0GO2fM 
El  mensaje 

Sign-on  string: 

es  el  que  aparece  en  la  parte  superior  de  la  pantalla  cuando  se  carga  CP/M  2.2.  Observe 
los  caracteres  t  JtM,  que  producen  el  retorno  del  carro  y  el  avance  de  linea.  La  primera 
parte  del  mensaje  estandar  establece  los  colores  de  la  pantalla  y  el  borde  para  trabajar 
con  80  columnas;  copielos  literalmente  si  desea  conservar  estas  caracterfsticas. 

Keyboard  translations: 

('Adaptation  del  teclado').  Permite  asignar  nuevos  valores  ASCII  a  las  teclas,  simulan- 
do  asi  el  efecto  de  la  orden  KEY  DEF  de  BASIC.  Los  parametros  requeridos  son  los 
numeros  de  las  teclas  y  los  valores  ASCII  asignados.  Los  numeros  de  las  teclas  estan 
ilustrados  en  el  diagrama  que  hay  grabado  a  la  derecha  del  teclado,  y  tambien  en  la 
parte  4  del  capitulo  'Para  su  referenda  . . .'. 

Keyboard  expansions: 

('Programacion  de  teclas').  Simula  el  efecto  de  la  orden  KEY  de  BASIC. 

Para  terminar  ... 


Los  programas  DISCKIT2,  SYSGEN,  BOOTGEN,  FILECOPY,  SETUP,  CSAVE  y 

CLOAD  han  sido  disenados  por  Amstrad  y  funcionan  solamente  con  CP/M  2.2  en  el 
sistema  Amstrad.  Son  incompatibles  con  otras  versiones  de  CP/M,  aunque  los  demas 
fabricantes  suelen  ofrecer  programas  similares  (a  menudo  con  los  mismos  nombres)  es- 
critos  para  sus  maquinas. 

En  la  cara  4  se  incluyen  varios  programas  de  CP/M  2.2  destinados  a  los  usuarios  mas 
expertos.  Le  sugerimos  que  consulte  la  publicacidn  'A  Guide  to  CP/M',  SOFT159,  u 
otras  obras  de  referencia.  Los  programas  son  los  siguientes: 
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AMS  Ensamblador  para  8080. 

DDT  Programa  de  ayuda  para  la  depuration  de  programas  escritos  en 

ensamblador  8080. 
DUMP  Programa  para  el  volcado  de  ficheros  en  hexadecimal. 

ED  Editor  sencillo  de  texto. 

LOAD  Para  convertir  un  fichero  .HEX  generado  por  ASM  en  un  fichero 

.COM. 
MOVCPM       Para  cargar  CP/M  2.2  en  una  position  de  memoria  mas  baja  que 

la  estandar  (para  reducir  el  tamaflo  del  TPA). 
SUBMIT        Procesador  por  lotes  en  modo  de  consola. 
XSUB  Procesador  por  lotes  para  programas  transitorios. 

Estos  programas  estan  grabados  en  la  cara  4  y  solo  pueden  ser  utilizados  con  CP/M 
2.2.  Evite  confundirlos  con  otros  programas  de  CP/M  Plus  (caras  1,  2  y  3). 
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Capitulo  6 
Introduccion  a  LOGO 


En  esta  section  vamos  a  presentar  los  conceptos  basicos  de  LOGO,  apo- 
yados  en  ejemplos,  y  a  dar  la  relation  de  las  instrucciones  disponibles. 
No  pretende  ser  un  libro  de  texto  ni  una  guia  de  referenda  exhaustiva. 
Le  sugerimos  que  consulte  las  diversas  publicaciones  de  Amsoft  y  de 
otros  editores  sobre  este  tema. 

Temas  tratados: 

*  Concepto  de  LOGO 

*  Carga  y  ejecucion  de  Dr.  LOGO    ,  . 

*  Graficos  de  tortuga 

*  Escritura  de  procedimientds 

*  Edition  de  procedimientos 


iQue  es  LOGO? 

LOGO  es  un  lenguaje  de  programacion  que  esta  ganando  rapidamente  gran  populari- 

dad  por  lo  facil  que  es  de  aprender  y  de  usar. 

Es  el  lenguaje  ideal  para  aprender  las  tecnicas  de  programacion,  cualquiera  que  sea  su 

experiencia. 

Los  programas  de  LOGO  se  construyen  por  bloques  a  base  de  procedimientos.  El  pro- 

pio  Dr.  LOGO  es  una  coleccion  de  procedimientos,  denominados  primitivas,  que  el 

programador  combina  para  formar  sus  programas. 

Durante  la  decada  de  los  70,  un  grupo  de  informaticos  y  educadores,  dirigidos  por  Sey- 
mour Papert,  desarrollo  el  lenguaje  LOGO,  con  sus  graficos  de  tortuga,  como  medio 
de  aprendizaje  de  la  informatica  destinado  a  niflos  muy  pequeflos. 

Incluyeron  la  tortuga  para  que  los  j6venes  estudiantes  tuvieran,  como  dice  Papert,  'un 
objeto  con  el  que  pensar,  una  herramienta  que  les  ayudara  a  aprender  de  forma 
innovadora' . 

La  tortuga,  un  dibujo  con  forma  de  punta  de  flecha,  puede  ser  movida  por  la  pantalla 
y  controlada  con  6rdenes  muy  sencillas. 
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Dr.  LOGO 

Dr.  LOGO  es  una  bien  meditada  implementation  de  LOGO  que  ha  sido  especialmente 
adaptada  al  ordenador  AMSTRAD  para  hacerla  aun  mas  facil  de  programar.  Incluye 
amphaciones  del  lenguaje  con  las  que  se  puede  aprovechar  la  capacidad  sonora  del 
CPC6128;  la  edition  de  los  programas  se  facilita  al  poderse  utilizar  las  teclas  de  movi- 
miento  del  cursor. 

Carga  de  LOGO 

Para  cargar  Dr.  LOGO,  inserte  en  la  unidad  de  disco  una  copia  de  la  cara  1  del  juego 
de  discos  del  sistema  y  escriba 

!CPM 

Cuando  aparezca  el  mensaje  A>,  extraiga  el  disco  (cara  1)  e  inserte  una  copia  de  la 
cara  3  (Dr.  LOGO  y  HELP). 

Para  ejecutar  Dr.  LOGO  escriba 
SUBMIT    L0G03 

Al  cabo  de  unos  segundos  aparecera  el  mensaje  de  presentation,  seguido  del  inductor, 
que  en  LOGO  es  el  signo  de  interrogation  ?. 


Dr.  LOGO  para  CP/M  2.2 

Nota.  En  la  cara  4  del  juego  de  discos  del  sistema  hemos  incluido  otra  version  de 
Dr.  LOGO  por  si  usted  necesitara  utilizar  este  lenguaje  con  CP/M  2.2  (que  es  el 
disponible  en  los  modelos  CPC664  y  CPC464+DDI1).  En  general,  no  es  deseable 
utilizar  la  version  de  LOGO  de  la  cara  4  en  el  CPC6128.  La  version  recomendada, 
esto  es,  la  de  la  cara  3,  es  la  version  completa  del  Dr.  LOGO  de  Digital  Research.' 

Si  a  pesar  de  todo  quiere  cargar  la  version  de  CP/M  2.2,  inserte  en  la  unidad  una 
copia  de  la  cara  4  y  escriba 

!CPM 

Cuando  aparezca  el  mensaje  A>,  escriba 
SUBMIT    L0G02 

Al  cabo  de  unos  segundos  aparecera  el  mensaje  de  presentation,  seguido  del  men- 
saje inductor,  ?. 
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Primeros  pasos 

El  mensaje  ?  indica  que  Dr.  LOGO  esta  esperando  que  usted  escriba  algo  en  el  teclado. 
Escriba  (en  minusculas)  lo  siguiente: 

-fd    60 

y  vera  como  aparece  la  tortuga  y  como  se  mueve  hacia  delante  60  unidades,  dibujando 
al  mismo  tiempo.  La  pantalla  se  ha  borrado  y  ha  reservado  una  zona  amplia  para  los 
graficos  y  una  mas  pequefla  para  el  texto,  con  el  signo  ?  cerca  del  borde  inferior  de 
la  pantalla. 

Dr.  LOGO  decide  en  ocasiones  redistribuir  la  pantalla  para  asignar  mayor  superficie 
a  los  graficos  o  al  texto,  segiin  convenga. 

Escriba: 

rt   90 

y  la  tortuga  girara  90  grados  hacia  la  derecha. 
Escriba  ahora: 

■fd    60 

y  vera  como  la  tortuga  dibuja  otra  recta  de  60  unidades  de  longitud  perpendicular  a 
la  primera. 

Experimente  con  estas  sencillas  instrucciones,  fd  (de  forward,  adelante),  bk  (de  back- 
ward, atras),  rt  (de  right,  derecha)  y  It  (de  left,  izquierda),  y  observe  la  pantalla. 


Procedimientos  en  Dr.  LOGO 

Un  procedimiento  es  una  lista  de  instrucciones  que  explica  a  Dr.  LOGO  como  realizar 
cierta  tarea. 

Los  procedimientos  que  usted  escriba  iran  ampliando  la  lista  de  los  incorporados  a  Dr. 
LOGO,  que  son  las  denominadas  primitivas. 

fd,   bk,   rt  y  It  son  primitivas  incorporadas  que  se  pueden  incluir  en  nuevos 
procedimientos. 

Otra  primitiva  util  es  cs,  que  borra  la  pantalla  y  envia  la  tortuga  a  su  situation  (posi- 
tion y  orientation)  inicial. 
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Un  procedimiento  sencillo 

Facilmente  se  comprende  que  si  repetimos  cuatro  veces  las  instrucciones 

■fd    60   rt    90 

obtendremos  un  cuadrado  de  60  unidades  de  lado. 
El  mismo  efecto  se  consigue  escribiendo 

repeat    4    C-fd    60   rt   90] 
(repeat =repetir).  Borre  la  pantalla,  teclee  esta  instrucci6n  y  observe  que  ocurre. 

Podemos  asignar  esa  formula  a  un  nuevo  procedimiento,  que  denominaremos  cuadra- 
do. Escriba  lo  siguiente: 

to   cuadrado 

repeat  4  C-fd  60  rt  90] 

end 

A  partir  de  ahora,  Dr.  LOGO  entendera  cuadrado  como  si  fuera  una  primitiva;  cada 
vez  que  encuentre  esa  palabra,  dibujara  un  cuadrado.  Al  procedimiento  le  podrfamos 
haber  dado  cualquier  otro  nombre,  pero  este  nos  recuerda  cual  es  la  tarea  que  el  proce- 
dimiento realiza. 

Dr.  LOGO  permite  que  se  teclee  una  serie  de  instrucciones  seguidas,  en  una  misma  li- 
nea.  Asi, 

cuadrado   rt    45   cuadrado 
dibuja  dos  cuadrados  intercalando  un  giro  de  45  grados  entre  ellos. 

Procedimientos  con  parametros 

Un  procedimiento  como  el  que  acabamos  de  definir  no  nos  serviria  de  mucho  si  no  pu- 
dieramos  decirle  de  que  tamaflo  queremos  que  sea  el  cuadrado.  Para  ello  podemos  defi- 
nir nuestro  procedimiento  de  la  siguiente  manera: 

to  cualquiercuadrado  : lado 
repeat  4  C-fd  :  lado  rt  90] 
end 

con  lo  que  hemos  introducido  la  idea  de  variable,  llamada,  en  este  caso,  :lado. 

Observe  que  el  nombre  va  precedido  del  signo  de  dos  puntos,  lo  que  indica  a  Dr.  LOGO 
que  :lado  es  una  variable,  no  una  orden. 
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Cuando  utilicemos  este  procedimiento,  tendremos  que  suministrarle  un  valor  de  entra- 
da.  Por  ejemplo,  cualquiercuadrado  150  dibujara  un  cuadrado  de  150  unidades  de  lado. 

Enlacemos  ahora  dos  procedimientos: 

cS  cualfluiercuadrado    100   rt    45   cualquiercuadrado    150 

La  tortuga  ha  dibujado  los  dos  cuadrados,  girando  el  segundo  45  grados  con  respecto 
al  primero. 
_  Observe  que  Dr.  LOGO  escribe  el  signo  de  admiraci6n  !  para  indicar  que  una  linea  es 
cdntinuacidn  de  la  anterior. 

Utilization  de  variables  para  recordar  valores 

Dr.  LOGO  utiliza  las  variables,  no  s61o  para  recordar  valores,  sino  tambien  para  sumi- 
nistrar  valores  de  entrada  a  los  procedimientos. 

Empecemos  por  definir  un  nuevo  procedimiento: 

to  triangulo 

repeat  3  lid    : lado  rt  1201 

end 

Para  probarlo  podemos  escribir: 

make  "lado  100 
triangulo 

(make=hacer). 

Si  queremos  averiguar  qu£  valor  tiene  asignado  actualmente  la  variable  :lado,  basta 

con  que  tecleemos  :lado  a  la  derecha  de  ?  y  Dr.  LOGO  escribira  su  valor. 

Tambi6n  podemos  utilizar  la  variable  :lado  en  un  procedimiento  distinto.  Observe  en 
el  siguiente  procedimiento  c6mo  vamos  incrementando  el  valor  de  :lado  a  cada  paso 
para  que  el  dibujo  vaya  siendo  cada  vez  mayor: 

to  dibujo 

triangulo  It  60  triangulo  rt  60 

make  "lado  : lado+4 

dibujo 

end 

make  "lado  10 

cs  dibujo 

Pulse  [ESC]  cuando  quiera  detener  el  programa. 


Introducci6n  a  LOGO  6/5 


Edition  de  programas  y  procedimientos 

Dr.  LOGO  permite  corregir  los  errores  de  mecanografia  y  modificar  los  procedimien- 
tos definidos  previamente.  Las  teclas  de  edicidn  son  los  siguientes: 

Las  teclas  del  cursor,  Q]  [T]  0  0,  que  mueven  el  cursor  caracter  o  linea  a  linea. 

Las  teclas  del  cursor,  EEBQ  combinadas  con  [CONTROL],  llevan  el  cursor  al 
principio  o  al  final  de  la  pagina,  o  a  la  izquierda  o  a  la  derecha  de  la  linea. 

fCLR]  borra  el  caracter  que  esta  en  la  posicion  del  cursor;  [<-BORR]  borra  el  caracter 
que  esta  a  la  izquierda  del  cursor. 

[RETURN]  indica  a  Dr.  LOGO  que  se  ha  terminado  de  editar  una  linea  de  ordenes; 
cuando  se  esta  editando  un  procedimiento,  intercala  una  linea  en  bianco. 

[ESC]  abandona  la  edicidn. 

[COPIA]  indica  a  Dr.  LOGO  que  ha  terminado  la  edicidn  del  procedimiento. 

Cuando  este  introduciendo  ordenes  o  procedimientos  nuevos,  corrija  el  texto  de  la  linea 
actual  con  las  teclas  descritas.  Todos  los  caracteres  que  teclee,  a  exception  de  los  men- 
cionados,  seran  insertados  en  la  posicion  del  cursor. 

Para  editar  un  procedimiento  definido  previamente,  utilice  la  orden  ed.  Dr.  LOGO  es- 
cribe la  version  antigua  del  procedimiento  y  permite  que  se  utilicen  los  recursos  descri- 
tos  para  mover  el  cursor  por  la  pantalla  y  modificar  lo  que  se  desee. 

Modifique  el  procedimiento  dibujo  tecleando 
ed    "dibujo 

Practique  con  las  diferentes  teclas  de  edition.  Cuando  haya  terminado,  pulse  [ESC]; 
Dr.  LOGO  abandonara  lo  que  hay  en  la  pantalla  y  conservara  la  version  anterior  del 
procedimiento. 

Teclee  otra  vez  ed  "dibujo,  ponga  un  8  en  lugar  del  4,  pulse  [COPY]  para  terminar 
la  edicion  y  vuelva  a  ejecutar  el  procedimiento  para  obsevar  el  efecto  de  la  modifica- 
tion. No  olvide  asignar  un  valor  inicial  a  :lado. 


Sugerencias  para  el  trabajo  con  Dr.  LOGO 

La  memoria  utilizada  por  Dr.  LOGO  esta  dividida  en  nodos.  Para  averiguar  cuantos 
quedan  libres  escriba: 

nodes 
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En  ocasiones,  cuando  Dr.  LOGO  ha  utilizado  casi  todos  los  nodos  disponibles,  dedica 
unos  instantes  a  reorganizar  la  memoria,  durante  los  cuales  se  puede  observar  como 
se  para  la  tortuga.  El  usuario  puede  pedir  a  Dr.  LOGO  que  reorganice  la  memoria  es- 
cribiendo  la  orden 

recycle 

Esto  generalmente  permite  continuar  despues  de  que  Dr.  LOGO  se  haya  quejado  de 
que  no  le  quedan  mas  nodos  libres. 

Si  piensa  grabar  sus  procedimientos  en  disco,  asegiirese  antes  de  que  en  el  disco  haya 
suficiente  espacio  libre.  Puede  para  ello  utilizar  la  orden  CAT  de  AMSDOS  (vease  la 
parte  7  del  'Curso  de  introducci6n'). 

Eche  un  vistazo  a  las  paginas  siguientes  y  pruebe  alguno  de  los  ejemplos;  no  espere  en- 
tenderlo  todo  al  primer  intento.  A  medida  que  vaya  familiarizandose  con  Dr.  LOGO 
ira  siendo  capaz  de  utilizar  nuevas  instrucciones. 

Cuando  desee  concluir  su  sesion  de  trabajo  con  Dr.  LOGO  escriba: 
bye 


Lista  de  las  primitivas  de  Dr.  LOGO 

En  esta  section  damos  la  relation  de  las  primitivas  de  Dr.  LOGO,  agrupadas  en  clases 
y  ordenadas  alfabeticamente  dentro  de  cada  grupo.  Para  la  mayor  parte  de  ellas  se  in- 
cluyen  ejemplos  de  aplicacion. 


Nota 


Las  primitivas  que  en  esta  lista  aparecen  marcadas  con  un  asterisco  (*)  no  estan 
disponibles  en  la  version  de  Dr.  LOGO  para  CP/M  2.2  (cara  4  del  juego  de  discos 
del  sistema).  Por  consiguiente,  los  programas  que  utilicen  esas  primitivas  no  seran 
ejecutables  en  el  CPC664  ni  en  el  CPC464+DDI1 ,  en  los  cuales  solo  se  puede  utili- 
zar CP/M  2.2  (no  CP/M  Plus). 


Proceso  de  palabras  y  listas 

(Observe  que  en  los  ejemplos  hemos  incluido  los  signos  ?  y  >  donde  corresponded 
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ascu 

Da  el  codigo  ASCII  del  primer  caracter  de  la  palabra  de  entrada. 

?ascii  "G 
71 

?ascii  "g 
103 


bf 

{but  first,  todos  menos  el  primero).  Da  como  salida  todos  los  caracteres  de  la  entrada, 
salvo  el  primero. 

?b*    "trama 
ram  a 

?b*    CI    2   3] 
C2   3] 

bl 

(but  last,  todos  menos  el  ultimo).  Da  como  salida  todos  los  caracteres  de  la  entrada, 
salvo  el  ultimo. 

?bl  "tramas 

trama 

?bl  tl  2  3  43 

CI  2  3] 

char 

Da  el  caracter  cuyo  c6digo  ASCII  es  el  numero  de  entrada. 

?char   33 
S 


count 

(contar).  Da  el  numero  de  elementos  de  que  consta  el  objeto  de  entrada. 

?count    "dos 

3 

?count    C0   12   3] 

4 
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emptyp 

{empty  property,  propiedad  de  vacio).  Da  como  salida  TRUE  (verdadero)  si  la  entrada 
es  una  palabra  vacia  o  una  lista  vacia,  y  FALSE  (falso)  en  caso  contrario. 

?emptyp  " 
TRUE 

?emptyp  M 
TRUE 

?emptyp  1x1 
FALSE 

?make  "x  U 
emptyp  :x 
TRUE 


first 

(primero).  Da  como  salida  el  primer  elemento  del  objeto  de  entrada  (sin  tener  en  cuenta 
los  corchetes). 

?-first    "kilo 

k 

?-first    [1    2   3] 

1 


fput 

(Jirsput,  poner  el  primero).  Da  como  salida  un  objeto  formado  poniendo  el  primer  ob- 
jeto de  entrada  como  primer  elemento  del  segundo  objeto  de  entrada. 

?-fput    "t    "raraa 

trama 

?-fput    1    [2   3] 

[12    3] 


item 

(elemento).  Da  como  salida  el  elemento  especificado  del  objeto  de  entrada. 

?item  4  "grande 
n 
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last  (*) 

(ultimo).  Da  como  salida  el  ultimo  elemento  del  objeto  de  entrada  (cfr.  first). 


?last    "pez 

z 


lc  (*) 

(lower  case,  miniisculas).  Da  como  salida  la  palabra  de  entrada,  pero  convirtiendo  las 
mayusculas  a  miniisculas.  (Vease  tambien  uc.) 

?lc    "NortE 
norte 


list 

Da  como  salida  una  lista  consistente  en  los  objetos  de  entrada;  conserva  los  corchetes 
externos  de  la  lista  (comparese  con  se). 

?<list    12    3   4) 

CI    2    3    4] 

?list    "garcia    [javier] 

[garcia    [  Javier-]] 

?(li5t) 

[] 


listp  (*) 

(list property,  propiedad  de  lista).  Da  como  salida  TRUE  (verdadero)  si  la  entrada  es 
una  lista,  y  FALSE  (falso)  en  caso  contrario. 

?listp  "madre 

FALSE 

?listp  Cpadre  hermano  hermana] 

TRUE 
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lput  (*) 

(last put,  poner  el  ultimo.)  Da  como  salida  un  objeto  formado  poniendo  el  primer  obje- 
to  de  entrada  como  ultimo  elemento  del  segundo  objeto  de  entrada. 

?lput  "r-  "recto 

rector 

?lput  "r  [recto] 

[recto    r] 


memberp  (*) 

(member property,  propiedad  de  pertenencia).  Da  como  salida  TRUE  (verdadero)  si  el 
primer  objeto  de  entrada  es  un  elemento  del  segundo  objeto  de  entrada,  y  FALSE  en 
caso  contrario. 

?memberp  "b  "palabra 

TRUE 

?memberp  "chocolate  [ [vai ni 1  la] [chocolate] [fresa] ] 

FALSE 

?memberp  [chocolate]  [ [vaini 1  la] [chocolate] [fresa] ] 

TRUE 


numberp 

(number property,  propiedad  de  mimero).  Da  como  salida  TRUE  (verdadero)  si  el  ob- 
jeto de  entrada  es  un  numero,  y  FALSE  (falso)  en  caso  contrario. 

?numberp  374.926 

TRUE 

?numberp  "siete 

FALSE 

?numberp    -first    [2    4    6   8] 

TRUE 


piece  (*) 

Da  como  salida  un  objeto  consistente  en  los  elementos  especificados  del  objeto  de 
entrada. 

?piece  2  5  "procedimiento 

roce 

?piece  3  5  [Tito  Juan  Miguel  Margarita  Paco] 

[Miguel  Margarita  Paco] 
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se 


{sentence,  frase).  Da  como  salida  una  lista  consistente  en  todos  los  objetos  de  entrada; 
elimina  los  corchetes  externos  de  la  lista  (comparese  con  list). 


?make  " 1 ista_i nstrucciones  rl 

repeat  4  [-fd  50  rt  90] 

?run  (se  "cs  : lista  instrucc iones  "ht) 


El  signo  de  subrayar  que  figura  entre  lista  e  instrucciones  se  obtiene  con  [SHIFT10. 


shuffle  (*) 

(barajar).  Da  como  salida  una  lista  que  consta  de  los  mismos  elementos  que  la  lista  de 
entrada,  pero  dispuestos  en  orden  aleatorio. 

?shu-f-fle  [abed] 
Cc  b  d  a] 


uc(*) 

{upper  case,  mayiisculas).  Da  como  salida  la  palabra  de  entrada,  pero  convirtiendo  las 
minusculas  a  mayiisculas.  (Vease  tambien  Ic.) 

?uc  "Letras 
LETRAS 


where  (*) 

(donde).  Da  como  salida  el  numero  calculado  en  la  expresi6n  memberp  mas  reciente 
que  haya  dado  resultado  TRUE. 

?memberp  "r  "Amstrad 

TRUE 

?show  where 

5 


word 

(palabra).  Da  una  palabra  formada  con  las  palabras  de  entrada. 

?word  "nueva  "mente 

nuevaraente 
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wordp 

Da  como  salida  TRUE  (verdadero)  si  el  objeto  de  entrada  es  una  palabra  o  un  niimero. 

?wordp    "hoi a 
TRUE 

?wordp  t  3 
FALSE 

Operaciones  aritmeticas 

arctan  (*) 

Da  como  salida  el  arco  (en  grados)  cuya  tangente  es  el  niimero  de  entrada. 

?arctan  0 
0 

?arctan    1 
45 

COS 

Da  como  salida  el  coseno  del  angulo  de  entrada  (considerado  en  grados). 

?cos   60 
0.5 

int 

Da  la  parte  entera  del  niimero  de  entrada. 

?int    4/3 
1 

quotient  (*) 

(cociente).  Da  el  cociente  de  la  division  entera  de  los  dos  niimeros  de  entrada. 

?quotient  14  4 

3 

?14/4 

3.5 

Introduccidn  a  LOGO  6/13 


random 

Da  un  entero  aleatorio  no  negativo  menor  que  el  niimero  de  entrada. 

?random   20 

7 


remainder  (*) 

(resto).  Da  el  resto  de  la  division  entera  de  los  dos  numeros  de  entrada,  (el  primero  divi- 
dido  por  el  segundo). 

?remainder    7   3 

1 

?remainder   8   4 

0 


rerandom  (*) 

Hace  que  una  expresion  random  ulterior  reproduzca  la  misma  sucesion  aleatoria 
(char  9  es  un  tabulador  horizontal  para  espacios.) 

?repeat  10  [(type  random  10  char  9)] 

375320426 
?repeat    10    [(type   random    10   char    9)] 

9  9  10  6  13  5  1 

?rerandom 
?repeat    10    [(type    random    10   char    9)] 

290316237 
?rerandom 

?repeat  10  [(type  random  10  char  9)] 

290316237 


round  (*) 

(redondear).  Da  como  salida  el  niimero  de  entrada  redondeado  al  entero  mas  proximo. 

?round  3.333333 

3 

?round  3.5 

4 
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sin 

Da  como  salida  el  seno  del  angulo  de  entrada  (considerado  en  grados). 

?sin   30 
0.5 

+ 

Da  la  suma  de  los  niimeros  de  entrada. 

?+    2    2 
4 

?2  +  2 
4 


Da  la  diferencia  de  los  dos  niimeros  de  entrada. 

?-    10   5 

5 

?10-5 

5 


Da  el  producto  de  los  niimeros  de  entrada. 

?*   4   6 
24 

?4*6 
24 


/ 

Da  el  cociente  de  los  dos  niimeros  de  entrada. 

?/    25   5 

5 
?25/5 

5 
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Operaciones  logicas 


and 

Da  como  salida  TRUE  (verdadero)  si  el  valor  I6gico  de  todas  las  expresiones  de  entrada 
es  'verdadero',  y  FALSE  (falso)  en  cualquier  otro  caso. 

?and    (3<4)     (7>4) 
TRUE 


not 

Da  como  salida  TRUE  si  la  expresi6n  de  entrada  es  'falsa'. 

Da  como  salida  FALSE  si  la  expresion  de  entrada  es  'verdadera'. 

?not  (3=4) 

TRUE 

?not  (3=3) 

FALSE 


or 

Da  como  salida  FALSE  (falso)  si  todas  las  expresiones  de  entrada  son  'falsas',  y  TRUE 
en  cualquier  otro  caso. 

?or  "TRUE  "FALSE 

TRUE 

?or  (3=4)  (1=2) 

FALSE 


Da  como  salida  TRUE  (verdadero)  si  los  dos  objetos  de  entrada  son  iguales,  y  FALSE 
en  caso  contrario. 

?=  "LOGO  "LOGO 

TRUE 

?1=2 

FALSE 
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_        > 


Da  como  salida  TRUE  (verdadero)  si  la  primera  palabra  de  entrada  es  mayor  que  la 
segunda,  y  FALSE  en  caso  contrario. 

?>19  20 
FALSE 
?20>19 
TRUE 


Da  como  salida  TRUE  (verdadero)  si  la  primera  palabra  de  entrada  es  menor  que  la 
segunda,  y  FALSE  en  caso  contrario. 

?<  27  13 
FALSE 
?13<27 
TRUE 


Variables 


local 


Hace  que  la  variable  o  variables  de  entrada  sean  accesibles  solamente  al  procedimiento 
actual  y  a  los  procedimientos  por  el  invocados. 

Xlocal    "x    "y    Dz) 


make 

(hacer).  Asigna  a  la  variable  de  entrada  el  valor  del  objeto  de  entrada. 

?maUe    "lado   50 

?:lado 

50 


namep  (*) 

(name property,  propiedad  de  nombre).  Da  como  salida  TRUE  (verdadero)  si  la  pala- 
bra de  entrada  es  el  nombre  de  una  variable,  y  FALSE  en  caso  contrario. 
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?make  "sabor  "chocolate 

?:sabor 

chocolate 

?namep  "sabDr 

TRUE 

?namep    "chocolate 

FALSE 


thing  (*) 

(cosa).  Da  el  valor  de  la  variable  citada. 

?make  "ordenador  "amstrad 
?thing  "ordenador 
amstrad 

Procedimientos 

define  (*) 

(definir).  Toma  como  definition  del  procedimiento  especificado  la  lista  de  entrada 

?de-fine  "cuadrado  [[J  [repeat  4  [-fd  50  rt  90111 

?po  "cuadrado 

to  cuadrado 

repeat  4  [  -fd  50  rt  90  1 

end 

?text  "cuadrado 

111    [repeat  4  [-fd  50  rt  90111 


end 

Indica  el  final  de  la  definition  de  un  procedimiento;  la  palabra  end  debe  figurar  sola 
al  principio  de  la  ultima  lfnea. 

?to  cuadrado 

>repeat  4  [-fd  50  rt  90] 

>end 

cuadrado  de-fined 

?cuadrado 
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po 

{print  out,  listar).  Da  el  listado  de  la  definition  de  los  procedimientos  o  variables 
especificados. 

?po  "cuadrado 

to  cuadrado 

repeat  4  [-fd  50  rt  90] 

end 

?make  "x  3 

?po  "x 

x  is  3 


—    pots 


(print  out  titles,  listar  tftulos).  Da  la  lista  de  los  nombres  y  titulos  de  todos  los  procedi- 
mientos que  hay  en  el  espacio  de  trabajo. 

?pots 


text  (*) 

Da  la  lista  de  la  definition  del  procedimiento  especificado. 

?to  estrella  ;estrella  de  cinco  puntas 

>repeat  5  [-fd  30  rt  144  -fd  30  It  72] 

>end 

estrella  de-fined 

?text  "estrella 

[[]  [repeat  5  [-fd  30  rt  144  -fd  30  It  72]]] 


to 


Seflala  el  initio  de  la  definition  de  un  procedimiento. 

?to  cuadrado 

>repeat  4  [-fd  50  rt  90] 

>end 

cuadrado  de-fined 
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Edition 


ed 

(edit,  editar,  corregir).  Carga  los  procedimientos  o  variables  especificados  en  el  tampdn 
del  editor  de  pantalla. 

?ed    "cuadrado 


edall  (*) 

(edit  all,  editar  todos).  Carga  todas  las  variables  y  procedimientos  en  el  tampon  del  edi- 
tor de  pantalla  y  entra  en  el  modo  de  edicion. 

?edall 


edf  (*) 

(edit  file,  editar  fichero).  Lee  en  el  disco  el  fichero  especificado  y  lo  carga  en  el  editor 
de  pantalla.  Si  no  existe  ese  fichero,  lo  crea  y  entra  en  el  modo  de  edicion  con  el  tampon 
vacio. 

?ed*    "estrella 


Funciones  de  la  impresora 


copyon  (*) 

(copia  activada).  Activa  el  modo  'eco',  en  el  que  todos  los  caracteres  que  aparecen  en 
la  pantalla  son  reproducidos  en  la  impresora. 

?copyon 


copyoff  (*) 

(copia  desactivada).  Desactiva  el  modo  'eco'. 
?copyo-f -f 
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Pantalla  de  texto 


-        ct 


(clear  text,  borrar  texto).  Borra  la  ventana  en  la  que  esta  actualmente  el  cursor;  lleva 
el  cursor  al  extremo  superior  izquierdo  de  la  ventana. 


?ct 


~>         cursor  (*) 


Da  como  salida  una  lista  de  coordenadas  que  consiste  en  los  numeros  de  columna  y 
fila  de  la  posici6n  actual  del  cursor  en  la  ventana  de  texto. 

?ct 

?cursor 

[0  1] 

?(type  [La  posicion  del  cursor  es\  ])  show  cursor 

La  posicion  del  cursor  es  [26  4] 


(print,  escribir).  Escribe  en  la  pantalla  de  texto  los  objetos  de  entrada;  suprime  los  cor- 
chetes  externos  de  las  listas;  efectua  un  retorno  del  carro  despues  de  escribir  el  ultimo 
objeto.  (Comparese  con  show  y  type.) 

?pr    [a  b  c] 
a  b  c 


setcursor  (*) 

Sitiia  el  cursor  en  la  posicion  especificada  por  la  lista  de  entrada,  que  se  interpreta  co- 
mo lista  de  coordenadas  de  texto. 

?ct 

?to  imager) 

>make  "x  random  20 

>make  "y  random  12 

>setcursor  list  :x  :y  pr  "* 

>end 

?imagen 
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setsplit 

Especifica  el  mimero  de  lfneas  de  texto  que  debe  tener  la  pantalla  mixta.  (Vease  ss.) 
?setsplit    10 


show 

(mostrar).  Escribe  en  la  pantalla  de  texto  el  objeto  de  entrada;  mantiene  los  corchetes 
externos  de  las  listas;  efectiia  un  retorno  del  carro.  (Comparese  con  pr  y  type.) 

?show    Ca   b   c] 
[a  b   c] 


ts 

(text  screen,  pantalla  de  texto).  Asigna  la  pantalla  completa  como  pantalla  de  texto. 
?ts 


type 

(mecanografiar).  Escribe  en  la  pantalla  los  objetos  de  entrada:  suprime  los  corchetes 
externos  de  las  listas;  no  efectiia  un  retorno  del  carro  despues  de  escribir  el  ultimo  obje- 
to. (Comparese  con  pr  y  show.) 

?type    [a   b   c] 
a   b   c 


Pantalla  grafica 


Como  puede  observar,  la  pantalla  esta  en  modo  1,  con  cuatro  colores  posibles;  el  siste- 
ma  de  coordenadas  es  igual  al  de  BASIC.  Las  coordenadas  se  redondean  al  mimero 
par  mas  proximo  correspondiente  a  un  punto  de  la  pantalla.  Los  colores  rojo,  verde 
y  azul  se  pueden  graduar  con  los  mimeros  0,  1  y  2. 
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clean 

(limpiar).  Borra  la  pantalla  grafica  sin  afectar  a  la  tortuga. 

?-fd   50 

?clean 


cs 

(clear  screen,  borrar  pantalla).  Borra  la  pantalla  grafica  y  restablece  la  situaci6n  inicial 
de  la  tortuga:  position  en  el  punto  [0,0]  y  rumbo  0  grados  (norte),  pluma  abajo. 

?rt   90   -fd   50 
?cs 


dot 

(punto).  Dibuja  un  punto  en  la  posici6n  especificada  por  la  lista  de  coordendas  con 
el  color  de  pluma  actual. 

?dot    [50   10] 


dote  (*) 

(dot  colour,  color  del  punto).  Da  como  salida  el  niimero  del  color  que  hay  en  el  punto 
de  coordenadas  especificadas  por  la  lista  de  entrada.  Si  el  punto  esta  fuera  de  la  panta- 
lla, da  -1. 

?cs 

?setpc  1 

?dot  -50  50 

?setpc  2 

?dot  50  50 

?setpc  3 

?dot  50  -50 

?dotc  50  50 

2 

?dotc  -50  -50 

0 

?dotc  1000  3000 

-1 


Introducci6n  a  LOGO  6/23 


fence 

(valla).  Establece  un  limite  que  confina  la  posici6n  de  la  tortuga  a  la  pantalla  grafica 
visible.  Ese  limite  se  suprime  con  window. 

?-fence 

?-fd   300 

Turtle  out  o-f  bounds 


fill  (*)  (no  implementada  en  la  version  actual  de  CP/M  Plus) 

(rellenar).  Rellena  un  area  con  el  color  actual  de  la  pluma;  para  ello  cambia  el  color 
del  punto  que  esta  bajo  la  tortuga  (y  todos  los  puntos  contiguos  que  sean  del  mismo 
color)  utilizando  el  estado  actual  de  la  pluma. 

?make  "x  5 

?cs 

?st 

?pd 

?repeat  30  [-fd  :x  rt  90  make  "x  :x  +  53 

?-fd  20  rt  90 

?-fd  10 

?pu 

?home 

?bk  2 

?pd 

?setpc  2 

?-f  ill 


fs 

{full  screen,  pantalla  completa).  Asigna  la  pantalla  entera  a  los  graficos. 
?-fs 

pal 

(palette,  paleta).  Escribe  la  listas  de  los  mimeros  que  representan  las  proporciones  de 
los  colores  rojo,  verde  y  azul  asignadas  a  la  pluma  especificada. 

?pal    2 
[0  2   2] 
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—  setbg  (*) 

(set  background,  definir  fondo).  Asigna  al  color  del  fondo  de  la  pantalla  grafica  el  nu- 

—  mero  especificado. 

~~  ?s-f 

__  [0   SS   5   FENCE    1] 

—  (Esto  muestra  que  el  color  del  fondo  es  cero.) 

""        ?pal  0 
_         [0  0  13 
?setbg  2 

—  ?s-f 

[2    SS   5   FENCE    11 


setpal 

(set  palette,  definir  paleta).  Asigna  una  combination  de  colores  a  la  paleta  utilizada  poi 
la  pluma  especificada.  La  lista  representa  las  proporciones  de  rojo,  verde  y  azul. 

?setpal  3[1  1  21 
?pal  3 
[1  1  21 


setscrunch  (*) 

(set  scrunch,  definir  relacion  de  escalas;  scrunch  significa  "estrujar"  y  hace  referencia 
a  la  deformaci6n  que  se  produce  en  las  imagenes  de  la  pantalla  cuando  las  escalas  verti- 
cal y  horizontal  son  distintas).  Establece  la  relacion  entre  las  escalas  vertical  y  horizon- 
tal en  la  pantalla  grafica. 

?s-f 

[0    SS    5    FENCE    13 

?to  circun-f  erenc  ia 

>repeat  360  [-fd  1  rt  13 

>end 

circun-f erencia  de-fined 

?setscrunch  2 

?5-f 

[0  SS  5  FENCE  23 

?c  ircun-f  erencia 

?setscrunch  2.5 

?c  ircun-f  erencia 
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sf 

{screen  facts,  datos  de  pant  alia).  Escribe  en  la  pantalla  toda  la  informaci6n  relativa  a 
la  pantalla  grafica.  El  formato  es:  [(color  de  fondo)  (estado  de  pantalla)  (lineas 
texto)  (estado  de  ventana)  (relaci6n  de  escalas)]. 

(color  de  fondo)  es  el  numero  de  pluma  para  el  fondo  (siempre  igual  a  0  en  CP/M  2.2). 

(estado  de  pantalla)  puede  ser  SS  (pantalla  mixta),  FS  (pantalla  completa  para  grafi- 
cos)  o  TS  (pantalla  completa  para  texto). 

(lineas  texto)  es  el  numero  de  lineas  reservadas  para  texto  en  la  pantalla  mixta. 

(estado  de  ventana)  indica  el  modo  WINDOW,  WRAP  o  FENCE. 

(relacion  de  escalas)  representa  la  relacion  entre  las  escalas  vertical  y  horizontal  de  la 
pantalla  grafica.  Su  valor  se  puede  modificar  con  setscrunch  (no  en  CP/M  2.2). 

?s-F 

10   SS   5   FENCE    2.51 


SS 

(split  screen,  pantalla  mixta).  Establece  una  ventana  para  texto  dentro  de  la  pantalla 
grafica. 

?ss 


window 

(ventana).  Permite  que  la  tortuga  se  saiga  de  los  limites  de  la  pantalla  grafica  visible 
despues  de  una  orden  wrap  o  fence. 

?-Fence  -fd  300 
Turtle  out  o-f  bounds 
?window 
?-fd  300 


wrap 

(superponer  borde  con  borde).  Hace  que  la  tortuga  aparezca  por  el  lado  opuesto  de 
la  pantalla  cuando  sobrepasa  algiin  borde. 

?cs  wrap 
?rt  5  -fd  1000 
?cs  window 
?rt  5  -fd  1000 
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Graficos  de  tortuga 


bk 

{back-ward,  atras).  Mueve  la  tortuga  el  numero  de  pasos  especificado  por  el  niimero 
de  entrada,  en  sentido  opuesto  al  seftalado  por  su  rumbo. 

?cs   -fd    150 
?bk   50 


fd 

{forward,  adelante).  Mueve  la  tortuga  el  numero  de  pasos  especificado  por  el  numero 
de  entrada,  en  el  sentido  seftalado  por  su  rumbo. 

?-fd   80 


home  (*) 

Lleva  la  tortuga  a  su  situaci6n  inicial:  posici6n  [0  0]  (centro  de  la  pantalla  grafica)  y 
rumbo  0  (norte). 

?-fd  100 
?rt  45 
?-fd  100 
?home 


ht 

{hide  turtle,  ocultar  tortuga).  Hace  la  tortuga  invisible,  con  lo  que  los  dibujos  son  me- 
nos  confusos  y  se  realizan  a  mayor  velocidad. 

?ht 

?cs   -fd   50 

?st 


It 

{left,  izquierda).  Gira  el  rumbo  de  la  tortuga  hacia  la  izquierda  el  numero  de  grados 
especificado  por  el  numero  de  entrada. 
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?lt    90 

pd 

(pen  down,  bajar  pluma).  Baja  la  pluma  de  la  tortuga  para  que  6sta  dibuje  al  moverse. 

?*d   20  pu   -fd   20 

?pd 

?*d   20 


pe 

(pen  erase,  pluma  de  borrar).  Cambia  el  color  de  la  pluma  de  la  tortuga  al  color  del 
fondo;  la  tortuga  borra  lo  que  encuentra  dibujado  en  su  camino. 

?*d  50 
?pe 

?bk  25 

?*d  50 

?pd  -fd   25 


pu 

(pen  up,  subir  pluma).  Sube  la  pluma  de  la  tortuga  para  que  6sta  no  dibuje  al  moverse. 

?*d   30 
?pu 

?*d   30 
?pd   -fd   30 


px 

(pen  exchange,  pluma  de  inversi6n).  Hace  que  la  tortuga  cambie  el  color  de  los  pixels 
que  encuentra  coloreados  en  su  camino  por  el  color  complementario  o  inverse 

?*d  20  pu  id   20 

?pd  setpc  3  -fd  20 

?px 

?bk  80 

?+d  80 

?pd  bk  100 
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(right,  derecha).  Gira  el  rumbo  de  la  tortuga  hacia  la  derecha  el  numero  de  grados  espe- 
cificado  por  el  numero  de  entrada. 

?rt   90 


seth 

(set  heading,  establecer  rumbo).  Orienta  la  tortuga  en  el  rumbo  absoluto  especificado 
por  el  numero  de  entrada  (en  grados).  Los  mimeros  positivos  la  hacen  girar  en  el  senti- 
do  de  las  agujas  del  reloj;  los  negativos,  en  el  sentido  contrario. 

?seth   90 


setpc 

(set  pen  colour,  establecer  color  de  pluma).  Asigna  a  la  tortuga  la  pluma  especificada 
por  el  numero  de  entrada. 

?setpc    1 


setpos 

(set  position,  establecer  posici6n).  Lleva  la  tortuga  al  punto  especificado  por  la  lista 
de  coordenadas  de  entrada. 

?setpos  [30  20] 


setx  (*) 

Lleva  la  tortuga  a  un  punto  cuya  coofdenada  X  es  la  especificada,  sin  modificar  la 
coordenada  Y.  (Vease  tambien  sety.) 

?setx  80 
?-fd  100 
?setx  -50 
?-fd  50 
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sety  (*) 

Lleva  la  tortuga  a  un  punto  cuya  coordenada  Y  es  la  especificada,  sin  modificar  la 
coordenada  X.  (Vease  tambien  setx.) 

?sety  90 
?+d  20 
?sety  -50 
?-fd  50 


St 

(show  turtle,  mostrar  tortuga).  Hace  la  tortuga  visible,  si  estaba  oculta. 

?ht 

?-fd   50 
?st 


tf 

(turtle  facts,  datos  de  tortuga).  Escribe  en  la  pantalla  la  information  relativa  a  la  tortu- 
ga. El  formato  es:  [<coor  x)  <coor  y)  <rumbo)  <estado  de  pluma)  <pluma  n) 
<  visible)]. 

<coor  x)  y  <coor  y)  son  las  coordenadas  de  la  posici6n  actual  de  la  tortuga. 
<rumbo)  es  la  orientation  actual  de  la  tortuga. 

<estado  de  pluma)  indica  PD  (pluma  bajada),  PE  (pluma  de  borrar),  PX  (pluma  de 
inversi6n)  o  PU  (pluma  subida). 

<pluma  n)  indica  el  numero  de  pluma  de  la  tortuga. 

<visible)  es  TRUE  (verdadero)  si  la  tortuga  es  visible. 

?setpos  C15  30] 

?rt  60 

?setpc  3 

?pe 

?ht 

?t-f 

CIS  30  60  PE  3  FALSE! 
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towards  (*) 

(hacia).  Da  como  salida  un  rumbo  tal  que,  si  la  tortuga  lo  tuviera,  "miraria"  hacia  la 
posicion  especificada  con  la  lista  de  coordenadas. 

?seth  towards  list  :x  : y 


Gestion  del  espacio  de  trabajo 

er 

(erase,  borrar).  Borra  del  espacio  de  trabajo  los  procedimientos  especificados. 
?er    "cuadrado 

erall  (*) 

(erase  all,  borra  todos).  Borra  del  espacio  de  trabajo  todos  los  procedimientos  y 
variables. 

?erall 

era 

(erase  name,  borrar  nombre).  Borra  del  espacio  de  trabajo  las  variables  especificadas. 

?make  " lado  [100] 

?make  "angulo  [451 

?: lado  : angulo 

[100] 

[45] 

?ern  [lado  angulo] 

?: lado 

lado  has  vo  value 

nodes 

Da  el  niimero  de  nodos  que  quedan  libres  en  el  espacio  de  trabajo. 
?nodes 
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noformat  (*) 

Elimina  del  espacio  de  trabajo  el  formato  de  los  procedimientos,  incluidos  los  comenta- 
rios,  con  el  fin  de  liberar  nodos. 

?to  cuadrado 
>pd 
>repeat  4 

>  L-fd  50  ;  esto  es  la 

>  rt  90]  ;  que  se  repite 
>pu 

>end 

cuadrado   de-fined 

?no-F  ormat 

?po  "cuadrado 

to  cuadrado 

pd 

repeat  4  Efd  50  rt  90] 

pu 

end 


poall  (*) 

Muestra  las  definiciones  de  todos  los  procedimientos  y  variables  del  espacio  de  trabajo. 
?poall 

pons  (*) 

Muestra  los  nombres  y  valores  de  todas  las  variables  globales  del  espacio  de  trabajo. 

?pons 

medio  es  40 
pequeno  es  20 
grande  es  80 

pops  (*) 

Muestra  los  nombres  y  definiciones  de  todos  los  procedimientos  del  espacio  de  trabajo. 
?pops 
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recycle 

Libera  el  mayor  niimero  posible  de  nodos  y  reorganiza  el  espacio  de  trabajo. 

?recycle 
?nodes 

Listas  de  propiedades 

glist 

{get  list,  obtener  lista).  Da  una  relaci6n  de  todos  los  objetos  del  espacio  de  trabajo  que 
tienen  la  propiedad  de  nombre  especificado  en  sus  respectivas  listas  de  propiedades. 

?glist    ".DEF 


gprop 

{get  property,  obtener  propiedad).  Da  el  valor  que  tiene  en  el  objeto  de  entrada  la  pro- 
piedad cuyo  nombre  se  especifica. 

?make  "estatura  "172 
?gprop  "estatura  ".APV 
172 


plist 

{property  list,  lista  de  propiedades).  Escribe  la  lista  de  propiedades  del  objeto  de 
entrada. 

?plist  "estatura 
[.APV  1723 


pprop 

{put  property,  poner  propiedad).  Pone  el  par  de  propiedades  de  entrada  en  la  lista  de 
propiedades  del  objeto  especificado. 

?pprop  "usted  ".APV  "lector 

?:usted 

lector 
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pps  (*) 

{property  pairs,  pares  de  propiedades).  Muestra  todos  los  pares  de  propiedades  no  es- 
tandar  de  todos  los  objetos  que  hay  en  el  espacio  de  trabajo. 

?pprop  "Sally  "extension  213 

?pps 

Sally's  extension  is  213 

?plist  "Sally 

[extension  213] 


remprop 

{remove  property,  retirar  propiedad).  Suprime  la  propiedad  especificada  de  la  lista  de 
propiedades  del  objeto  de  entrada. 

?remprop    "listed    " .  APV 


Ficheros  en  disco 


changef  (*) 

{change  file,  cambiar  fichero).  Cambia  el  nombre  de  un  fichero  en  el  directorio  de  un 
disco. 

?dir 

CCUADRADO  CIRCULO  ESTRELLA3 

?change+  "circun-f erencia  "circulo 

?dir 

CCUADRADO  CIRCUNFERENCIA  ESTRELLA3 


defaultd  (*) 

{default  drive,  unidad  implicita).  Da  el  nombre  de  la  unidad  de  disco  implicita. 

?de+aultd 
A: 
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dir 

(directory,  directorio).  Da  la  lista  de  todos  los  nombres  de  ficheros  creados  por  Dr. 
LOGO  que  se  encuentran  en  la  unidad  de  disco  implicita;  acepta  simbolos  comodin. 

?dir  "a:???????? 

(Consulte  la  parte  1  del  capitulo  'AMSDOS  y  CP/M',  donde  se  explica  como  utilizar 
los  simbolos  comodin;  Dr.  LOGO  no  acepta  el  * .) 


dirpic  (*) 

{picture,  imagen).  Da  la  lista  de  los  nombres  de  los  ficheros  que  contienen  imagenes 
de  pantalla  en  la  unidad  especificada  (o  en  la  implicita,  si  no  se  especifica  otra).  Acepta 
simbolos  comodin. 

?dirpic 

[JUEGO  CUADRADOS  CIUDAD  ESFERA_RELO J  3 


load 

Lee  el  fichero  especificado  y  lo  carga  en  el  espacio  de  trabajo. 

?load    "prueba 
?load    "b:dibujos 

loadpic  (*) 

Lee  el  fichero  de  imagen  especificado  y  forma  la  imagen  correspondiente  en  la  pantalla. 

? loadpic  "juego 
? loadpic  "b: juego 


save 

Graba  en  el  disco  el  contenido  del  espacio  de  trabajo,  con  el  nombre  de  fichero 
especificado. 

?save    "dibujos 
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Nota.  Antes  de  grabar,  inserte  un  disco  inicializado  en  el  que  quede  espacio  suficiente 
para  el  fichero  que  vaya  a  grabar.  No  grabe  nunca  nada  en  el  disco  maestro  (de 
hecho,  los  orificios  de  protection  de  los  discos  maestros  deben  estar  siempre 
cerrados). 

Si  esta  utilizando  la  versi6n  de  Dr.  LOGO  para  CP/M  2.2  (cara  4),  no  podra 
cambiar  el  disco  a  mitad  de  la  sesion  de  trabajo.  En  este  caso  es  aiin  mas  impor- 
tante  disponer  de  un  disco  de  trabajo  con  CP/M  2.2  y  Dr.  LOGO  en  el  que  haya 
abundante  espacio  libre  para  grabar  programas. 

savepic  (*) 

Graba  en  el  disco  information  completa  sobre  la  imagen  que  hay  en  la  pantalla,  con 
el  nombre  de  fichero  especificado. 

?savepic  "es-f era_reloj 
?savepic  "b:  es-f  era_reloj 


Nota.  Antes  de  grabar,  inserte  un  disco  inicializado  en  el  que  quede  espacio  suficiente 
para  el  fichero  que  vaya  a  grabar.  No  grabe  nunca  nada  en  el  disco  maestro  (de 
hecho,  los  orificios  de  protection  de  los  discos  maestros  deben  estar  siempre 
cerrados). 

Si  esta  utilizando  la  version  de  Dr.  LOGO  para  CP/M  2.2  (cara  4),  no  podra 
cambiar  el  disco  a  mitad  de  la  sesion  de  trabajo.  En  este  caso  es  aiin  mas  impor- 
tante  disponer  de  un  disco  de  trabajo  con  CP/M  2.2  y  Dr.  LOGO  en  el  que  haya 
abundante  espacio  libre  para  grabar  programas. 


setd  (*) 

(definir  unidad).  Establece  como  unidad  implicita  la  especificada. 

?defaultd 

A: 

?dir 

[CUADRADO  CIRCUNFERENCIA  ESTRELLA] 

?setd  b: 

?de-faultd 

B: 

?dir 

tTRIANGULO  CASA] 
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Teclado  y  joystick 


buttonp 

(button  pressed,  bot6n  pulsado).  Da  como  salida  el  valor  logico  TRUE  (verdadero)  si 
esta  pulsado  el  boton  del  joystick  cuyo  numero  se  especifica  (0  o  1). 

?to  disparo 

>label  "bucle 

>i-f  (buttonp  0)  [pr  t-fuego  el  0!33 

>i-f  (buttonp  1)  Ipr  t-fuego  el  1!]] 

>go  "bucle 

>end 

La  situation  de  la  empunadura  se  determina  con  paddle. 


keyp 

{key pressed,  tecla  pulsada).  Da  como  salida  el  valor  logico  TRUE  (verdadero)  si  se  ha 
tecleado  alguna  tecla  y  esta  en  espera  de  ser  leida. 

?to  tecla 

>i-f  keyp  [op  re]  lop  "  1 

>end 


paddle 

Determina  la  situation  del  joystick  0  o  el  1.  El  significado  de  los  valores  generados  es 
el  siguiente: 


Valor 

Significado 

255 

Inactivo 

0 

Arriba 

1 

Arriba  y  a  la  derecha 

2 

A  la  derecha 

3 

Abajo  y  a  la  izquierda 

4 

Abajo 

5 

Abajo  y  a  la  izquierda 

6 

A  la  izquierda 

7 

Arriba  y  a  la  izquierda 
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?paddle  0 
255 


Los  botones  de  disparo  se  comprueban  con  buttonp. 


rc 

(read  character,  leer  caracter).  Da  como  salida  el  primer  caracter  que  se  teclee  a 
continuacion. 

?make    "tec la   rc 


.  ahora  teclee  una  X  . . . 

?:tecla 
X 


(read  list,  leer  lista).  Da  como  salida  una  lista  que  consiste  en  la  lfnea  que  se  va  a  teclear 
a  continuacion.  La  entrada  tiene  que  terminar  con  un  retorno  del  carro. 


?make  " 1 ista_instrucciones  rl 
repeat  4  [fd  50  rt  90] 
?: 1 ista_instrucciones 
[repeat  4  [fd  50  rt  90]] 


rq 


(read  quote,  leer  literalmente).  Da  como  salida  una  palabra  que  consiste  en  la  lfnea  que 
se  va  a  teclear  a  continuaci6n.  La  entrada  tiene  que  terminar  con  un  retorno  del  carro. 


?make  "orden  rq 

repeat  3  C+d  60  rt  120] 

?: orden 

repeat  3  C+d  60  rt  120] 
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Sonido 


Las  ordenes  de  sonido  son  peculiares  de  la  implementation  para  AMSTRAD  de  Dr. 
LOGO;  son  similares  a  sus  analogos  en  BASIC. 

Consulte  la  parte  9  del  'Curso  de  introduction'. 


sound 

Envia  un  sonido  a  la  cola  de  sonidos.  El  formato  es:  [<situaci6n  de  canales)  <periodo 
de  tono>  < duration)  <volumen>  <envolvente  de  volumen)  <envolvente  de  tono) 
<ruido>].  Solamente  los  dos  primeros  parametros  son  obligatorios. 

?sound    [1    20  50] 


env 

Define  una  envolvente  de  volumen.  El  formato  es:  [<numero  de  la  envolvente)  <seccio- 
nes  de  envolvente)]. 

?env  [1  100  2  201 
?sound  [1  200  300  5  1] 


ent 

Define  una  envolvente  de  tono.  El  formato  es:  [<numero  de  la  envolvente)  <secciones 
de  envolvente)]. 

?ent  [1  100  2  20] 
?sound  [1  200  300  5  11] 
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release 

Libera  los  canales  de  sonido  que  han  sido  retenidos  en  una  orden  sound.  Los  canales 
que  se  liberan  son: 


Valor  de  entrada 

Canales  liberados 

0 

Ninguno 

1 

A 

2 

B 

3 

Ay  B 

4 

C 

5 

Ay  C 

6 

By  C 

7 

A,  By  C 

?release    1 


Control  de  ejecucion 


bye 

Da  por  terminada  la  actual  sesi6n  de  trabajo  con  Dr.  LOGO. 
?bye 

CO 

Reanuda  la  ejecuci6n  tras  una  pausa  provocada  por  [CONTROUZ,   pause  o 
ERRACT. 


go 

Ejecuta  la  linea  del  procedimiento  actual  que  esta  identificada  por  la  etiqueta  que  se 
menciona  como  entrada. 

>go    "bucle 
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if 

Ejecuta  una  de  dos  listas  de  instrucciones,  dependiendo  del  valor  16gico  de  la  expresi6n 
de  entrada;  las  instrucciones  deben  ser  listas  literales  entre  corchetes.  La  segunda  lista 
es  opcional. 

>i-f  (a>b)  Cpr  [a  es  mayor]] 
>[pr  Cb  es  mayor]] 


label 

Identifica  una  linea  para  que  pueda  ser  ejecutada  por  una  instruction  go. 
Mabel    "bucle 

op 

(output,  salida).  Convierte  el  objeto  de  entrada  en  la  salida  del  procedimiento  y  da  por 
terminada  la  ejecucion  de  este. 

?op    Eresultado] 

repeat 

Ejecuta  la  lista  de  instrucciones  el  niimero  de  veces  especificado. 
?repeat   4    C-fd   50   rt   90] 

run 

Ejecuta  la  lista  de  instrucciones  especificada. 

?make  "  1  ista_instrucciones  C-fd  40  rt  90] 
?run  : lista  instrucciones 


stop 

Detiene  la  ejecucion  del  procedimiento  actual  y  retorna  a  TOPLEVEL  (nivel  exterior, 
donde  aparece  el  signo  ?)  o  al  procedimiento  que  lo  invoc6. 

?stop 
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wait 

Introduce  en  la  ejecuci6n  del  procedimiento  una  pausa  de  duracion  especificada  (en 
unidades  de  0.022  segundos). 

?wait   200 


Gestion  de  excepciones/errores 

catch 

Intercepta  errores  y  situaciones  especiales  que  ocurran  durante  la  ejecucion  de  la  lista 
de  entrada. 

>catch  "error  C+  [  3  [33 
>pr  [aqui  estoy] 
aqui  estoy 


error 

Da  una  lista  cuyos  elementos  describen  el  error  mas  reciente. 

>catch  "error  [seguir. hasta. error ] 
>show  error 

notrace  (*) 

Desactiva  el  modo  'trace'  de  ejecuci6n  de  los  procedimientos.  (Vease  trace.) 
?notrace 

nowatch  (*) 

Desactiva  el  modo  'watch'  de  ejecucion  de  los  procedimientos.  (Vease  watch.) 
?nowatch 
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pause 

Suspende  la  ejecuci6n  del  procedimiento  actual  para  permitir  la  interacci6n  con  el  in- 
terprete  o  el  editor. 

>i-f    :  lado>5    [pause] 


throw 

Ejecuta  la  linea  identificada  por  el  nombre  de  entrada  de  una  expresion  catch  anterior. 
?throw    "TOPLEVEL 

trace  (*) 

Establece  un  modo  de  ejecuci6n  de  procedimientos  consistente  en  que  en  la  pantalla 
se  indica  que  procedimiento  esta  siendo  ejecutado  en  cada  momento. 

?trace 

watch  (*) 

Establece  un  modo  de  ejecucion  de  procedimientos  consistente  en  que  en  la  pantalla 
se  indica  que  instruction  va  a  ser  ejecutada  y  se  hace  una  pausa  para  que  el  usuario 
observe  o  modifique  la  evoluci6n  del  procedimiento. 

?watch 


Primitivas  del  sistema 

.contents 

Muestra  el  contenido  del  espacio  para  sfmbolos  de  Dr.  LOGO. 


.deposit 

Escribe  el  segundo  numero  de  entrada  en  la  position  absoluta  de  memoria  especificada 
por  el  primero. 
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.examine 

Muestra  el  contenido  de  la  posicidn  absoluta  de  memoria  especificada. 

•in  (*) 

Lee  el  valor  presente  en  la  puerta  especificada. 

.out  (*) 

Envia  el  valor  especificado  a  la  puerta  especificada. 


Variables  del  sistema 


ERRACT 

Si  tiene  el  valor  16gico  TRUE  (verdadero),  introduce  una  pausa  cuando  se  produce  un 
error  y  luego  retorna  a  TOPLEVEL. 


FALSE 

Valor  de  sistema.  (Falso.) 

REDEFP 

Si  tiene  el  valor  logico  TRUE  (verdadero),  permite  la  redefinition  de  primitivas. 

TOPLEVEL 

throw  "TOPLEVEL  provoca  la  salida  de  todos  los  procedimientos  pendientes  (volvien- 
do  al  nivel  exterior). 

TRUE 

Valor  de  sistema.  (Verdadero.) 
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Propiedades  del  sistema 

.APV 

Valor  de  propiedad  asociado;  es  el  valor  de  una  variable  global. 

.DEF 

Definici6n  de  un  procedimiento. 

.ENL  (*) 

Fin  de  una  linea  de  procedimiento  que  esta  partida  por  un  retorno  del  carro  o  por 
espacios. 

.EMT  (*) 

Principio  de  una  linea  de  procedimiento  que  esta  partida  por  un  retorno  del  carro  o 
por  espacios. 

•PRM 

Identifica  una  primitiva. 

.REM  (o  bien  ;)  (*) 
Observaciones  o  comentarios. 
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Capitulo  7 

Para  su  referenda 


Este  capitulo  contiene  la  mayor  parte  de  la  information  que  usted  pueda 
necesitar  para  aprender  a  manejar  el  ordenador. 

Temas  tratados: 

*  Posiciones  del  cursor  y  codigos  de  control 

*  Interrupciones 

*  Caracteres  ASCII  y  caracteres  graficos 

*  Esquemas  del  teclado 

*  Sonidos 

*  Mensajes  de  error 

*  Palabras  de  error 

*  Palabras  reservadas  de  BASIC 

*  Plantillas 

*  Conexiones 

*  Impresoras 

*  Joysticks 

*  Organizaci6n  de  los  discos 

*  Ampliaciones  del  sistema  residentes  (RSX) 

*  Memoria 

*  Emulador  de  consola  de  CP/M  Plus 

*  Juego  de  caracteres  de  CP/M  Plus 

Para  mas  completa  informaci6n  sobre  BASIC  y  el  firmware  del  CPC6128,  consultense 
las  publicaciones  SOFT967  y  SOFT968,  respectivamente. 
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Parte  1:  Posiciones  del  cursor  y  codigos 
ampliados  de  control  en  BASIC 


En  ciertas  aplicaciones  el  cursor  puede  encontrarse  fuera  de  la  ventana  de  texto.  Algu- 
nas  operaciones  fuerzan  al  cursor  a  ocupar  una  posicidn  permitida  antes  de  poder  ser 
llevadas  a  cabo.  Son  las  siguientes: 

1.  Escribir  un  caracter. 

2.  Exhibir  el  signo  del  cursor  (el  rectangulo). 

3.  Obedecer  los  cddigos  de  control  senalados  con  un  asterisco  en  la  tabla  siguiente. 
El  proceso  de  forzar  el  cursor  a  ocupar  una  posicidn  permitida  consiste  en  lo  siguiente: 

1.  Si  el  cursor  esta  a  la  derecha  del  borde  derecho  de  la  ventana,  salta  al  extremo  iz- 
quierdo  de  la  linea  siguiene. 

2.  Si  el  cursor  esta  a  la  izquierda  del  borde  izquierdo  de  la  ventana,  salta  al  extremo 
derecho  de  la  linea  anterior. 

3.  Si  el  cursor  esta  por  encima  del  borde  superior,  el  contenido  de  la  ventana  se  despla- 
za  una  linea  hacia  abajo  y  el  cursor  aparece  en  la  primera  linea. 

4.  Si  el  cursor  esta  por  debajo  del  borde  inferior,  el  contenido  de  la  ventana  se  desplaza 
una  linea  hacia  arriba  y  el  cursor  aparece  en  la  ultima  linea. 

Las  comprobaciones  y  operaciones  se  realizan  en  el  orden  de  la  lista  anterior.  Las  posi- 
ciones ilegales  del  cursor  pueden  ser  cero  o  negativas,  es  decir,  a  la  izquierda  y  por  enci- 
ma de  la  ventana. 

Los  cddigos  del  margen  0  a  31  no  producen  ningun  simbolo  cuando  se  los  envia  a  la 
pantalla,  sino  que  son  interpretados  como  cddigos  de  control  (y  deben  ser  utilizados 
con  cuidado).  Algunos  de  ellos  alteran  el  significado  de  uno  o  varios  de  los  cbdigos  si- 
guientes, que  hacen  las  funciones  de  parametros  del  cbdigo  original. 

Si  se  envia  un  cddigo  de  control  a  la  pantalla  grafica,  su  efecto  es  dibujar  un  simbolo 
relacionado  con  la  funci6n  que  tendria  si  se  lo  generase  mediante  el  teclado  (v.  g., 
&07'BEL':  [CONTROUG).  Ejercera  su  funci6n  de  control  si  se  lo  envia  a  la  pantalla 
mediante: 

PRINT   CHR*(i:07)       obien      PRINT    "ft" 

donde  el  simbolo  del  "timbre"  se  obtiene  pulsando  [CONTROUG  en  el  momento  de 
teclear  la  instrucci6n  PRINT. 

Los  cddigos  senalados  con  *  en  la  lista  siguiente  fuerzan  al  cursor  a  ocupar  una  posi- 
ci6n  permitida  en  la  ventana  antes  de  ser  obedecidos.  Para  cada  cddigo  se  da  el  niime- 
ro,  en  hexadecimal  y  en  decimal,  y  la  description  de  su  funcion. 
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Coiiigos  de  control  en  BASIC 


Valor 

Nombre 

Parametro 

Significado 

&00       0 

NUL 

Sin  efecto.  Se  lo  ignora. 

&01        1 

SOH 

0a255 

Escribe  el  simbolo  correspondiente  al  va- 
lor del  parametro,  lo  que  per  mite  exhibir 
los  simbolos  del  0  al  31. 

&02       2 

STX 

Hace  invisible  el  cursor  de  texto.  Equivale 
a  la  orden  CURSOR  con  el  parametro 
(conmutador  de  usuario)  igual  a  0. 

&03        3 

ETX 

Hace  visible  el  cursor  de  texto.  Equivale  a 
la   orden   CURSOR    con   el   parametro 
(conmutador  de  usuario)  igual  a  1.  Note- 
se  que  para  visualizar  el  cursor  desde  den- 
tro  de  un  programa  de  BASIC  (aparte  de 
la  situaci6n  en  que  BASIC  esta  esperando 
una  entrada  por  el  teclado)  es  necesario 
ejecutar  una  orden  CURSOR  con  el  para- 
metro (conmutador  del  sistema)  igual  a  1. 

&04       4 

EOT 

0a2 

Establece  el  modo  de  pantalla.  El  parame- 
tro se  toma  MOD  4.  Equivale  a  la  orden 
MODE. 

&05       5 

ENQ 

0a255 

Envia  a  la  posici6n  del  cursor  grafico  el 
caracter    correspondiente    al    valor    del 
parametro. 

&06       6 

ACK 

Habilita  la  pantalla  de  texto.  (Vdase  &15 
NAK.) 

&07       7 

BEL 

Produce  un  pitido.  Observese  que  este  c6- 
digo  borra  las  colas  de  sonido. 

&08       8 

*BS 

Hace  retroceder  el  cursor  una  posici6n. 

&09       9 

♦TAB 

Hace  avanzar  el  cursor  una  posici6n. 
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Valor 


&0A     10 


&0B     11 


&0C     12 


&0D     13 


&0E     14 


&0F     15 


&10      16 


&11      17 


&12      18 


&13      19 


&14     20 


Nombre 


Parametro 


*LF 


*VT 


FF 


*CR 


SO 


0  a  15 


SI 


0  a  15 


*DLE 


*DC1 


*DC2 


*DC3 


*DC4 


Significado 


Hace  bajar  el  cursor  una  linea. 


Hace  subir  el  cursor  una  linea. 


Borra  la  ventana  de  texto  y  lleva  el  cursor 
al  extremo  superior  izquierdo.  Equivale  a 
la  orden  CLS. 


Lleva  el  cursor  al  extremo  izquierdo  de  la 
linea  actual. 


Establece  la  tinta  asignada  al  papel.  El  pa- 
rametro se  toma  MOD  16.  Equivale  a  la 
orden  PAPER. 


Establece  la  tinta  asignada  a  la  pluma.  El 
parametro  se  toma  MOD  16.  Equivale  a  la 
orden  PEN. 


Borra  el  caracter  que  esta  en  la  posici6n 
del  cursor.  Rellena  la  celula  del  caracter 
con  el  color  actual  del  papel. 


Borra  desde  el  extremo  izquierdo  de  la 
ventana  hasta  la  posici6n  actual  del  cursor 
inclusive.  Rellena  las  celulas  afectadas  con 
el  color  actual  del  papel. 


Borra  desde  la  posicion  actual  del  cursor 
inclusive  hasta  el  extremo  derecho  de  la 
ventana.  Rellena  las  celulas  afectadas  con 
el  color  actual  del  papel. 


Borra  desde  el  principio  de  la  ventana  has- 
ta la  posicion  actual  del  cursor  inclusive. 
Rellena  las  celulas  afectadas  con  el  color 
actual  del  papel. 


Borra  desde  la  posici6n  actual  del  cursor 
inclusive  hasta  el  final  de  la  ventana.  Re- 
llena las  celulas  afectadas  con  el  color  ac- 
tual del  papel. 
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Valor 

Nombre 

Parametro 

Significado 

&15      21 

NAK 

Inhibe  la  pantalla  de  texto,  la  cual  no  reac- 
ciona  ante  nada  que  se  le  envia  mientras 
no  reciba  el  codigo  ACK  (&06  6) 

&16     22 

SYN 

Oa  1 

Se  toma  el  parametro  MOD  2.  Option  de 
transparencia:  0  desactiva,  1  activa. 

&17     23 

ETB 

0a3 

Se  toma  el  parametro  MOD  4.  Establece  el 
modo  de  tinta  para  graficos: 

0  normal 

1  XOR 

2  AND 

3  OR 

&18      24 

CAN 

Intercambia  las  tintas  de  pluma  y  papel. 

&19     25 

EM 

0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 

Define  la  matriz  de  un  caracter  definible 
por    el    usuario.    Equivale    a    la    orden 
SYMBOL.  Lleva  nueve  parametros.  El 
primero  es  el  mimero  del  caracter;  los 
ocho  restantes,  el  diseno  del  caracter.  El 
bit  mas  significativo  del  primer  byte  co- 
rresponde  al  punto  extremo  superior  iz- 
quierdo  del  caracter.  El  bit  menos  signifi- 
cativo del  ultimo  byte  corresponde  al  pun- 
to  extremo  inferior  derecho  del  caracter. 

&16     26 

SUB 

1  a  80 
1  a  80 
1  a  25 
1  a  25 

Define  una  ventana.  Equivale  a  la  orden 
WINDOW.  Los  dos  primeros  parametros 
especifican  los  bordes  izquierdo  y  derecho 
de  la  ventana;  el  menor  de  ellos  se  conside- 
ra  definitorio  del  borde  izquierdo.  Los  dos 
liltimos  parametros  especifican  los  bordes 
superior  e  inferior  de  la  ventana;  el  menor 
de  ellos  se  considera  definitorio  del  borde 
superior. 

&1B     27 

ESC 

Sin  efecto.  Se  lo  ignora. 
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Valor 


&1C     28 


Nombre 


FS 


&1D     29 


&1E     30 


&1F     31 


GS 


RS 


US 


Parametro 


0  a  15 
0  a  31 
0  a  31 


0  a  31 
0  a  31 


1  a  80 
1  a  25 


Significado 


Asigna  dos  colores  a  una  tinta.  Equivale  a 
la  orden  INK.  El  primer  parametro  (MOD 
16)  especifica  el  niimero  de  tinta;  los  dos 
siguientes  (MOD  32),  los  colores  desea- 
dos.  (Los  valores  27  a  31  no  corresponden 
a  colores  definidos.) 


Asigna  dos  colores  al  borde.  Equivale  a  la 
orden  BORDER.  Los  dos  parametros 
(MOD  32)  especifican  los  colores.  (Los  va- 
lores 27  a  31  no  corresponden  a  colores 
definidos.) 


Lleva  el  cursor  al  extremo  superior  iz- 
quierdo  de  la  ventana. 


Lleva  el  cursor  a  la  position  especfficada 
dentro  de  la  ventana  actual.  Equivale  a  la 
orden  LOCATE.  El  primer  parametro  re- 
presenta  la  columna;  el  segundo,  la  lfnea. 


Parte  2:  El  sistema  operativo 

La  gestion  interna  del  CPC6128  es  realizada  en  tiempo  real  por  un  sofisticado  sistema 
operativo.  El  sistema  operativo  es  una  especie  de  'guardia  de  trafico'  que  controla  el 
flu  jo  entre  entradas  y  salidas. 

Su  funcion  primordial  es  servir  de  intermediario  (interfaz)  entre  BASIC  y  los  circuitos 
electr6nicos.  Por  ejemplo,  cuando  el  programa  exige  que  parpadeen  las  tintas,  BASIC 
entrega  al  sistema  operativo  los  parametros  y  este  realiza  el  trabajo. 

El  sistema  operativo  de  la  maquina  es  lo  que  se  suele  denominar  'firmware'.  Es  un  pro- 
grama grabado  en  ROM  y  comprende  las  rutinas  en  codigo  de  maquina  que  son  invoca- 
das  por  las  ordenes  de  alto  nivel  de  BASIC. 

Si  se  siente  tentado  a  modificar  el  contenido  de  posiciones  de  memoria  (con  la  orden 
POKE)  o  a  invocar  subrutinas  del  sistema  operativo  (con  CALL),  grabe  el  programa 
antes  de  que  sea  demasiado  tarde. 

El  firmware  del  sistema  operativo  del  CPC6128  esta  descrito  en  la  publication  SOFT 
968  y  queda  fuera  del  alcance  de  este  manual. 
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Si  usted  piensa  programar  en  codigo  de  maquina,  debe  proveerse  de  un  programa  en- 
samblador.  El  DEVPAC  de  AMSOFT  incluye  un  ensamblador  de  Z80  reubicable,  con 
editor,  desensamblador  y  monitor. 


Parte  3:  Interrupciones 


El  CPC6128  utiliza  ampliamente  las  interrupciones  del  Z80  para  proporcionar  un  siste- 
ma  operativo  que  incluye  varias  caracteristicas  multitarea,  de  las  que  son  ejemplo  las 
estructuras  AFTER  y  EVERY  descritas  en  otro  lugar  de  este  manual.  El  orden  de  priori- 
dad  de  los  temporizadores  es  el  siguiente: 

Break  ([ESCHESC])  (detention  del  programa) 

Temporizador  3 

Temporizador  2  (y  las  tres  colas  de  sonido) 

Temporizador  1 

Temporizador  0 

Las  interrupciones  solo  se  deben  programar  despues  de  considerar  las  consecuencias  de 
los  posibles  estados  intermedios  de  las  variables  en  el  momento  de  la  interrupci6n.  La 
subrutina  de  interrupci6n  debe  evitar  interacciones  indeseadas  con  el  estado  de  las  va- 
riables del  programa  principal. 

Las  colas  de  sonidos  tienen  interrupciones  independientes,  de  igual  nivel  de  prioridad. 
Una  vez  iniciada  una  interrupci6n  de  sonido,  ya  no  puede  ser  interrumpida  por  otra 
de  sonido.  Este  mecanismo  permite  que  las  rutinas  de  interrupci6n  de  sonido  puedan 
compartir  variables  sin  estar  sujetas  a  los  riesgos  mencionados. 

Cuando  se  habilita  una  interrupci6n  de  cola  de  sonido  (con  ON  SQ  GOSUB),  la  inte- 
rruption se  realiza  inmediatamente  si  la  cola  de  sonido  del  canal  correspondiente  no 
esta  llena;  si  lo  esta,  la  interrupci6n  se  producira  cuando  termine  el  sonido  actual  y  que- 
de  espacio  libre  en  la  cola.  La  acci6n  de  la  interrupcion  inhibe  el  suceso,  de  modo  que 
la  subrutina  debe  ser  rehabilitada  si  se  la  va  a  utilizar  mas  tarde. 

Las  acciones  de  enviar  un  sonido  y  de  examinar  el  estado  de  la  cola  inhiben  tambien 
la  interrupcion  de  sonido. 
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Parte  4:  Caracteres  ASCII  y  caracteres 
graficos  en  BASIC 

ASCII 


En  la  tabla  siguiente  se  da  la  relaci6n  de  los  codigos  y  caracteres  ASCII.  Los  niimeros 
estan  en  decimal,  octal  y  hexadecimal.  En  las  siguientes  paginas  se  ilustra  el  diseno  de 
los  caracteres  generados  por  el  CPC6128. 


DEC  OCTAL  HEX  Caracteres  ASCII 

DEC  OCTAL  HEX  ASCII 

DEC  OCTAL  HEX  ASCII 

0        000        00 

NUL  ([CONTROL]®) 

50        062        32 

2 

100        144         64 

d 

1         001        01 

SOH  ([CONTROUA) 

51         063        33 

3 

101         145         65 

e 

2        002        02 

STX  ([CONTROUB) 

52         064         34 

4 

102        146        66 

f 

3         003        03 

ETX  |[CONTROL]C) 

53         065         35 

5 

103        147        67 

9 

4        004        04 

EOT  ([CONTROL1D) 

54         066         36 

6 

104        150        68 

h 

5         005        05 

ENQ  {[CONTROLIE) 

55        067        37 

7 

105        151         69 

i 

6        006        06 

ACK  (tCONTROUF) 

56        070        38 

8 

106        152        6A 

J 

7        007        07 

BRL  (ICONTROLJG) 

57        071'       39 

9 

107        153        6B 

k 

8        010        08 

BS  ([CONTROUH) 

58        072        3A 

108        154        6C 

1 

9        011        09 

HT  ([CONTROL]!) 

59        073        3B 

; 

109        155        6D 

m 

10        012        0A 

LF  ([CONTROL].!) 

60        074        3C 

< 

110        156        6E 

n 

11         013        0B 

VT  ([CONTROUK) 

61         075        3D 

= 

111        157        6E 

0 

12        014        0C 

FF  l[CONTROL]L) 

62        076        3E 

> 

112        160        70 

P 

13         015        0D 

CR  |[CONTROL]M) 

63        077        3F 

? 

113        161        71 

q 

14        016        0E 

SO  ([CONTROUN) 

64         100        40 

@ 

114        162        72 

r 

15         017        OF 

SI  HCONTROUO) 

65         101         41 

A 

115        163        73 

s 

16         020         10 

DLE  ([CONTROUP) 

66         102         42 

B 

116        164        74 

t 

17        021         11 

DC1  ([CONTROL1Q) 

67         103         43 

c 

117        165         75 

u 

18        022        12 

DC2  (ICONTROL1R) 

68         104         44 

D 

118        166        76 

V 

19        023         13 

DC3  ([CONTROL]S) 

69         105         45 

E 

119        167        77 

w 

20        024         14 

DC4  ([CONTROUT) 

70         106        46 

F 

120        170        78 

X 

21         025         15 

NAK  (tCONTROL]U) 

71          107         47 

G 

121        171        79 

y 

22        026        16 

SYN  ([CONTROL]V) 

72         110         48 

H 

122        172         7A 

z 

23         027         17 

ETB  ([CONTROUW) 

73          111         49 

1 

123        173        7B 

( 

1A        030        18 

CAN  (ICONTROL1X) 

74         112         4A 

J 

124        174        7C 

! 

25         031         19 

EM  ([CONTROUY) 

75         113         4B 

K 

125        175        7D 

) 

26        032         1A 

SUB  ([CONTROLS) 

76         114         4C 

L 

126        176        7E 

"* 

27        033         IB 

ESC  ([CONTROL]!) 

77         115         4D 

H 

28        034         1C 

FS  ([CONTROUN) 

78         116         4E 

N 

29        035         ID 

GS  ([CONTROL]]) 

79         117         4F 

O 

30        036         IE 

RS  (ICONTROUt) 

80         120         50 

P 

31         037         IF 

US  ([CONTROU0) 

81          121         51 

Q 

32        040        20 

SP 

82         122         52 

R 

33         041        21 

; 

83         123        53 

S 

34        042        22 

84         124        54 

T 

35         043        23 

# 

85         125         55 

U 

36        044        24 

$ 

86         126         56 

V 

37        045        25 

% 

87         127         57 

w 

38         046         26 

& 

88         130         58 

X 

39        047        27 

89         131         59 

Y 

40        050        28 

( 

90         132         5A 

z 

41         051         29 

) 

91          133         5B 

[ 

42         052         2A 

* 

92         134         5C 

\ 

43         053         2B 

+ 

93          135         5D 

] 

44         054         2C 

r 

94         136         5E 

t 

45         055         2D 

- 

95          137         5F 

_ 

46         056         2E 

96         140         60 

* 

47         057         2F 

/ 

97         141         61 

a 

48         060         30 

0 

98         142         62 

b 

49        061         31 

1 

99         143         53 

c 
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Conjunto  de  caracteres  graficos 
especificos  de  la  maquina 


Los  caracteres  aqui  reproducidos  estan  representados  en  la 
matriz  estandar  de  8  x  8  en  la  que  se  basa  la  visualizacion  de 
texto  en  la  pantalla  del  CPC6128.  Los  caracteres  definidos 
por  el  usuario  pueden  ser  agrupados  para  conseguir  efectos 
especiales.  Vease  la  section  'Caracteres  definidos  por  el 
usuario'  en  el  capitulo  'Cuando  usted  guste  . . .'. 


33 

&H21 
&X001 00001 


37 

&H25 

&X00100101 


41 

&H29 

&X00101001 


45 

&H2D 

&X00101101 


BJB:: 


34 

&H22 
&X001 00010 

dag: 
Mat 


38 

&H26 

&X00100110 


n  n 


42 

&H2A 

&X00101010 


46 

&H2E 

&X00101110 


FBSFBtfH 


a+M 


i-LLL 


35 

&H23 

&X0010001 

1 

ji 

IT" 

_± 

±_ 

_± 

I 

39 

&H27 

&X00100111 


43 

&H2B 

&X00101011 


■ 


47 

&H2F 

&X00101111 


32  &H2C 
&X001 00000 


36 
&H24 


&X00100100 

w 

m 


40 

&H28 

&X00101000 


SB 


44 

&H2C 

&X00101100 


48 

&H30 

&X001 10000 
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49 

&H31 
&X001 10001 


50 

&H32 
&X001 10010 


51 

&H33 
&X001 10011 


ID"* 


5SJK 


1 1  mm  i 


52 

&H34 

&X00110100 


53 

&H35 

&X00110101 


5CSE 

.■■■■■£ 


54 

&H36 

&X00110110 


55 

&H37 

&X00110111 


56 

&H38 
&X001 11000 


57 

&H39 
&X001 11001 


58 

&H3A 
&X001 11010 


59 

&H3B 
&X001 11011 


60 

&H3C 

&X00111100 


EE 


fflSl      !& 


_■■■■■■" 


M 


j- 


61 

&H3D 

&X00111101 


62 

&H3E 
&X001 11110 


63 

&H3F 
&X001 11111 


64 

&H40 
&X01 000000 


65 

66 

&H41 

&H42 

&X01 000001 

&X01 000010 

67 

&H43 
&X01 000011 


68 

&H44 

&X01000100 
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69 

&H45 

&X01000101 


m 


!» 


AH 


70 

&H46 

&X01000110 


71 

&H47 

&X01000111 


&X01001000 


mm- 
i  rrrrrn 


m 

H 


73 

74 

75 

&H49 

&H4A 

&H4B 

&X01001001 

&X01001010 

&X01001011 

■■■■■■■" 

Hnrrmn 


76 

&H4C 

&X01001100 


77 

&H4D 

&X01001101 


81 

&H51 

&X01010001 


82 

&H52 

&X01010010 


83 

&H53 

&X01010011 


78 

79 

80 

&H4E 

&H4F 

&H50 

&X01001110 

&X01001111 

&X01010000 

84 

&H54 

&X01010100 


85 

&H55 

&X01010101 


86 

&H56 

&X01010110 


87 

&H57 

&X01010111 


eS 


88 

&H58 

&X01011000 
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89 

&H59 

&X01011001 


IB  Sffl 


90 

&H5A 

&X01011010 


91 

&H5B 

&X01011011 


92 

&H5C 
&X01 011100 


93 

&H5D 

&X01011101 


I 

I 

I 

I 

I 

■■■■■■ 

■■ 

94 

&H5E 

&X01011110 


95 

&H5F 

&X01011111 


96 

&H60 
&X01 100000 


ate 

i  rrn  rn- 


1 1  rrm  i 


J  I  TBI 

■EL 

i  nm  m 


97 

&H61 

&X01 100001 


98 

&H62 

&X01 100010 


99 

&H63 
&X01 100011 


100 

&H64 

&X01100100 


MR 


AT 


ffl*m 


i 


101 

&H65 

&X01100101 


102 

&H66 

&X01100110 


:!f:s: 


■■  '  U     a 


103 

&H67 

&X01100111 


m 


104 

&H68 

&X01101000 


affiB 


fflH 


105 
&H69 
&X01 101001 


106 

&H6A 

&X01101010 


107 

&H6B 

&X01101011 


108 

&H6C 

&X01101100 
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109 

&H6D 

&X01101101 


110 

&H6E 

&X01101110 


111 

&H6F 

&X01101111 


112 

&H70 

&X01110000 


P 

UWP*r 

es 

113 
&H71 
&X01 110001 


ffi 


B; 


bhh 


114 

&H72 

&X01110010 


B 


TWWL       ■ 

jiiiSl: 

mrm  1 1 


115 

&H73 

&X01110011 


116 
&H74 
&X01 110100 


117 
&H75 
&X01 110101 


118 

&H76 

&X01110110 


TO 


ti  m  m  i 


119 

&H77 

&X01110111 


120 

&H78 

&X01111000 


shhlu: 


121 

&H79 

&X01111001 


122 

&H7A 

&X01111010 


HE 


123 

&H7B 

&X01111011 


■ 


124 

&H7C 

&X01111100 


125 

&H7D 

&X01111101 


126 

&H7E 

&X01111110 


127 

&H7F 

&X01111111 


128 

&H80 

&X1 0000000 
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■H 


129 

&H81 

&X1 0000001 


133 

&H85 

&X1 00001 01 


137 

&H89 

&X1 0001 001 


141 

&H8D 

&X1 0001 101 


145 

&H91 

&X10O10001 


H 

130 
&H82 
&X10000010 


Hi 


134 

&H86 

&X1 00001 10 


LLLLbBBS] 

Bl 

■■■■ 

__    ■■■■ 

HI 

-_    ■■■■ 

■■■■ 

138 

&H8A 

&X1 0001 010 


142 

&H8E 

&X10001110 


146 

&H92 

&X10010010 


131 

&H83 

&X1 0000011 


psa  h 


■■■e: 

■■■E- 

■■■B- 

135 

&H87 

&X1 00001 11 


C ■■■! 

HH+888' 


139 

&H8B 

&X10001011 


■■■— w 


143 

&H8F 

&X1 0001 111 


147 

&H93 

&X1 001 0011 


132 

&H84 

&X10000100 


H 


136 

&H88 

&X1 0001 000 


140 

&H8C 

&X10001100 


Hi 


144 

&H90 

&X1 001 0000 


148 

&H94 

&X10010100 
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149 

&H95 

&X10010101 


it  pwHHH 


150 

&H96 

&X10010110 


151 

&H97 

&X10010111 


ffli 


152 

&H98 

&X1 001 1000 


153 

&H99 

&X10011001 


154 

&H9A 

&X1 001 1010 


155 

&H9B 

&X10011011 


^Bff 


156 

&H9C 

&X10011100 


157 

&H9D 

&X10011101 


m 


158 

&H9E 

&X10011110 


159 

&H9F 

-&X10011111 


160 

&HA0 

&X1 01 00000 


Pi 

_■■■■■  z 


161 

&HA1 

&X10100001 


EggS: 


162 

&HA2 

&X1 01 00010 


ETT5 


163 

&HA3 

&X1 01 00011 


164 

&HA4 

&X10100100 


165 

&HA5 

&X10100101 


166 

&HA6 

&X10100110 


167 

&HA7 

&X10100111 


168 

&HA8 

&X10101000 
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r  j  I  I  I  I  - 


169 

&HA9 

&X10101001 


170 

&HAA 

&X10101010 


171 
&HAB 
&X101 01011 


mm 


172 

&HAC 

&X10101100 


■ 


173 

&HAD 

&X10101101 


174 

&HAE 

&X10101110 


■ 

■ 

■ 

■ 


175 

&HAF 

&X10101111 


176 

&HB0 

&X1 01 10000 


177 

&HB1 

&X1 01 10001 


178 

&HB2 

&X1 01 10010 


179 
&HB3 
&X101 10011 


ifliSnff": 

flflHE 


180 

&HB4 

&X1 01 10100 


■■IT  ■■■ 


181 

&HB5 

&X10110101 


flfflffi 


182 

&HB6 

&X10110110 


183 

&HB7 

&X10110111 


184 

&HB8 

&X10111000 


185 

186 

&HB9 

&HBA 

&X10111001 

&X10111010 

187 

&HBB 

&X10111011 


188 

&HBC 

&X10111100 
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TTTTI 

■5B3 

■ 


189 

&HBD 

&X10111101 


190 

&HBE 

&X10111110 


191 

&HBF 

&X10111111 


192 

&HC0 

&X1 1000000 


■  ■ 


I 


m 


BE8 


193 

&HC1 

&X1 1000001 


194 

&HC2 

&X1 1000010 


195 

&HC3 

&X1 1000011 


196 

&HC4 

&X11000100 


~~  ■HnH 


I 


Wm 


■ 


197 

&HC5 

&X11000101 


198 

&HC6 

&X11000110 


201 

&HC9 

&X1 1001 001 


202 

&HCA 

&X1 1001 010 


199 

&HC7 

&X11000111 


mwTTTJ~mm 
■■■IBM 

■«■■■■ 

■1BDLM' 

203 

&HCB 

&X1 1001 011 


200 

&HC8 

&X11001000 


■ 

204 

&HCC 

&X11001100 


II 


™™ 


205 

&HCD 

&X11001101 


206 

&HCE 

&X11001110 


207 

&HCF 

&X11001111 


208 

&HD0 

&X11010000 
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209 

&HD1 

&X1 1010001 


210 

&HD2 

&X11010010 


■ 


211 

&HD3 

&X11010011 


212 

&HD4 

&X11010100 


213 

&HD5 

&X11010101 


ram 
■■■■i 


■■■■■■■■ 


214 

&HD6 

&X11010110 


■■■  J~ : : 


■■■■■_J- 
■■iia«~n 

■■■■■■r 


215 

&HD7 

&X11010111 


■ 


216 

&HD8 

&X11011000 


217 

&HD9 

&X11011001 


218 

&HDA 

&X11011010 


219 

&HDB 

&X11011011 


220 

&HDC 

&X11011100 


221 

&HDD 

&X11011101 


222 

&HDE 

&X11011110 


223 

&HDF 

&X11011111 


224 

&HE0 

&X1 1100000 


r  ■■■■■■_ 


225 

&HE1 

&X1 1100001 


226 

&HE2 

&X1 1100010 


227 

&HE3 

&X1 1100011 


228 

&HE4 

&X11100100 
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ra@ 


229 

&HE5 

&X1 1100101 


230 

&HE6 

&X11100110 


231 

&HE7 

&X11100111 


232 

&HE8 

&X11101000 


mm       m 


m 

■■pr 


ir 


■■■! 
I   ■ 


233 

&HE9 

&X11101001 


234 

&HEA 

&X11101010 


235 

&HEB 

&X11101011 


236 

&HEC 

&X11101100 


n 


■■■■■■^ 


237 

&HED 

&X11101101 


238 

&HEE 

&X11101110 


239 

&HEF 

&X11101111 


240 

&HF0 

&X1 11 10000 


SSI 


ffSHffl 
ESSE 


m 


■II! 


■■■■■■■■ 


s 


241 

&HF1 

&X1 11 10001 


242 

&HF2 

&X11110010 


243 

&HF3 

&X1 11 10011 


244 

&HF4 

&X1 11 10100 


imrt  _ 


■■■■MM  ~ 


H 


TT 


245 

&HF5 

&X11110101 


246 

&HF6 

&X11110110 


247 

&HF7 

&X11110111 


248 

&HF8 

&X11111000 
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249 

&HF9 

&X11111001 


TTT 


E=fl 


SB:: 

m 


250 

&HFA 

&X11111010 


JFH+: 


251 

&HFB 

&X11111011 


252 

&HFC 

&X11111100 


253 

254 

255 

&HFD 

&HFE 

&HFF 

&X11111101 

&X1 1111110 

&X11111111 
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Parte  5:  Esquemas  del  teclado 

Valores  ASCII  implicitos  generados  por  las 
teclas  (HEX) 


II   AF 

7E 
22 
32 

23 
33 

24        25        26 
34  II    35        36 

27  .    af 

37         » 

7P       IF 
a      5F 
39        30 

3D 
2D 

a-i 

5E 

10        7F 
10        7F 
10    II   7F 

N/A 

N/A 

N/A 

E1            1 
09          E 
09 

1     ||    17    I    05 
>1         57       45 
1    II    77   1    6E 

12 
52 
72 

14         1 
54        E 
74 

9        15 
9        55 
9        75 

09    ||   OF    ||    10         00        1B 
49        4F        50         7C        2A 
69         6F        70        40        SB 

OD 

-\     OD 
OD 

N/A 

N/A 

N/A 

N/A 

01    II    13        C 
41         53       ' 

61    ll_73_ 

)4        06   ||   07 
14       46       47 
94        66   II   67 

08       OA  ||  OB   ||  OC  ||    .. 
48       4A       4B       4C        A1 
68        6A  II    6B   ||   6C  II    AB 

Mil 

N/A 

N/A 

N/A 

N/A 

1A 
5A 
7A 

18 
58 
78 

03 
43 
63 

16        02 
56        42 
76        62 

OE    ||   OD 
4E        4D 
6E        6D 

3C 
2C 

AE 

3E        3F 

2E  JL?F 

1C    || 

60           N/A 

5C  II 

N/A 

F8 
F4 
FO 

N/A 

N/A 

EO 
EO 
EO 

20 
20 

N/A 

FA 
F6 
F2 

F9 
F5 

F1 

FB 
F7 
F3 

JOYSTICK  O 


JOYSTICK  1 


OB 
OB 

08 
08 

DISP.  1 

58 
58 

DISP.  2 

5A 
5A 

09 
09 

OA 
OA 

26 
36 

12 
52 
72 

DISP.  1 
07 
47 
67 

DISP.  2 
06 
46 
66 

14 
54 
74 

25 
35 

Para  su  referenda  . . . 


7/21 


Codigos  expansibles:  posiciones  y  valores 
implicitos 


N/A 


^InmJ^I^UaJI  n/a  |[nm 


N/A     I!  N/A 


N/A 


N/A         N/A 


*  ||  WM  ||  N/A  ||  N/A  I  N/A     N/A     N/A     N/A     N/A  II  N  /A     N/A 
W/aJw^Jw^    N/A     N/A      N/a|n/a|n/a||n/a|n/a||~ 


N/A 


135 


|  N/A  ||  N/A  |  N/A  J  N/A  [  N/A  |  N/A  |  N/A  |  N/A     N/A     N/A     N/A     N/aT 

IHHHHHHHHMh*  II  n/a  II  n/a 


N/A 


N/A 


nm][nm][n^|^D  "n^]|  n/a 


N/A 


N/A  II  N/A 


N/A 


140 


135 
132 


N/A 


137 
137 


N/A 


N/A 


N/A 


Codigo 
expansible 

Asignacion  implfcita 

Caracter 

Valor  ASCII 

0(128) 

0 

&30 

1(129) 

1 

&31 

2(130) 

2 

&32 

3(131) 

3 

&33 

4(132) 

4 

&34 

5(133) 

5 

&35 

6(134) 

6 

&36 

7(135) 

7 

&37 

8(136) 

8 

&38 

9(137) 

9 

&39 

10(138) 

&2E 

11(139) 

[RETURN] 

&0D 

12(140) 

RUN"  [RETURN] 

&52&55&4E&22&0D 

Nota.  Los  caracteres  expansibles  13  a  31  (141  a  159)  no  tie- 
nen  asignada  ninguna  cadena  de  expansi6n.  Su  expansion 
se  puede  definir  con  la  orden  KEY  de  BASIC,  y  se  los  pue- 
de  asignar  a  teclas  concretas  con  la  orden  KEY  DEF. 
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Niimeros  de  las  teclas  y  los  joysticks 


66      64      65      57      56      49 

48      41       40 

33      32      25      24  I   16      79 

10 

11 

3 

68 

67      59      58 

50  |   51  J  43  ||  42  |  35  I  34  I  27  I  26  Q    17  | 

18 

20 

12 

4 

70 

69 

60      61      53      52      44     45      37 

36 

29  i  28       19 

13 

14 

5 

21 

71   |  63  |  62  |  55  |  54  ||  46  j  38  Q  39 

31       30 

22 

21 

15 

0 

7 

23 

9        J                                  47                                           |              6 

8 

2 

1 

JOYSTICK  O 

72 

74 

DISP.  1 

76 

DISP.  2 

77 

75 

73 

JOYSTICK  1 


48 

50 

DISP.  1 

52 

DISP.  2 

53 

51 

49 
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Parte  6:  Sonidos 

Notas  y  periodos  de  tono 

La  tabla  siguiente  da  los  valores  recomendados  para  el  parametro  <periodo  de  tono) 
correspondientes  a  los  tonos  y  semitonos  de  las  ocho  octavas  que  puede  producir  el 
CPC664. 

Las  frecuencias  generadas  no  coinciden  exactamente  con  las  requeridas  porque  el  <pe- 
riodo  de  tono)  tiene  que  ser  un  numero  entero.  El  'error  relativo'  es  el  cociente: 


frecuencia  requerida-frecuencia  generada 


frecuencia  requerida 


expresado  en  porcentaje. 


NOTA 

FRECUENCIA 

PERIODO 

ERROR   RELATIVO 

C 

DO 

16.352 

3822 

-0.007% 

Ctt 

DOtt 

17.324 

3608 

+0.007% 

D 

RE 

13.354 

3405 

-0.007% 

Dtt 

REtt 

19.445 

3214 

-0.004% 

E 

MI 

20.602 

3034 

+0.009% 

F 

FA 

21.827 

2863 

-0.016% 

Ftt 

FAtt 

23. 125 

2703 

+0.009% 

Octava   -4 

G 

SOL 

24.500 

2551 

-0.002% 

Gtt 

SOLtt 

25.957 

2408 

+0.005% 

A 

LA 

27 . 500 

2273 

+0.012% 

At* 

LAtt 

29.135 

2145 

-0.008% 

B 

SI 

30.868 

2025 

+0.011% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR    RELATIVO 

C 

DO 

32.703 

1911 

-0.007% 

Ctt 

DOtt 

34.648 

1804 

+0.007% 

D 

RE 

36.708 

1703 

+0.022% 

Dtt 

REtt 

38.891 

1607 

-0.004% 

E 

MI 

41.203 

1517 

+0.009% 

F 

FA 

43.654 

1432 

+0.019% 

Ft* 

FAS 

46.249 

1351 

-0.028% 

Octava   -3 

G 

SOL 

48.999 

1276 

+0.037% 

Gtt 

SOLtt 

51.913 

1204 

+0.005% 

A 

LA 

55 . 000 

1136 

-0.032% 

At* 

LAtt 

58.270 

1073 

+0.039% 

E 

SI 

61.735 

1012 

-0.038% 
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NOTA 

FRECUENCIA 

PERIODO 

ERROR  RELATIVO 

C   DO 

65.406 

956 

+0.046% 

C*»  DO** 

69.296 

902 

+0.007% 

D   RE 

73.416 

851 

-0.037% 

D**  RE** 

77.782 

804 

+0.058% 

E   MI 

82.407 

758 

-0.057% 

F   FA 

87.307 

716 

+0.019% 

F*»  FA** 

92.499 

676 

+0.046%      Octava  -2 

G   SOL 

97.999 

638 

+0.037% 

G*»  SOL** 

103.826 

602 

+0.005% 

A   LA 

110.000 

568 

-0.032% 

A**  LA** 

116.541 

536 

-0.055% 

B   SI 

123.471 

506 

-0.038% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR  RELATIVO 

C   DO 

130.813 

478 

+0.046% 

C*»  DO** 

138.591 

451 

+0.007% 

D   RE 

146.832 

426 

+0.081% 

D*»  RE** 

155.564 

402 

+0.058% 

E   MI 

164.814 

379 

-0.057% 

F   FA 

174.614 

353 

+0.019% 

F*»  FA** 

184.997 

338 

+0.046%      Octava  -1 

G   SOL 

195.998 

319 

+0.037% 

G*»  SOL** 

207.652 

301 

+0.005% 

A   LA 

220 . 000 

284 

-0.032% 

A**  LA** 

233.082 

268 

-0.055% 

B   SI 

246.942 

253 

-0.038% 

NOTA 

FRECUENCIA 

PERIODO 

ERROR  RELATIVO 

C   DO 

261.626 

239 

+0.046%     DO  media 

C*»  DO** 

277. 183 

225 

-0.215% 

D   RE 

293.665 

213 

+0,081% 

D*»  RE** 

311. 127 

201 

+0.058% 

E   MI 

329.628 

190 

+0.206% 

F   FA 

349.228 

179 

+0.019% 

F**  FA** 

369.994 

169 

+0.046%      Octava  0 

G   SOL 

391.995 

159 

-0.277% 

G*»  SOL** 

415.305 

150 

-0.328% 

A   LA 

440.000 

142 

-0.032%      LA 

A**  LA** 

466. 164 

134 

-0.055%  i ntsrnac ional 

B   SI 

493.883 

127 

+0.356% 
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NOTA 


FRECUENCIA    PERIODO    ERROR  RELATIVO 


C   DO 
C**  DO** 
D   RE 
D*»  RE** 


E 
F 


MI 
FA 


F** 

FA** 

G 

SOL 

G*» 

SOL** 

A 

LA 

A*» 

LA*» 

E 

SI 

523. 
554. 
587. 
622. 
659. 
698. 
739. 
783. 
330. 
880. 
932. 
987. 


251 
365 
330 
254 
255 
457 
989 
991 
609 
000 
328 
767 


119 

113 

106 

100 

95 

89 

84 

80 

75 

71 

67 

63 


-0.374% 
+0.229% 
-0.390% 
-0.441% 
+0.206% 
-0.543% 
-0.548% 
+0.350% 
-0.328% 
-0.032% 
-0.055% 
-0.435% 


Octava  1 


NOTA 


C   DO 
C*t  DO** 
D  -  RE 
D*»  RE** 
MI 
FA 


FRECUENCIA    PERIODO    ERROR  RELATIVO 


E 
F 

F**  FA** 
G   SOL 
G**  SOL** 
A   LA 
A**  LA** 
E   SI 


1046 
1103 
1174 
1244 
1318 
1396, 
1479, 
1567, 
1661. 
1760. 
1364. 
1975. 


.502 
.731 
.659 
.508 
.510 
,913 
,973 
,982 
219 
000 
655 
533 


60 

56 

53 

50 

47 

45 

42 

40 

38 

36 

34 

32 


+0.462% 

-0.662% 

-0.390% 

-0.441% 

-0.855% 

+0.574% 

-0.548% 

+0.350% 

+0.992% 

+1.357% 

+1.417% 

+1. 134% 


Octava  2 


NOTA 

C   DO 
C**  DO** 
D   RE 
D*»  RE*» 
E   MI 
F   FA 
F*t  FA*t 
G   SOL 
G**  SOL** 
A   LA 
A**  LA*» 
B   SI 


FRECUENCIA    PERIODO    ERROR  RELATIVO 


2093 
2217, 
2349, 
2489. 
2637, 
2793. 
2959. 
3135, 
3322. 
3520. 
3729. 
3951. 


004 
641 
318 
016 
021 
826 
955 
963 
438 
000 
310 
066 


30 
28 
27 
25 
24 
22 
21 
20 
19 
18 
17 
16 


+0.462% 
-0.662% 
+1.469% 
-0.441% 
+1.246% 
-1.685% 
-0.548% 
+0.350% 
+0.992% 
+1.357% 
+1.417% 
+1. 134% 


Octava  3 
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Estas  frecuencias  han  sido  calculadas  a  partir  de  la  correspondiente  a  la  nota  LA  inter- 
national mediante  la  siguiente  f6rmula: 

FRECUENCIA=440*(2f(OCTAVA+<  (N-10W12)  )  ) 
PERIODO=ROUND(62500/FRECUENCIA) 

donde  N  es  1  para  DO,  2  para  DO#,  etc. 


Parte  7:  Mensajes  de  error  de  BASIC 


1  Unexpected  NEXT 

Se  ha  encontrado  un  NEXT  que  no  corresponde  a  ningun  FOR,  o  bien  la  variable  men- 
cionada  tras  NEXT  no  coincide  con  la  de  FOR. 


2  Syntax  error 

BASIC  no  puede  entender  la  linea  porque  algo  en  ella  no  se  ajusta  a  las  reglas  de  sinta- 
xis  del  lenguaje. 


3  Unexpected    RETURN 

Si  ha  encontrado  una  orden  RETURN  fuera  de  una  subrutina. 

4  DATA   exhausted 

Una  orden  READ  ha  intentado  leer  mas  datos  de  los  incluidos  en  lineas  DATA. 

5  Improper   argument 

Este  es  un  error  no  especifico.  Puede  haber  algo  incorrecto  en  el  argumento  de  una  fun- 
ci6n  o  en  un  parametro  de  una  orden. 
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6    Over-flow 


El  resultado  de  una  operation  aritmetica  ha  sobrepasado  los  margenes  aceptables.  Si 
ha  ocurrido  en  un  niimero  en  punto  flotante,  el  resultado  ha  sido  mayor  que  1.7E+38 
(aprox.).  Tambien  puede  haber  ocurrido  al  intentar  convertir  un  niimero  en  punto  flo- 
tante en  un  entero  con  signo  de  16  bits. 


7   Memory    -full 

El  programa  actual  o  sus  variables  ocupan  demasido  espacio  en  la  memoria,  el  anida- 
miento  de  la  estructura  de  control  es  demasiado  profundo  (demasiadas  ordenes  GO- 
SUB,  WHILE  o  FOR  anidadas). 

La  orden  MEMORY  provoca  este  error  si  se  intenta  situar  el  li'mite  de  la  memoria  acce- 
sible  a  BASIC  demasiado  bajo,  o  tan  alto  que  sea  imposible.  Observese  que  los  ficheros 
abiertos  tienen  un  tampon  dedicado  a  ellos,  lo  que  puede  restringir  los  valores  correctos 
de  MEMORY. 


8  Line   does    not    exist 

Se  ha  mencionado  un  numero  de  linea  que  no  existe  en  el  programa. 

9  Subscript    out    o-f    range 

Uno  de  los  subfndices  mencionados  en  una  lista  es  demasiado  pequeno  o  demasiado 
grande. 

10  Array  already  dimensioned 

Una  de  las  listas  declaradas  en  una  orden  DIM  ya  ha  sido  dimensionada  antes. 

11  Division  by  zero 

Division  por  cero,  que  puede  ocurrir  en  la  division  de  numeros  reales,  en  la  division 
entera,  en  la  operaci6n  MOD  y  en  la  exponentiation. 

12  Invalid  direct  command 

Se  ha  intentado  dar  como  orden  directa  una  orden  que  solo  es  valida  si  va  precedida 
de  un  numero  de  linea. 


'/2°  Para  su  referenda 


13  Type  mismatch 

Incongruencia  de  tipos.  Un  dato  es  literal  cuando  tenia  que  ser  numerico,  o  viceversa, 
o  se  ha  introducido  un  dato  no  numerico  en  READ  o  INPUT. 


14  String  space  -full 

Se  han  creado  demasiadas  cadenas  literales  y  ya  no  hay  espacio  disponible  para  mas, 
incluso  despues  de  reorganizar  la  memoria. 


15  String  too  long 

Una  cadena  literal  consta  de  mas  de  255  caracteres.  Puede  haber  sido  generada  por  con- 
catenation de  otras. 


16  String  expression  too  complex 

Expresion  literal  demasiado  compleja.  Las  expresiones  literales  pueden  generar  valores 
intermedios;  cuando  el  numero  de  estos  valores  excede  de  un  limite  razonable,  se  pro- 
duce este  error. 


17  Cannot  CONTinue 

No  se  puede  reanudar  la  ejecucion  del  programa  con  CONT.  Observese  que  CONT  rea- 
nuda  el  programa  despues  de  una  instruction  STOP,  de  [ESCHESC]  o  de  un  error, 
pero  a  condition  de  que  no  se  modifique  el  programa  durante  la  pausa. 


18  Unknown  user  -function 

Se  ha  invocado  una  FN  sin  la  correspondiente  DEF  FN. 

19  RESUME   missing 

Se  ha  llegado  al  final  del  programa  mientras  se  ejecutaba  una  rutina  de  gestion  de  erro- 
res  (esto  es,  una  rutina  invocada  por  ON  ERROR  GOTO). 

20  Unexpected    RESUME 

RESUME  solo  es  valida  en  una  rutina  de  gestion  de  errores  (esto  es,  en  una  rutina  invo- 
cada por  ON  ERROR  GOTO). 
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21  Direct    command    -found 

Al  cargar  un  fichero  se  ha  encontrado  una  linea  sin  niimero  de  linea. 

22  Operand   missing 

BASIC  ha  encontrado  una  expresion  incompleta. 

23  Line    too    long 

BASIC  ha  convertido  a  su  forma  interna  una  linea  y  esta  ha  resultado  ser  demasiado 
larga. 

24  EOF   met 

Se  ha  intentado  leer  mas  alia  del  final  del  fichero  de  entrada. 

25  File   type   error 

El  fichero  que  se  ha  leido  no  es  del  tipo  adecuado.  OPENIN  solo  puede  abrir  ficheros 
de  texto  ASCII.  Analogamente,  LOAD,  RUN,  etc.,  solamente  pueden  acceder  a  fiche- 
ras  creados  por  SAVE. 

26  NEXT   missing 

BASIC  ha  encontrado  un  FOR  al  que  no  corresponde  ningun  NEXT.  La  linea  mencio- 
nada  tras  el  mensaje  es  aquella  en  la  que  se  encuentra  el  FOR. 

27  File   already   open 

Se  ha  ejecutado  una  orden  OPENIN  u  OPENOUT  sin  previamente  cerrar  el  fichero  que 
estaba  abierto. 

28  Unknown    command 

BASIC  no  encuentra  un  comando  externo  que  corresponda  a  lo  que  se  ha  escrito  tras  ! . 
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29  WEND   missing 

BASIC  ha  encontrado  un  WHILE  al  que  no  corresponde  ningun  WEND. 

30  Unexpected    WEND 

Se  ha  encontrado  un  WEND  que  no  corresponde  a  ningun  WHILE,  o  bien  el  WEND 
no  concuerda  con  el  WHILE  del  bucle  actual. 

31  File   not    open 

Vease  la  secci6n  'Errores  de  disco'. 

32  Broken    in 

Vease  la  section  'Errores  de  disco'. 

Errores  de  disco  en  AMSDOS 

Hay  varios  errores  que  pueden  producirse  con  ocasion  del  manejo  de  ficheros  en  disco. 
BASIC  da  a  todos  ellos  el  niimero  de  ERR  32;  no  obstante,  DERR  contiene  informa- 
tion mas  especifica  cuando  se  detecta  ese  niimero  de  error.  Los  valores  de  DERR  tienen 
el  siguiente  significado: 


Error  de 

Valor  de 

Causa  del  error 

AMSDOS 

DERR 

0 

0o22 

Se  ha  pulsado  [ESC]. 

14 

142  (128+14) 

El  canal  no  se  encuentra  en  situaci6n  correcta. 

15 

143  (128+15) 

Se  ha  alcanzado  el  final  fisico  del  fichero. 

16 

144  (128+16) 

Orden  incorrecta:  generalmente  nombre  de  fichero  in- 
correcto. 

17 

145  (128+17) 

El  fichero  ya  existe. 

18 

146  (128+18) 

El  fichero  no  existe. 

19 

147  (128+19) 

El  directorio  esta  lleno. 

20 

148  (128+20) 

El  disco  esta  lleno. 

21 

149  (128+21) 

Se  ha  cambiado  el  disco  cuando  habia  ficheros  abiertos 
en  el. 
El  fichero  es  de  's61o  lectura'. 

22 

150  (128+22) 

26 

154  (128+26) 

Se  ha  Uegado  al  final  de  los  datos  grabados  en  el  fi- 

chero (final  16gico  del  fichero). 
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Si  AMSDOS  ya  ha  informado  de  un  error,  el  bit  7  de  DERR  esta  a  1  y  por  lo  tanto 
todos  los  valores  de  DERR  estan  desplazados  en  128  unidades. 

Otros  valores  generados  por  DERR  proceden  del  controlador  del  disco.  Su  significado 
se  analiza  bit  a  bit.  El  bit  6  siempre  esta  a  1.  El  bit  7  indica  si  AMSDOS  ha  informado 
del  error  (segun  se  ha  explicado  antes).  El  significado  de  los  bits  es  el  siguiente: 


Bit 


0 
1 
2 
3 
4 
5 
6 
7 


Significado 


Falta  marca  de  direcciones. 

No  escribible.  El  disco  esta  protegido. 

Faltan  datos.  No  se  puede  encontrar  el  sector. 

No  hay  disco  en  la  unidad,  unidad  no  preparada. 

Error  de  sincronizacion  (velocidad). 

Error  de  datos.  Error  CRC  (comprobacion  de  redundancia  ciclica). 

Siempre  a  1 ,  para  indicar  que  es  un  error  detectado  por  el  controlador  del  disco. 

A  1  si  AMSDOS  ya  ha  informado  del  error. 


ERR  tambien  puede  dar  el  valor  31  si  se  ha  intentado  el  acceso  sin  haber  ningun  fichero 
abierto.  La  forma  recomendable  de  utilizar  ERRyDERR  consiste  en  incluir  una  ins- 
truction ON  ERROR  GOTO  que  invoque  una  pequefla  subrutina  en  la  cual  se  com- 
pruebe  si  ERR  es  31  o  32;  si  es  32,  se  puede  examinar  DERR  para  obtener  mayor  infor- 
mation sobre  la  naturaleza  del  error.  Por  ejemplo: 


10  ON  ERROR  GOTO  1000 

20  OPENOUT  "f ichero.asc" 

30  WRITE  #9, "prueba-datos" 

40  CLOSEOUT 

50  END 

1000  erramsdos=(DERR  AND  &7F) :  REM  mascara  para  bit  7 

1010  IF  ERR<31  THEN  END 

1020  IF  ERR=31  THEN  PRINT  "Esta  seguro  de  que  ha  tecleado 

la  linea  20  correctamente?" : END 
1030  IF  erramsdo5=20  THEN  PRINT  "Disco  lleno;  ponga  otro 

disco  de  datos.": END 
1040  IF  erramsdos=kX01001000  THEN  PRINT  "Inserte  un  disco 

en  la  unidad  y  luego  pulse  una  tecla. ": WHILE  INKEY*= 

"": WEND: RESUME 
1050  END 
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Parte  8:  Paiabras  reservadas  de  BASIC 


A  continuation  damos  la  lista  de  las  paiabras  reservadas  para  el  BASIC  de  AMSTRAD 
CPC6128,  las  cuales,  por  consiguiente,  no  pueden  ser  utilizadas  como  nombres  de 
variables. 

ABS,  AFTER,  AND,  ASC,  ATN,  AUTO 

BINS,  BORDER 

CALL,  CAT,  CHAIN,  CHR*,  CINT,  CLEAR,  CLG,  CLOSEIN, 
CLOSEOUT,  CLS,  CONT,  COPYCHR*,  COS,  CREAL,  CURSOR 

DATA,  DEC*,  DEF,  DEFINT,  DEFREAL,  DEFSTR,  DEG,  DELETE, 
DERR,  DI,  DIM,  DRAW,  DRAWR 

EDIT,  EI,  ELSE,  END,  ENT,  ENV,  EOF,  ERASE,  ERL,  ERR, 
ERROR,  EVERY,  EXP 

FILL,  FIX,  FN,  FOR,  FRAME,  FRE 

GOSUB,  GOTO,  GRAPHICS 

HEX*,  HIMEM 

IF,  INK,  INKEY,  INKEY*,  INP,  INPUT,  INSTR,  INT 

JOY 

KEY 

LEFT*,  LEN,  LET,  LINE,  LIST,  LOAD,  LOCATE,  LOG,  LOG10, 
LOWER* 

MASK,  MAX,  MEMORY,  MERGE,  MID*,  MIN,  MOD,  MODE,  MOVE, 
MOVER 

NEXT,  NEW,  NOT 

ON,  ON  BREAK,  ON  ERROR  GOTO  0,  ON  SQ,  OPENIN,  OPENOUT, 
OR,  ORIGIN,  OUT 

PAPER,  PEEK,  PEN,  PI,  PLOT,  PLOTR,  POKE,  POS,  PRINT 
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RAD,  RAMDOMIZE,  READ,  RELEASE,  REM,  REMAIN,  RENUM, 
RESTORE,  RESUME,  RETURN,  RIGHT*,  RND,  ROUND,  RUN 

SAVE,  SGN,  SIN,  SOUND,  SPACE*,  SPC,  SPEED,  SQ,  SQR,  STEP, 
STOP,  STR*,  STRING*,  SWAP,  SYMBOL 

TAB,  TAG,  TAGOFF,  TAN,  TEST,  TESTR,  THEN,  TIME,  TO, 
TROFF,  TRON 

UNT,  UPPER*,  USING 

VAL,  VPOS 

WAIT,  WEND,  WHILE,  WIDTH,  WINDOW,  WRITE 

XOR,  XPOS 

YPOS 

ZONE 
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Parte  9:  PlantUlas 

Pantalla  de  texto;  modo  0  (20  columnas) 


s  * 

S  S 

o  S 

»  • 

HI  • 

w  « 

I  |  l  I  l  I  l  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I | I 
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Pantalla  de  texto;  modo  1  (40  columnas) 


s 

s 

s 

s 

s 

8 

S 

a 

n 

s 

° 

s 

s 

K 

s 

s 

s 

R 

a 

~ 

s 

z 

2 

E 

2 

S 

: 

5 

2 

' 

S 

. 

. 

- 

■"> 

- 

* 

" 

~ 
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Pantalla  de  texto;  modo  2  (80  columnas) 


8 

8 

B 

B 

B 

fi 

£ 

S 

B 

B 

o 

K 

s 

S 

s 

8 

X 

S 

3 

<0 

8 

8 

a 

a 

a 

a 

i 

a 

SI 

■o 

8 

s 

s 

3 

s 

3 

J 

I 

3 

3 

3 

3 

R 

S 

8 

8 

* 

S 

a 

a 

s 

8 

13 

s 

s 

s 

« 

S 

a 

gj 

8 

s 

« 

CB 

ID 

(D 

« 

« 

N 

N 

o 

o 

co 

(0 

e 

<s 

« 

« 

M 

M 

^(Mn*intDr.o»o»o>-        rin*u»*o£»«        SnHS        KK 
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Envolventes  de  sonido/musica 
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Para  su  referenda 


Parte  10:  Conexiones 


Zocalos  de  entradas  y  salidas  del  CPC6128 


SEGUNDA  UNIDAD 


AD  DISCO  /        fy 


IMPRESORA 


MONITOR 


12V  CC 


EXPANSION 


O]  ms\  isT 


t  t  t 


ESTEREO 


JOYSTICK 


Zocalo  del  joystick 


VISTO  POR  DETRAS 


12  3  4 


0 


0 


Patilla  1  ARRIBA 

Patilla  6  DISPARO   2 

Patilla  2  ABAJO 

Patilla  7  DISPARO    1 

Patilla  3  IZQUIERDA 

Patilla  8  MASA  2 

Patilla  4  DERECHA 

Patilla  9  MASA 

Patilla  5  N/C 
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Zocalo  del  monitor 


VISTO  POR  DETRAS 


5        1 
6 

S2 


Patilla  1   ROJO 
Patilla  2  VERDE 
Patilla  3  AZUL 


Patilla  4  SINC 
Patilla  5  MASA 
Patilla  6  LUM 


Zocalo  estereo 


C 


ICO 


MASA       IZQUIERDO 


V 


—  IZQUIERDO 
V 

A DERECHO 

MASA 


Patilla  1  CANAL  IZQUIERDO 
Patilla  2  CANAL  DERECHO 
Patilla  3  MASA 


Zocalo  de  cinta 


VISTO  POR  DETRAS 


5     2     4 


Patilla  1  CONTROL  REMOTO 

Patilla  2  MASA 

Patilla  3  CONTROL  REMOTO 


Patilla  4  ENTRADA  DE  DATOS 
Patilla  5  SALIDA  DE  DATOS 
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Zocalo  de  expansion 


VISTO  POR  DETRAS 
49      47      45      43      41      39      37      35      33      31      29      27      25      23      21       19      17      15      13      11       9        7       5        3  1 


^^ ■ — »  ■~~> ' — ■  *~*«  ~^  ~~»  ~~*  '"^  ~~«  ^^  *~^  ^^  ,~Miyi~~1 ' 


50   48   48  44   42   40   38   36   34   32   30  28   26  .24   22   20   18   16   14   12   10   8   6   4    2 


» 
PatiUa    1  SONIDO 

PatiUa  18  AO 

PatiUa  35  INT 

Patilla    2  MASA 

PatiUa  19  D7 

PatUla  36  NM1 

Patilla    3  A15 

PatUla  20  D6 

PatUla  37  BUSR2 

PatiUa    4  A14 

PatiUa  21  D5 

PatiUa  38  BUSAK 

PatiUa    5  A13 

PatiUa  22  D4 

PatiUa  39  READY 

PatiUa    6  A12 

PatiUa  23  D3 

PatiUa  40  BUS  RESET 

PatiUa    7  All 

PatiUa  24  D2 

PatiUa  41  RESET 

Patilla    8  A10 

PatUla  25  Dl 

PatUla  42  ROMEN 

PatiUa    9  A9 

Patilla  26  DO 

Patilla  43  ROMDIS 

PatiUa  10  Ag 

Patilla  27  +5v 

PatiUa  44  RAMRD 

PatiUa  11  A7 

Patilla  28  MREQ 

Patilla  45  RAMD1S 

PatUla  12  A6 

PatiUa  29  Ml 

PatiUa  46  CURSOR 

Patilla  13  A5 

PatiUa  30  RFSH 

PatUla  47  LAPIZ  OPT1CO 

Patilla  14  A4 

PatiUa  31  lORQ 

PatiUa  48  EXP 

PatiUa  15  A3 

PatUla  32  RD 

PatUla  49  MASA 

PatiUa  16  A2 

Patilla  33  WR 

PatiUa  50 

PatiUa  17  Al 

PatUla  34  HALT 

Zocalo  para  la  segunda  unidad  de  disco 


VISTO  POR  DETRAS 


2       4        6       8      10     12      14      16      18     20     22     24     26     28     30     32     34 


3 


1        3        5       7       9      11      13      15     17      19     21      23     25     27     29     31      33 


Patilla  18  MASA 

Patilla    1  READY 

Patilla    2  MASA 

PatiUa  19  MOTOR  ON 

PatiUa    3  SIDE  1  SELECT 

PatiUa  20  MASA 

PatiUa    4  MASA 

PatiUa  21  N/C 

PatiUa    5  READ  DATA 
Patilla    6  MASA 

PatiUa  22  MASA 

PatUla  23  DRIVE  SELECT  1 

PatiUa    7  WRITE  PROTECT 

PatUla  24  MASA 

PatiUa    8  MASA 

Patilla  25  N/C 

Patilla    9  TRACK  0 

Patilla  26  MASA 

Patilla  10  MASA 

PatiUa  27  INDEX 

Patilla  11  WRITE  GATE 

PatiUa  28  MASA 

PatUla  12  MASA 

Patilla  29  N/C 

PatUla  13  WRITE  DATA 

Patilla  30  MASA 

PatiUa  14  MASA 

PatUla  31  N/C 

PatiUa  15  STEP 

PatiUa  32  MASA 

PatiUa  16  MASA 

Patilla  33  N/C 
Patilla  34  MASA 

PatiUa  17  DIRECTION  SELECT 

Para  su  referenda  . . . 
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Zocalo  para  la  impresora 


VISTO  POR  DETRAS 


17   16   15   14   13   12   11   10 


7    6   5    4   3    2    1 


i '■   '■   ■ ■   '■ '   "   - 

35   34   33   32   31   30   29   28   27   26  25   24  23   22   21   20   19 


Patilla  19  MASA 

Patilla    1  STROBE 

Patilla    2  DO 

Patilla  20  MASA 

Patilla    3  Dl 

Patilla  21  MASA 

Patilla    4  D2 

Patilla  22  MASA 

Patilla    5  D3 

Patilla  23  MASA 

Patilla    6  D4 

Patilla  24  MASA 

Patilla    7  D5 

Patilla  25  MASA 

Patilla    8  D6 

Patilla  26  MASA 

Patilla    9 

Patilla  27  MASA 

Patilla  11  BUSY 

Patilla  28  MASA 

Patilla  14  MASA 

Patilla  33  MASA 

Patilla  16  MASA 

Todas  las  demas:  N/C 

Parte  10:  Impresoras 


Interfaz 


Al  CPC6128  se  le  puede  conectar  cualquier  impresora  que  tenga  'interfaz  paralelo  tipo 
Centronics'  de  7  bits. 

El  cable  es  facil  de  construir,  pues  no  tiene  que  realizar  mas  que  una  conexidn  biunivo- 
ca  entre  el  zocalo  IMPRESORA  del  ordenador  y  el  conector  de  la  impresora.  Notese 
que  en  la  salida  del  ordenador  hay  dos  terminales  menos  que  en  el  conector  de  la  impre- 
sora, con  objeto  de  permitir  la  utilization  de  un  conector  estandar  para  circuito 
impreso. 

Los  detalles  de  las  patillas  del  interfaz  estan  ilustrados  en  la  parte  9  de  este  capitulo. 

El  cable  debe  conectar  el  terminal  1  del  ordenador  con  el  1  de  la  impresora,  el  19  del 
ordenador  con  el  19  de  la  impresora,  etc.  Sin  embargo,  los  terminales  18  y  36  de  la  im- 
presora no  deben  ser  conectados  al  ordenador.  Observese  que  aunque  los  terminales 
de  la  fila  superior  del  zocalo  IMPRESORA  del  ordenador  estan  numerados  del  1  al 
17,  la  numeration  de  la  fila  inferior  empieza  en  el  19,  no  en  el  18,  para  mantener  la 
correspondencia  con  el  conector  de  la  impresora. 

El  ordenador  utiliza  la  serial  BUSY  (patilla  11)  para  sincronizar  con  la  impresora  y  es- 
pera  cuando  esta  esta  en  OFF-LINE  (fuera  de  linea). 
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Para  su  referenda 


No  es  necesario  enviar  a  la  impresora  codigos  de  preparation;  la  salida  del  ordenador 
se  dirige  a  la  impresora  especificando  el  canal  #8. 

La  salida  PRINTER  esta  disenada  para  conectar  impresoras  de  matriz  de  puntos  de 
bajo  costo.  No  obstante,  con  el  interfaz  adecuado,  se  le  pueden  conectar  impresoras 
de  margarita,  plotters  e  impresoras  de  color  por  chorro  de  tinta.  La  compatibilidad  esta 
asegurada  por  el  interfaz  paralelo. 

La  programacion  incorporada  a  la  impresora  AMSTRAD  DMP1  facilita  el  funciona- 
miento  en  modo  grafico  asi  como  los  volcados  de  pantalla. 


Configuration  de  la  impresora 

Se  ha  incluido  una  funcion  que  permite  que  los  caracteres  que  aparecen  en  la  pantalla 
y  pueden  ser  generados  por  la  AMSTRAD  DMP1  se  escriban  en  el  papel  tal  como  se 
los  ve  en  la  pantalla,  aun  cuando  los  codigos  que  tienen  en  el  ordenador  no  coincidan 
con  los  que  tienen  en  la  impresora.  La  mayor  parte  de  estos  signos  solo  esta  disponible 
cuando  en  la  impresora  se  ha  seleccionado  un  idioma  distinto  del  ingles.  Por  ejemplo: 

PRINT  CHR*(&A0) 
A   (en  la  pantalla) 
PRINT  #8,CHR*(&:A0) 
"   (taibien  en  la  iipresora) 

Esto  ocurre  asi  a  pesar  de  que  el  codigo  del  acento  circunflejo  en  la  impresora  es  &5E. 
Dicho  de  otra  forma,  la  programacion  de  la  impresora  ha  reconocido  el  &A0  como  uno 
de  los  codigos  que  tiene  en  su  tabla  de  traduccion  y  lo  ha  convertido  en  &5E  para  escri- 
birlo  con  la  misma  forma  que  en  la  pantalla.  El  codigo  &5E  produce  el  acento  circunfle- 
jo cualquiera  que  sea  el  idioma  seleccionado  (no  se  puede  decir  lo  mismo  de  los  demas 
codigos  que  hay  en  la  tabla  de  traduccion).  Los  restantes  caracteres  de  la  tabla  son  los 
siguientes: 


CHR$ 

Caracter 

en  la 
pantalla 

Traduccion 

en  la 
impresora 

Signo  escrito  en  el  papel 

Reino 
Unido 

EE.UU 

Francia 

Alemania 

Espafia 

&A0 
&A2 
&A3 
&A6 
&AE 
&AF 

A 

R 

§        • 

i 

i 

&5E 

&7B 

&23 

&40 

&5D 

&5B 

A 

t 

£ 

t 
t 
t 

A 

t 
# 

t 
t 
t 

A 

t 
# 
t 
t 
t 

A 

t 
# 

§ 
t 
t 

A 

R 

t 
i 
i 

t  Vease  la  pagina  18  del  manual  de  la  DMP1. 
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La  tabla  anterior  es  un  extracto  de  las  traducciones  imph'citas,  que  se  pueden  modificar 
a  voluntad.  Vease  el  manual  del  firmware  (SOFT  968)  para  mas  detalles. 


Parte  12:  Joysticks 


El  ordenador  puede  funcionar  con  uno  o  dos  joysticks.  La  maquima  los  considera  co- 
mo  parte  del  teclado,  y  por  consiguiente  su  estado  se  puede  determinar  con  IN  KEY  e 
INKEY$. 

Notese  que  en  la  mayor  parte  de  los  casos,  el  boton  principal  de  disparo  del  joystick 
es  interpretado  como  'DISP.2'  por  el  CPC6128. 

Las  funciones  JOY(O)  y  JOY(1)  permiten  inspeccionar  directamente  los  dos  joysticks. 
Cada  una  de  estas  funciones  genera  un  resultado,  interpretable  bit  a  bit,  que  informa 
de  la  situacion  de  los  interruptores  del  joystick  en  el  momento  en  que  se  realizo  la  ulti- 
ma comprobacion  del  teclado. 

La  tabla  siguiente  indica  los  valores  generados  por  los  dos  joysticks.  Ademas  de  los 
niimeros  de  la  funcion  JOY,  se  incluyen  los  niimeros  que  se  deben  utilizar  en  instruc- 
ciones  que  llevan  como  parametro  los  niimeros  de  las  teclas  (tales  como  IN  KEY  y  KEY 
DEF). 


Estado 

Funcion  JOY 

Niimeros  de  tecla 

Bit  que 

Valor 

Primer 

Segundo 

Tecla 

Arriba 

esta  a  1 

generado 

joystick 

joystick 

equivalente 

0 

1 

72 

48 

'6' 

Abajo 

1 

2 

73 

49 

'5' 

Izquierda 

2 

4 

74 

50 

'R' 

Derecha 

3 

8 

75 

51 

CT> 

Disparo  2 

4 

16 

76 

52 

'G' 

Disparo  1 

5 

32 

77 

53 

T' 

Notese  que  cuando  se  generan  los  valores  correspondientes  al  segundo  joystick,  el  orde- 
nador no  puede  saber  si  esos  valores  han  sido  generados  por  el  joystick  o  por  las  teclas 
equivalentes  (ultima  columna  de  la  tabla  anterior).  Esto  representa  que  se  puede  utilizar 
el  teclado  como  sustituto  del  segundo  joystick. 
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Parte  13:  Organization  de  los  discos 


El  BIOS  maneja  tres  formatos  de  disco  diferentes:  formato  SISTEMA,  formato  SOLO 
DATOS  y  formato  IBM.  AMSDOS  detecta  automaticamente  el  formato  cada  vez  que 
accede  a  un  disco  en  el  que  no  haya  ficheros  abiertos.  Para  permitir  esta  detecci6n  auto- 
matica,  en  cada  formato  los  sectores  se  numeran  de  forma  diferente. 

Los  discos  de  3  pulgadas  tienen  dos  caras  utilizables,  aunque  no  al  mismo  tiempo.  Cada 
cara  pu    'e  haber  sido  inicializada  con  un  formato  distinto. 


Comiin  a  todos  los  formatos: 


Una  sola  c    a  (las  dos  caras  del  disco  de  3  pulgadas  se  tratan  por  separado). 
Capacidad  fisica  ■  e  cada  sector:  512  bytes. 
40  pistas,  numeradas  del  0  al  39. 
Tamafio  de  bloque  de        <M:  1024  bytes. 
Directorio  de  64  resenas. 


Formato  SISTEMA 


9  sectores  por  pista,  numerados  del  &41  al  &49. 
2  pistas  reservadas. 

Es  el  formato  principal,  ya  que  CP/M  solo  puede  ser  cargado  con  un  disco  que  tenga 
este  formato.  CP/M  2.2  exige  ademas  que  se  inserte  en  la  unidad  un  disco  con  formato 
de  sistema  para  los  arranques  iniciales.  Las  pistas  reservadas  se  utilizan  de  la  siguiente 
forma: 


Pista  0  sector  &41: 
Pista  0  sector  &42: 
Pista  0  sectores  &43  a  &47 
Pista  0  sectores  &48  y  &49 
Pista  1  sectores  &41  a  &49 


CP/M  2.2 


sector  de  carga  automitica 
sector  de  configuraci6n 
no  utilizadas 

J  CPC  y  BDOS 


CP/M  Plus 


sector  de  carga  automatica  para  CP/M  Plus 


no  utilizadas 


N6tese  que  el  formato  COMERCIAL  es  una  versi6n  especial  del  formato  SISTEMA 
en  la  que  no  se  graban  las  pistas  reservadas.  Este  es  el  formato  en  que  se  graban  los 
programas  que  se  venden  en  el  comercio. 
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Formato  SOLO  DATOS 

9  sectores  por  pista  numerados  del  &C1  al  &C9. 
Ninguna  pista  reservada. 

Este  formato  esta  disenado  para  su  desarrollo  en  el  futuro.  No  se  recomienda  utilizarlo 
con  CP/M  2.2,  pues  no  permite  cargar  el  sistema  operative  No  obstante,  si  solo  se  va 
a  utilizar  el  disco  con  AMSDOS  o  CP/M  Plus,  se  lo  puede  inicializar  con  este  formato 
para  disponer  de  mas  espacio. 


Formato  IBM  (solo  en  CP/M  2.2) 

8  sectores  numerados  del  &1  al  &8. 
1  pista  reservada. 

Este  formato  coincide  con  el  formato  de  una  sola  cara  utilizado  por  el  CP/M  del  IBM 
PC.  El  6128  puede  leer  y  escribir  en  discos  de  este  formato,  pero  no  puede  crearlos  ni 
copiarlos. 


Parte  14:  Ampliaciones  del  sistema 
residentes  (RSX) 

En  el  capitulo  5,  al  hablar  de  AMSDOS,  ya  nemos  mencionado  las  '6rdenes  externas'. 
En  esencia,  una  orden  externa  es  una  forma  de  ampliar  el  repertorio  de  BASIC  afia- 
diendole  instrucciones  nuevas,  todas  las  cuales  van  precedidas  del  signo  ! .  Las  rutinas 
que  llevan  a  cabo  las  acciones  de  las  ordenes  externas  de  AMSDOS  estan  grabadas  en 
la  ROM;  el  ordenador  realiza  todas  las  operaciones  necesarias  para  hacer  accesibles  es- 
tas  6rdenes  cuando  entra  en  BASIC. 

Pero  tambien  es  posible  incorporar  nuevas  ordenes  externas  (cuando  BASIC  esta  ya 
activo)  cargando  las  instrucciones  de  c6digo  de  maquina  adecuadas  en  la  RAM.  Tales 
ordenes  externas  son  las  'ampliaciones  del  sistema  residentes'  (RSX)  y  actiian  exacta- 
mente  igual  que  las  basadas  en  la  ROM.  Las  RSX  nan  de  ser  cargadas  desde  el  disco 
(o  la  cinta)  cada  vez  que  se  entra  en  BASIC.  La  aplicacion  habitual  de  la  RSX  es  el 
control  de  perifericos  'inteligentes',  tales  como  lapiceros  6pticos  o  sintetizadores  de 
voz. 

En  el  capitulo  8  se  explica  como  utilizar  las  RSX  para  acceder  al  segundo  banco  de  64K 
de  memoria  del  6128. 
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Parte  15:  Memoria 


El  CPC6128  dispone  de  128K  de  RAM  y  48K  de  ROM.  Esta  memoria  es  utilizable  por 
BASIC  1 . 1  segiin  se  indica  en  la  figura  siguiente.  El  primer  banco  de  64K  de  RAM  esta 
dividido  nominalmente  en  cuatro  bloques  (de  16K  cada  uno),  numerados  del  0  al  3. 
La  pantalla  utiliza  el  bloque  3;  la  zona  superior  del  bloque  2  esta  dedicada  a  las  varia- 
bles de  sistema,  segiin  se  muestra  en  la  figura. 


PRIMER  BANCO 
DE  64K  DE  RAM 


BL°QUE  3 


eL°auE2 


Bl-QQUl 


El 


B<-QQu 


EO 


SCooo 


S*00 


SEGUNDO  BANCO 
DE  64K  DE  RAM 


'  AREA  DATOS  FIRMWARE 
\  BLOQUE  DE  SALTOS 
AREA  DATOS  BASIC 
|  AREA  DATOS  ROM  DISCO 
1  AREA  DATOS  OTRAS  ROM 


^    AREA  PARA  PROGRAMA  DE  BASIC 


-  basic 


Nota  1.  Depende  de  las  ROM  externas  conectadas.  Es  &A6FC  cuando  no  hay  ninguna 

Mapa  de  memoria  para  BASIC  1.1 


Los  caracteres  definidos  por  el  usuario  estan  inicialmente  inmediatamente  por  encima 
de  HIMEM.  Este  valor  se  puede  modificar  mediante  una  orden  MEMORY;  ademas 
se  reduce  en  4K  automaticamente  para  crear  un  tampon  cada  vez  que  se  abre  un  fiche- 
ro.  El  numero  de  caracteres  definibles  por  el  usuario  (controlado  por  la  orden 
SYMBOL  AFTER  de  BASIC)  solo  se  puede  modificar  si  HIMEM  no  ha  variado  desde 
la  ultima  vez  que  aquel  fue  establecido  (o  si  en  esa  ocasi6n  se  establecio  en  cero,  con 
SYMBOL  AFTER  256).  Cuando  se  entra  en  BASIC,  el  numero  de  caracteres  definibles 
por  el  usuario  se  establece  como  si  se  hubiera  ejecutado  la  orden  SYMBOL  AFTER 
240. 

Por  consiguiente,  antes  de  cambiar  permanentemente  HIMEM,  es  prudente  reducir  a 
cero  la  zona  de  memoria  dedicada  a  los  caracteres  definibles;  despues  se  modifica  HI- 
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MEM  y  finalmente  se  restablece  la  zona  de  caracteres  definibles  al  tamano  deseado. 
De  esta  manera  los  siguientes  programas  podran  ejecutar  nuevas  6rdenes  SYMBOL 
AFTER  ^in  problemas. 

El  siguiente  ejemplo  ilustra  este  metodo,  aplicado  a  la  carga  de  una  RSX: 

100  SYMBOL  AFTER  256  '  anular  memoria  para  caracteres 

de-finibles  por  el  ususaria 
110  direccionrsx=HIMEM-longi tudrsx 
120  MEMORY  direccionrsx-1 
130  LOAD  "codigrsx" , direccionrsx 
140  CALL  direccionrsx  '  inicializar  rsx 
150  SYMBOL  AFTER  140  '  restablecer  espacio  para  carac 
teres  de-finibles 


AREA  DATOS  FIRMWARE 
BLOOUE  DE  SALTOS 
AREA  DATOS  BASIC 
AREA  DATOS  ROM  DISCO 
AREA  DATOS  OTRAS  ROM 


Mapa  de  memoria  con  las  RSX  cargadas  en  la  posicion  recomendada 


Otras  entradas  y  salidas 


La  mayor  parte  de  las  direcciones  de  puertas  de  entrada/salida  (E/S)  esta  reservada  por 
el  ordenador.  En  particular,  las  direcciones  inferiores  a  &7FFF  no  se  deben  utilizar 
nunca. 

Esta  previsto  que  la  parte  de  la  direccion  representada  por  A0-A7  refleje  el  tipo  de  dis- 
positivo  externo  de  E/S,  y  que  las  lineas  de  direccion  A8  y  A9  puedan  ser  decodificadas 
para  seleccionar  registros  dentro  del  dispositivo  de  E/S.  De  las  restantes  lineas,  solo 
A10  puede  ser  decodificada  (a  nivel  'bajo');  las  lineas  All  a  A15  estan  todas  a  nivel 
'alto'.  Asi,  los  registros  de  los  dispositivos  se  pueden  direccionar  como  &F8??,&F9??, 
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&FA??  y  &FB??,  donde  ??  puede  estar  entre  DC  y  FF  para  los  interfaces  de  comunica- 
cion  y  entre  EO  y  FE  para  otros  perifericos. 

Notese  que  se  deben  utilizar  instrucciones  del  Z80  que  pongan  el  registro  B  en  la  mitad 
superior  del  bus  de  direcciones  (A15-A8). 


Memorias  ROM  adicionales 

El  sistema  operativo  esta  preparado  para  seleccionar  ROMs  adicionales  en  lugar  de 
parte  de  la  ROM  interna.  La  logica  de  gestion  de  direcciones  y  de  selection  de  bancos 
estara  en  un  modulo  conectado  al  bus  de  expansion,  pero  todas  las  senates  necesarias 
estan  en  el  corrector  de  expansion. 


Parte  16:  Emulador  de  consola  de  CP/M 
Plus 


En  la  parte  1  de  este  capitulo  hemos  dado  una  tabla  de  caracteres  de  control  con  la 
descripci6n  de  sus  efectos.  Tales  efectos  son  los  que  se  producen  cuando  se  envian  los 
caracteres  a  la  pantalla  de  texto  desde  BASIC  o  desde  CP/M  2.2.  Estas  acciones  han 
sido  elegidas  con  los  criterios  de  sencillez  y  de  conseguir  que  ilustren  algunas  de  las  fun- 
ciones  disponibles  en  el  bloque  de  'Text  VDU'  (pantalla  de  texto)  del  firmware.  Estas 
funciones  son  peculiares  de  los  ordenadores  Amstrad,  y  por  lo  tanto  los  programas  de- 
ben ser  amoldados  a  ellas. 

En  el  contexto  de  las  aplicaciones  comerciales  que  se  programan  para  CP/M  Plus,  es 
normal  esperar  que  los  ordenadores  dispongan  de  ciertas  funciones  estandar  de  control 
de  la  pantalla  de  texto,  de  modo  que  los  programas  sean  facilmente  "trasladables"  de 
una  maquina  a  otra.  La  implementation  de  CP/M  Plus  en  el  CPC6128  incluye  un  emu- 
lador de  consola  que  proporciona  funciones  de  control  similares  a  las  del  terminal  Ze- 
nith Z19/Z29.  El  procedimiento  de  instalacion  de  los  programas  escritos  para  CP/M 
Plus  incluira  normalmente  una  option  para  terminales  de  este  tipo. 

Entre  las  funciones  incorporadas  en  el  emulador  de  consola  de  CP/M  Plus  se  encuen- 
tran  muchas  de  las  antes  ofrecidas  en  el  grupo  'Text  VDU'  del  firmware,  aunque  con 
diferentes  c6digos  de  control.  Pero  en  CP/M  Plus  se  dispone  de  un  numero  considera- 
ble de  operaciones  nuevas  y  mas  complejas. 

Los  caracteres  del  margen  de  &20  a  &FF  se  exhiben  en  la  pantalla  en  la  position  actual 
del  cursor.  Ademas,  si  el  cursor  no  esta  en  la  ultima  columna,  se  lo  desplaza  una  posi- 
cion a  la  derecha;  si  el  cursor  esta  en  la  ultima  columna  y  esta  activada  la  continuidad 
de  las  lineas,  se  lo  coloca  en  la  primera  columna  de  la  linea  siguiente,  desplazando  la 
pantalla  hacia  arriba  si  es  necesario. 
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Los  caracteres  del  margen  de  &00  a  &1F  se  interpretan  como  codigos  de  control,  segiin 
la  siguiente  tabla: 


&07 
&08 


BEL 
BS 


Produce  un  pitido. 

Retroceso  del  cursor.  Mueve  el  cursor  una  posici6n  hacia  la  izquierda. 
Si  el  cursor  esta  en  la  primera  colurrma  (pero  no  en  la  primera  fila)  y 
esta  activada  la  continuidad  de  las  lineas,  se  lo  coloca  en  la  ultima  co- 
lumna  de  la  fila  anterior. 

Avance  de  linea.  Se  baja  el  cursor  a  la  linea  siguiente,  desplazando  la 
pantalla  hacia  arriba  si  es  necesario. 

Retorno  del  carro.  Lleva  el  cursor  a  la  primera  columna  de  la  fila 
actual. 

Se  ignoran  todos  los  demas  codigos  de  control. 


&0A    LF 


&0D     CR 


El  emulador  de  consola  reconoce  las  siguientes  secuencias  de  'escape'.  Todos  los  demas 
caracteres  son  exhibidos  en  la  pantalla  (con  el  consiguiente  avance  del  cursor)  aunque 
vayan  precedidos  del  codigo  de  escape.  Gracias  a  esta  caracteristica  es  posible  enviar 
a  la  pantalla  los  caracteres  visibles  correspondientes  a  los  codigos  de  control  del  &00 
al  &1F.  (Observese,  no  obstante,  que  en  muchas  aplicaciones  se  reinterpreta  el  c6digo 
de  control  &09  (TAB)  para  que  signifique  cierto  numero  de  espacios;  en  tales  casos  la 
secuencia  [ESC] [TAB]  no  visualizara  el  caracter  &09.) 


[ESC]0  Desactiva  la  linea  indicadora  de  estado.  Los  mensajes  del  sistema 

de  disco  aparecen  en  la  pantalla  principal,  en  la  cual  puede  utilizar 
tambien  la  ultima  linea. 

[ESC]1  Activa  la  linea  de  estado.  Los  mensajes  del  sistema  de  disco  apare- 

cen en  la  ultima  linea  de  la  pantalla. 

[ESC]2<n>  Selecciona  un  juego  de  caracteres  (vease  la  parte  16  de  este  capitu- 

lo).  <n>  es  el  parametro  selector  de  idioma,  que  se  enmascara  con 
&07.  La  accion  consiste  en  intercambiar  ciertas  matrices  de  caracte- 
res del  margen  de  &20  a  &7F  con  otras  del  margen  de  &80  a  &FF; 
es  muy  similar  a  la  que  se  realiza  con  impresoras  que  disponen  de 
varios  juegos  de  caracteres  seleccionables  por  programa. 
<n>=0  EE.UU. 
<n>  =  l  Francia 
<n>=2  Alemania 
<n>=3  Reino  Unido 
<n>=4  Dinamarca 
<n>=5  Suecia 
<n>=6  Italia 
<n>=7  Espafla 
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[ESC]3<m>  Selecciona  el  modo  de  pantalla.  <m>=modo+&20.  El  valor  se  en- 
mascara  con  &3  para  limitarlo  al  margen  de  0  a  2.  El  modo  3  se  igno- 
ra.  Se  borra  la  pantalla,  pero  no  se  modifica  la  posicion  del  cursor. 

[ESC] A  Cursor  arriba.  Si  ya  esta  en  la  primera  lfnea,  ningiin  efecto. 

[ESC]B  Cursor  abajo.  Si  ya  esta  en  la  ultima  linea,  ningiin  efecto. 

[ESC]C  Cursor  a  la  derecha.  Si  ya  esta  en  la  ultima  columna,  ningiin  efecto. 

[ESC]D  Cursor  a  la  izquierda.  Si  ya  esta  en  la  primera  columna,  ningiin 

efecto. 

[ESC]E  Borrar  pagina.  La  posicion  del  cursor  no  se  modifica.  Esta  secuencia 

borra  la  pagina  entera,  aunque  se  haya  seleccionado  el  modo 
de  24x80.  (Hay  otros  codigos  de  escape  que  solo  afectan  al  area 
24x80  cuando  esta  seleccionado  este  modo.) 

[ESC]H  Cursor  a  la  posicion  inicial.  Lleva  el  cursor  a  la  primera  columna  de 

la  primera  fila. 

[ESC] I  Retroceso  de  linea.  Sube  el  cursor  a  la  linea  anterior,  desplazando 

la  pantalla  hacia  abajo  si  es  necesario. 

[ESC]  J  Borrar  hasta  el  final  de  la  pagina  (incluido  el  caracter  que  esta  en  la 

posicion  del  cursor).  No  se  modifica  la  posicion  del  cursor. 

[ESC]K  Borrar  hasta  el  final  de  la  linea  (incluido  el  caracter  que  esta  en  la 

posicion  del  cursor).  No  se  modifica  la  posicion  del  cursor. 

[ESC]L  Insertar  linea.  La  linea  en  la  que  esta  el  cursor  y  todas  las  siguientes 

se  desplazan  hacia  abajo;  se  borra  la  linea  del  cursor;  la  posicion  de 
este  no  se  modifica. 

[ESC]M  Suprimir  linea.  La  linea  en  la  que  esta  el  cursor  se  pierde;  todas  las 

siguientes  se  desplazan  hacia  arriba;  se  borra  la  ultima  linea;  la  posi- 
cion del  cursor  no  se  modifica. 

[ESC]N  Suprimir  caracter.  Todos  los  caracteres  que  estan  a  la  derecha  del 

cursor,  en  su  misma  linea,  se  desplazan  una  posicion  hacia  la  izquier- 
da. El  caracter  de  la  ultima  columna  queda  en  bianco. 

[ESC]Y<1>  <c>  Lleva  el  cursor  a  la  posicibn  especificada.  Si  esa  posicibn  sobrepasa 
algiin  borde  de  la  pantalla,  el  cursor  se  queda  en  el  borde  correspon- 
diente.  <l>=linea+&20;  <c>=columna+&20.  El  extremo  superior 
izquierdo  es  linea  0,  columna  0. 

[ESC]b<pc>  Establece  color  de  pluma.  Afecta  a  todos  los  caracteres  presentes  en 
la  pantalla.  El  parametro  de  color,  <pc>,  se  enmascara  con  &3F  y 
luego  se  lo  interpreta  como  tres  niimeros  de  2  bits  que  especifican 
las  intensidades  de  los  tres  colores  primarios:  los  bits  0  y  1  para  el 
azul,  los  bits  2  y  3  para  el  rojo  y  los  bits  4  y  5  para  el  verde.  El  6128 
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proporciona  tres  niveles  de  intensidad,  que  se  especifican  de  la  siguiente  forma: 
CPC6128       Intensidad  nula      Intensidad  media      Intensidad  maxima 


Bits  para 
cada  color 


00  (binario)         01  o  10  (binario) 


11  (binario) 


[ESC]c<pc>      Establece  color  de  fondo.  Afecta  tanto  al  fondo  como  al  borde  de  la 
pantalla.  Los  colores  se  especifican  como  en  la  secuencia  anterior. 

[ESC]d  Borrar  desde  el  principio  de  la  pagina  (hasta  la  posicion  del  cursor  in- 

clusive). No  se  modifica  la  posicion  del  cursor. 

[ESC]e  Activa  el  cursor.  Para  evitar  el  molesto  parpadeo  que  de  otra  forma 

se  produciria,  el  cursor  esta  inhibido  durante  la  escritura  normal  del 
texto  y  solo  se  lo  activa  una  decima  de  segundo  despues  de  escribir 
el  ultimo  caracter. 

[ESC]f  Inhibe  el  cursor. 

[ESC]j  Almacenar  la  posicion  del  cursor. 

[ESC]k  Restablecer  la  posicion  del  cursor  almacenada  por  [ESC]j. 

[ESC]1  Borrar  linea.  No  se  modifica  la  posicion  del  cursor. 

[ESC]o  Borrar  desde  el  principio  de  la  linea  (hasta  la  posicion  del  cursor  in- 

clusive). No  se  modifica  la  posicion  del  cursor. 

[ESC]p  Activar  el  modo  de  imagen  invertida  ('video  inverso').  Los  caracteres 

visibles  se  escriben  con  los  colores  de  fondo  y  pluma  invertidos. 

[ESC]q  Desactivar  el  modo  de  imagen  invertida. 

[ESC]r  Activar  el  modo  de  subrayado.  (No  disponible  en  el  CPC6128.) 

[ESC]u  Desactivar  el  modo  de  subrayado.  (No  disponible  en  el  CPC6128.) 

[ESC]v  Activa  la  continuidad  de  las  h'neas.  Cuando  los  caracteres  enviados 

a  la  pantalla  sobrepasan  la  ultima  columna  de  una  linea,  siguen  apare- 
ciendo  al  principio  de  la  linea  siguiente. 

[ESC]w  Desactiva  la  continuidad  de  las  h'neas.  Cuando  los  caracteres  enviados 

a  la  pantalla  sobrepasan  la  ultima  columna  de  una  h'nea,  se  los  ignora. 

[ESC]x  Activa  el  modo  24x80.  Algunos  programas  requieren  la  pantalla  es- 

tandar  de  24  filas  por  80  columnas.  Esta  secuencia  selecciona  esa  pan- 
talla, independientemente  de  cual  sea  el  tamaflo  total  de  la  pantalla 
(que  depende  de  la  maquina),  del  pais  y  de  si  la  h'nea  de  estado  esta 
activada  o  desactivada.  Se  borra  la  pantalla. 

[ESC]y  Desactiva  el  modo  24x80.  Se  borra  la  pantalla. 
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Parte  17:  Juego  de  caracteres  de  CP/M  Plus 


En  la  parte  10  de  este  capitulo  hemos  descrito  una  tabla  de  traduction  para  impresoras. 
El  fin  de  esta  tabla  es  convertir  algunos  caracteres  del  juego  de  BASIC  y  CP/M  2.2 
a  una  forma  tal  que  puedan  ser  escritos  por  la  impresora  cuando  en  ella  se  ha  realizado 
cierta  selection  de  idioma.  Esta  funcion  esta  limitada  por  el  hecho  de  que  pocos  de  los 
caracteres  internacionales  de  las  impresoras  aparecen  en  el  juego  de  caracteres  de 
BASIC. 

Aunque  este  metodo  sigue  funcionando  en  CP/M  Plus,  se  lo  ha  ampliado  hasta  permi- 
tir  una  correspondencia  casi  absoluta  entre  los  caracteres  visibles  en  la  pantalla  y  los 
de  la  impresora.  (El  caracter  visible  que  falta  es  el  signo  monetario  sueco,  que  deberia 
figurar  en  lugar  de  '$'.)  La  distribution  de  caracteres  por  idiomas  es  la  siguiente: 


23  24  40  5B  5C  5D  5E  60  7B  7C  7D  7E 


Juego  internacional  de  caracteres  de  CP/M  Plus 

Para  adaptar  la  maquina  a  un  idioma  determinado  se  debe  hacer  lo  siguiente: 

1.  Seleccionar  el  idioma  en  la  impresora  (generalmente  mediante  microconmutadores 
basculantes,  aunque  en  algunas  impresoras  la  selection  se  puede  realizar  por  progra- 
ma  enviandole  codigos  de  control). 
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2.  Seleccionar  el  juego  de  caracteres  deseado,  bien  mediante  la  orden  transitoria 
LANGUAGE    <n> 
bien  enviando  la  secuencia 
[ESC]2<n> 

al  emulador  de  consola. 

En  la  practica,  esta  inicializacion  se  suele  programar  en  el  procedimiento  PROFI- 
LE.SU B  mediante  las  funciones  LANGUAGE  y  SETKEYS.  El  CP/M  Plus  se  suminis- 
tra  con  el  juego  de  caracteres  numero  0  (EE.UU.)  preseleccionado,  ya  que  en  la  tecla 
del  '3'  esta  grabado  el  signo  '#'. 


Juegos  de  caracteres  de  7  bits 

Por  util  que  sea  esta  posibilidad  de  seleccionar  juegos  de  caracteres,  debemos  resaltar 
que  los  caracteres  estandar  (EE.UU.)  reemplazados  por  caracteres  de  otros  idiomas  de- 
jan  de  ser  visualizables.  Esto  es  inevitable  cuando  se  manejan  juegos  de  caracteres  de 
7  bits.  Practicamente  todos  los  programas  disponibles  para  CP/M  Plus  (incluidos  casi 
todos  los  programas  de  ayuda  y  los  procesadores  de  texto)  trabajan  con  un  juego  de 
caracteres  de  7  bits.  En  el  Reino  Unido  se  acepta  que  el  signo  '#'  desaparezca  para  ser 
sustituido  por  el  '£',  no  solo  en  proceso  de  textos,  donde  es  deseable,  sino  tambien  en 
los  listados  de  programas,  v.g.  LIST  £8,  donde  no  lo  es.  Con  el  tiempo  el  usuario  llega 
a  habituarse  a  hacer  mentalmente  la  transformation  de  un  signo  a  otro. 

Pero  en  otros  idiomas  los  cambios  son  mas  perturbadores.  Los  signos  nuevos  reempla- 
zan  caracteres  tan  necesarios  como  la  barra  vertical  y  los  corchetes.  A  pesar  de  la  mejo- 
ra  de  la  legibilidad  de  los  textos  gracias  a  los  acentos,  en  las  situaciones  en  las  que  el 
programa  requiere  la  barra  y  los  corchetes  (por  ejemplo,  DIR  [ALL]  la  legibilidad  que- 
da  notablemente  reducida.  Lo  mismo  se  puede  decir  de  la  facilidad  de  escritura,  si  se 
han  cambiado  algunas  teclas  para  adaptarlas  al  nuevo  juego  de  caracteres. 

Recuerde  que  los  programas  trabajan  con  codigos  ASCII  y  son  totalmente  indiferentes 
a  la  forma  que  puedan  tener  los  caracteres  en  la  pantalla.  Lo  que  ocurre  con  los  juegos 
de  caracteres  de  7  bits  es,  sencillamente,  que  no  hay  codigos  suficientes  para  cubrir  to- 
das  las  necesidades. 
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Juegos  de  caracteres  de  8  bits 


El  juego  de  caracteres  de  BASIC  tiene  256  simbolos  diferentes;  los  codigos  del  128  al 
255  (&80  a  &FF)  representan  diversos  simbolos  graficos  de  aplicacion  en  programas  de 
juegos  e  informatica  domestica.  En  CP/M  Plus  tambien  hay  256  caracteres,  pero  los 
128  ultimos  son  distintos  de  los  de  BASIC;  estan  diseflados  para  aplicaciones  comercia- 
les  y  para  la  generation  de  juegos  especificos  por  idiomas: 

0123456789ABCDEF  0  1  2  3  4  5  6  7  89  A  B  C  D  E  F 

0  Hir&s«fsilifiiil   s  illlililllililil 

1  ei086c9]iplllll!li        9    llllillllSllllll 

2  !"tt*/.&'()*+,  --^        a   lllllllliilliiii 

3  oia3458iiiiiiill   b  liillilliliiilil 

4  0ABCDEF Slllillll   c lllllllllllltlll 

5  P§||llllllllllll   d lllllilliliillli 

6  ^iiiiiiillllliii   e  lilllilllllillii 

7  P3iiliiiiiilllli   f  iillliilillliiii 

Caracteres  del  0  al  127  (&00  a  &7F)  Caracteres  del  128  al  255  (&80  a  &FF) 


Juego  de  caracteres  estandar  (EE.UU.)  de  CP/M  Plus 


Los  programas  capaces  de  trabajar  con  juegos  de  caracteres  de  8  bits  disponen  de  este 
juego  completo  y  podran,  no  s61o  dibujar  recuadros,  sino  tambien  acceder  a  los  carac- 
teres especiales  de  todos  los  idiomas,  sin  encontrar  los  problemas  que  describiamos  en 
la  section  anterior. 

En  la  actualidad  hay  muy  pocos  programas  preparados  para  trabajar  con  juegos  de  ca- 
racteres de  8  bits.  Los  caracteres  de  los  margenes  de  0  a  31  y  de  128  a  255  tendran  el 
aspecto  que  se  muestra  en  la  figura  anterior  solamente  en  la  pantalla.  En  la  impresora 
seran  distintos,  pues  los  fabricantes  de  impresoras  tienen  sus  propias  ideas  sobre  el  dise- 
flo  de  juegos  de  caracteres. 
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Capitulo  8 

Mas  sobre  el  gestor  de  bancos  de  memoria 


Utilization  por  BASIC  del  segundo  banco  de  64K 
de  RAM. 

Temas  tratados: 

*  Almacenamiento  de  imageries  de  pantalla 

*  Pseudoficheros 

El  mapa  de  memoria  de  BASIC  1 . 1  que  vimos  en  el  capitulo  anterior,  parte  14,  muestra 
que  BASIC  no  utiliza  64  de  los  128K  de  RAM.  BASIC  y  el  firmware  residen  en  una 
ROM;  si  a  esta  se  aflade  la  ROM  del  sistema  de  disco,  resulta  que  la  memoria  utilizable 
desde  BASIC  es  112K  en  total  (64K  de  RAM  y  48K  de  ROM). 

Cada  section  de  16K  es  un  'bloque';  un  grupo  de  4  bloques  (64K)  es  lo  que  se  denomina 
'banco'.  La  tecnica  de  seleccion  de  bloques  se  llama,  pues,  'conmutacion  de  bancos'. 

El  microprocesador  Z80  no  puede  direccionar,  en  un  momento  dado,  mas  de  64K.  Por 
esa  razon  el  sistema  operativo  esta  preparado  para  utilizar  la  ROM  del  firmware  en  lu- 
gar  del  bloque  0  de  RAM,  o  las  ROM  de  BASIC  o  del  sistema  de  disco  en  lugar  del 
bloque  3  de  RAM.  Esta  conmutacion  se  realiza  automaticamente  cada  vez  que  se  deben 
ejecutar  rutinas  de  BASIC  o  del  firmware. 

Pues  bien,  la  seleccion  de  bancos  de  RAM  no  es  mas  que  una  generalization  de  este 
metodo.  La  conmutacion  la  realiza  un  programa  escrito  en  ensamblador. 

En  la  cara  1  del  juego  de  discos  del  sistema  se  incluye  el  programa  BANKMAN.BAS. 
Este  programa  se  ejecuta  desde  BASIC;  su  objeto  es  instalar  la  RSX  que  proporciona 
las  ordenes  externas  de  gestion  de  bancos. 

Una  aplicacion  del  segundo  banco  de  64K  es  el  almacenamiento  temporal  de  imagenes 
de  pantalla;  por  ejemplo,  en  un  programa  'disenador  de  pantallas'  que  almacene  varias 
pantallas  diferentes,  o  un  videojuego  que  tenga  preparadas  varias  pantallas  para  mos- 
trarlas  inmediatamente  cuando  las  necesite. 

Otra  aplicacion  del  segundo  banco  de  64K  es  la  ampliacion  del  espacio  dedicado  a  las 
variables;  este  espacio  adicional  se  puede  considerar  como  ampliacion  del  espacio  reser- 
vado  a  las  matrices  literales  o  como  "disco  de  RAM"  ('Ramdisc'). 


Mas  sobre  el  gestor  de  bancos  de  memoria  8/1 


Parte  1:  Almacenamiento  de  imagenes  de 
pantalla 


El  gestor  de  bancos  puede  'desconectar'  el  bloque  1  de  RAM  y  poner  en  su  lugar  uno 
cualquiera  de  los  cuatro  bloques  de  16K  de  que  consta  el  segundo  banco.  La  figura  si- 
guiente  muestra  en  que  consiste  esta  conmutacion.  Observe  que  los  cuatro  bloques  del 
segundo  banco  estan  todos  en  el  mismo  grupo  de  direcciones,  de  &4000  a  &7FFF.  El 
contenido  del  bloque  1  (normalmente  ocupado  por  instrucciones  de  BASIC)  no  se  pier- 
de,  sino  que  es  restaurado  cuando  el  gestor  de  bancos  termina  su  trabajo.  Ademas  de 
las  cinco  conmutaciones  de  bancos  ilustradas  en  la  figura,  hay  otras  tres  posibles,  pero 
s61o  se  las  utiliza  en  CP/M. 


Conmutacion  de  bancos  por  hardware 


El  gestor  de  bancos  dispone  de  dos  ordenes  externas  con  las  que  se  pueden  transferir 
pantallas  completas  de  un  bloque  a  otro;  estas  ordenes  conmutan  automaticamente  los 
bloques  4  a  7  cuando  es  necesario  y  dejan  restablecido  el  bloque  1. 
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La  orden 

ISCREENSWAP.Kseccion  de  pantalla),  Kiuero  de  pantalla),  <nuiero  de  pantalla) 

intercambia  el  contenido  de  dos  bloques,  mientras  que 

S  SCREENCOPY,  [<seccion  it  pantalla)l ,  <ituiera  de  pantalla  destino), 

<nmero  de  pantalla  fuente) 

copia  el  contenido  de  un  bloque  en  otro. 

El  parametro  opcional  <  section  de  pantalla)  hace  que  la  transferencia  de  information 
se  realice  por  tramos  de  1/64  de  pantalla  (256  bytes  del  total  de  16K).  Asi  pues,  el  para- 
metro puede  tener  cualquier  valor  comprendido  entre  0  y  63.  Este  metodo  de  operaci6n 
es  util  cuando  se  necesita  mezclar  alguna  otra  tarea  con  la  de  transferencia  de  pantallas. 
El  tiempo  de  ejecucion  de  un  intercambio  de  pantallas  es  de  aproximadamente  150/300 
segundos  (150  unidades  de  la  variable  TIME). 

Los  <numeros  de  pantalla)  son  numeros  cualesquiera  del  margen  de  1  a  5.  (La  pantalla  1 
es  la  visible.)  Las  operaciones  de  copia  e  intercambio  en  las  que  interviene  la  pantalla  1 
son  mucho  mas  rapidas  que  las  otras.  Tenga  cuidado  con  el  efecto  de  'desplazamiento 
vertical  por  hardware',  que  ya  puede  haber  experimentado  al  trabajar  con  volcados  de 
pantalla.  Se  debe  procurar  que  todas  las  imagenes  de  pantalla  se  construyan  (y  visuali- 
cen)  con  la  pantalla  1  en  la  misma  position  de  hardware.  La  posici6n  mas  sencilla  es 
la  establecida  por  una  orden  MODE. 


Ejemplos  de  transferencias  de  pantallas 

Cargue  y  ejecute  el  programa  BAN  KM  AN  con  la  orden 

RUN    "BANKMAN" 
Escriba 

MODE    1 

con  lo  que  se  borra  la  pantalla.  Ahora  escriba 

'  Esta  es  la  pantalla  original 

! SCREENCOPY, 3, 1  'Pantalla  original  va  a  la  memoria  3 

CLS 
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La  pantalla  se  ha  vuelto  a  borrar.  Escriba  ahora 

'  Esta  es  la  pantalla  intermedia 

!SCREENC0PY,2,1  'Pantalla  intermedia  va  a  memoria  2 

!SCREENSWAP,2,3  'Intercambia  memorias  2  y  3 

ISCREENCOPY, 1,3  'Recupera  pantalla  intermedia  desde  memoria  3 

!SCREENSWAP,2,3  'Recupera  pantalla  original  desde  memoria  2 

Al  final  del  capftulo  9  damos  un  completo  programa  'disenador  de  pantallas'  que  utili- 
za  las  funciones  de  transferencia  de  pantallas  proporcionadas  por  el  gestor  de  bancos. 


Parte  2:  Ficheros  en  RAM 


Considerado  como  'RAMdisc',  el  segundo  banco  de  64K  de  RAM  se  puede  organizar 
en  forma  de  fichero,  con  cierto  numero  de  registros  de  longitud  fija.  La  longitud  de 
registro  puede  ser  de  entre  0  y  255  bytes,  si  bien  2  bytes  es  el  minimo  recomendable. 
Una  vez  establecida  la  'longitud  de  registro',  cada  registro  es  accesible  para  operaciones 
de  escritura  y  lectura  por  su  'numero  de  registro'.  Es  perfectamente  posible  escribir  en 
un  fichero  de  RAM  con  una  longitud  y  luego  leer  con  otra  distinta. 

Nota.  El  fichero  de  RAM  solo  puede  contener  datos;  no  esta  prevista  su  utilization  para  almace- 
nar  instrucciones  de  programa. 

Al  igual  que  en  los  sistemas  de  ficheros  de  acceso  aleatorio  en  disco,  aqui  existe  tambien 
el  concepto  de  'mimero  de  registro  actual'.  Este  numero  se  mantiene  siempre  actualiza- 
do,  y  es  litil,  por  consiguiente,  cuando  se  recorre  el  fichero  avanzando  automaticamen- 
te  de  cada  registro  al  siguiente. 

La  orden 

:BANKOPEN,<  longitud  de  registro) 

establece  la  longitud  de  registro  e  inicializa  el  'numero  de  registro  actual'  (a  0),  pero 
no  borra  memoria. 

La  orden 

iBANKWRITE,@<codigo  generado) , <expresioi  literal)!,  <Miero  de  registro)] 

escribe  la  <expresion  literal)  en  el  fichero.  El  <mimero  de  registro)  especifica  en  que 
registro  se  debe  escribir.  Si  se  omite  este  parametro,  se  escribe  en  el  numero  de  registro 
actual.  Finalmente,  se  actualiza  este  numero  (sumandole  1). 
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Si  la  <expresion  literal)  no  llena  el  registro,  los  caracteres  antiguos  sobre  los  que  no 
se  ha  escrito  seguiran  estando  en  el  registro.  Si  la  <expresion  literal)  es  demasiado  lar- 
ga,  se  ignoran  los  caracteres  restantes  para  no  'corromper'  el  registro  siguiente. 

El  <codigo  generado)  es  una  variable  entera  a  traves  de  la  cual  se  puede  conocer,  al 
concluir  la  operation,  el  numero  de  registro  en  el  que  se  ha  escrito  (si  la  escritura  se 
ha  realizado  con  exito)  o  un  numero  de  error  (negativo)  si  la  escritura  ha  fracasado: 

- 1  indica  que  se  ha  alcanzado  el  final  del  fichero  (se  ha  intentado  sobrepasar  el 

final  de  los  64K) 
-2  indica  un  error  de  conmutacion  de  bancos  (no  deberia  ocurrir  nunca) 

Ejemplos: 

:bankopen,i0 

IBANKWRITE,@r%,"123   pruebas",0 
!BANKWRITE,@r%,w* 

La  orden 

i  BANKREAD ,  @<codigo  generado) ,  (Kvariable  literal)! ,  <imiero  de  registro)] 

lee  un  registro  y  asigna  su  contenido  a  la  < variable  literal). 

El  < numero  de  registro)  especifica  en  que  registro  se  debe  leer.  Si  se  omite  este  parame- 
tro,  se  lee  en  el  numero  de  registro  actual.  Finalmente,  se  actualiza  este  numero  (su- 
mandole  1). 

Si  el  contenido  del  registro  no  llena  completamente  la  < variable  literal),  los  caracteres 
antiguos  sobre  los  que  no  se  ha  escrito  seguiran  estando  en  la  < variable  literal).  Si  el 
contenido  del  registro  es  mas  largo  que  la  < variable  literal),  se  ignoran  los  caracteres 
restantes,  ya  que  no  es  posible  aumentar  la  longitud  de  la  variable  mediante  una  orden 
externa. 

El  <codigo  generado)  es  una  variable  entera  a  traves  de  la  cual  se  puede  conocer,  al 
concluir  la  operaci6n,  el  numero  de  registro  en  el  que  se  ha  leido  (si  la  lectura  se  ha 
realizado  con  exito)  o  un  numero  de  error  (negativo)  si  la  lectura  ha  fracasado: 

- 1  indica  que  se  ha  alcanzado  el  final  del  fichero  (se  ha  intentado  sobrepasar  el 

final  de  los  64K) 
-2  indica  un  error  de  conmutacion  de  bancos  (no  deberia  ocurrir  nunca) 

Ejemplo: 

! BANKREAD, @r%,i*,0 
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Biisquedas 

Se  puede  recorrer  el  fichero  en  busca  de  un  dato  determinado.  La  orden 

!  BANKFIND,  Skodigo  generado) ,  <cadena  buscada) I  ,  <nuiero  de  registro  inicial) 

[,<nuiero  de  registro  final)]] 

examina  los  registros  especificados.  El  (numero  de  registro  inicial)  especifica  el  regis- 
tro a  partir  del  cual  debe  comenzar  la  busqueda.  Si  se  omite  este  parametro,  se  toma 
por  defecto  el  numero  de  registros  actual. 

La  busqueda  contimia,  a  saltos  de  (longitud  de  registro),  hasta  que  se  encuentra  la  ca- 
dena  o  hasta  que  se  agotan  los  64K. 

Si  se  especifica  el  (numero  de  registro  final) ,  la  busqueda  termina  cuando  se  ha  exami- 
nado  ese  registro  (a  menos  que  se  haya  encontrado  la  cadena  antes). 

Si  la  busqueda  concluye  con  exito,  el  'numero  de  registro  actual'  apunta  al  registro 
donde  se  ha  encontrado  la  cadena;  si  no,  sigue  teniendo  el  valor  anterior. 

El  (codigo  generado)  es  una  variable  entera  que  contiene,  al  terminar  la  operaci6n, 
information  sobre  como  se  ha  desarrollado  esta.  Si  ha  concluido  con  exito,  contiene 
el  numero  de  registro  en  el  que  encontro  la  cadena;  si  no,  contiene  un  numero  negativo 
que  es  un  codigo  de  error: 

- 1  Fin  del  fichero.  El  (numero  de  registro  inicial)  sobrepasa  el  final  de  los  64K, 

o  bien  es  mayor  que  el  (numero  de  registro  final). 
-2  Error  de  conmutacion  de  bancos  (no  deberia  ocurrir  nunca). 
-3  No  se  ha  encontrado  la  cadena  buscada. 

La  (cadena  buscada)  puede  contener  simbolos  comodfn,  que  en  este  caso  son  caracte- 
res  numero  0,  chr$(0).  El  numero  de  caracteres  que  intervienen  en  las  comparaciones 
es  igual  a  la  (longitud  de  registro)  o  a  la  longitud  de  la  (cadena  buscada) ,  el  mas  corto 
de  los  dos. 

Ejemplos: 

! BANKFIND, @r%, "123  pru",0 
! BANKFIND, @r%,f*, 100,200 


Cuidado  con  los  errores 

Los  errores  obvios,  tales  como  poner  demasiados  parametros,  son  detectados  e  identifi- 
cados  como  Bad  Command.  Sin  embargo,  el  mecanismo  de  las  ordenes  externas  no 
permite  detectar  errores  del  tipo  Type  mismatch,  por  lo  que  el  usuario  debe  cerciorar- 
se  de  que  esta  utilizando  parametros  de  la  forma  correcta. 


8/6  Mas  sobre  el  gestor  de  bancos  de  memoria 


El  siguiente  programa  utiliza  las  ordenes  de  RAMdisc  para  examinar  una  base  de  datos 
que  contiene  permutaciones  de  letras  formadas  con  palabras  de  7  letras.  Busca  concor- 
dancias  y  permite  utilizar  simbolos  comodin. 

Por  ejemplo,  las  permutaciones  de  la  palabra  CENTRAL  que  concuerdan  con 
7NACE??  (puede  omitir  los  dos  ultimos  simbolos  ?)  son  TNACERL,  TNACELR, 
RNACETL,  RNACELT,  LNACETR  y  LNACERT. 

Se  tarda  bastante  en  crear  la  base  de  datos,  pero  es  que  64K  es  mucha  memoria. 

10  'REVUELTO  DE  LETRAS,  por  ROLAND  PERRY 

20  '  copyright  (c)  AMSOFT  1985 

30  ' 

40  'No  olvide  RUN  "BANKMAN"  antes  de  ejecutar  este  pr 

ograma 
50  '  ************* 

60  ' 

70  MODE  2 
80  DEFINT  a-z 
90  r%=0: !BANK0PEN,7 

100  INPUT"Que  palabra  de  7  letras  quiere  revolver "; s* 
110  IF  LEN(s*)<>7  THEN  100 
120  PRINT"Por  -favor,  espere  un  rato." 
130  LOCATE  l,5:PRINT"Sigo  trabajando: " 
140  FOR  cl=l  TO  7 
150  FOR  c2=l  TO  7 
160  IF  c2=cl  THEN  370 
170  FOR  c3=l  TO  7 
180  IF  c3=c2  OR  c3=cl  THEN  360 
190  FOR  c4=l  TO  7 

200  IF  c4=c3  OR  c4=c2  OR  c4=cl  THEN  350 
210  FOR  c5=l  TO  > 

220  IF  c5=c4  OR  c5=c3  OR  c5=c2  OR  c5=cl  THEN  340 
230  FOR  c6=l  TO  7 
240  IF  c6=c5  OR  c6=c4  OR  c6=c3  OR  c6=c2  OR  c6=cl  THEN 

330 
250  FOR  c7=l  TO  7 
260  IF  c7=c6  OR  c7=c5  OR  c7=c4  OR  c7=c3  OR  c7=c2  OR  c 

7=cl  THEN  320 
270  o*=MID*(s*,cl,  l)+MID*(s*,c2,  1 ) +MID*(s*, c3,  D+MID* 

(s*,c4,  D+MID*(s*,c5,  l)+MID*(s*,c6,l)+MID*(s*,c7, 

1) 
280  LOCATE  18, 5: PRINT  x J o* 
290  !BANKWRITE,r%,o* 
300  IF  r%<0  THEN  STOP 
310  x  =  x  +  l 
320  NEXT  c7 
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330  NEXT  c6 

340  NEXT  c5 

350  NEXT  c4 

360  NEXT  c3 

370  NEXT  c2 

380  NEXT  cl 

390  ultimoreg=r% 

400  REM  ahora  vamos  a  buscar 

410  r%=0:g*=SPACE*(7) 

420  PRINT: INPUT"Que  subpalabra  quiere  buscar  (puede  e 

scribir  ?  como  simbolo  conodin)  ",m* 
430  m*=LEFT*(m*,7) 
440  FOR  x=l  TO  LEN(m$) 

450  IF  MID*(m*,x,l)="?"THEN  MID* (m$, x , 1 ) =CHR* (0) 
460  NEXT 

470  :BANKFIND,r-%,m*,0,ultimoreg 
480  IF  r%<0  THEN  420 
490  !BANKREAD,r-%,g* 
500  PRINT  g*, 

510  !  BANKFIND,  r-%, m*,  r%+l ,  ul  t  imoreg 
520  GOTO  480 
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Capitulo  9 
Cuando  usted  guste 


En  este  capitulo  vamos  a  dar  un  repaso  a  ciertas  cuestiones  bdsicas  de 
informdtica  en  general  y  del  CPC6128  en  particular.  No  es  imprescindi- 
ble  leer  este  capitulo  para  trabajar  con  el  ordenador,  pero  puede  ayudar- 
le  a  entender  algo  de  lo  que  estd  ocurriendo  en  su  interior. 


Parte  1:  En  terminos  generates 
jFulmina  el  bicho! 


Aun  cuando  lo  linico  que  le  interese  de  su  CPC6128  sea  disfrutar  de  los  sofisticados 
juegos  de  ordenador  que  se  venden  en  las  tiendas,  es  posible  que  se  pregunte  que  tiene 
la  maquina  dentro,  es  decir,  que  es  eso  del  hardware. 

Hardware  es  lo  que  usted  puede  coger  y  llevarse  bajo  el  brazo  (es  un  decir):  la  caja  gris 
donde  esta  el  teclado,  el  monitor,  los  cables,  etc.  Mas  en  general,  todo  lo  que  no  sea 
especificamente  software:  programas,  manuales  e  informacion  grabada  en  cinta  o  en 
disco. 

Ciertos  aspectos  del  funcionamiento  del  ordenador  estan  estrechamente  ligados  al 
hardware;  por  ejemplo,  la  imagen  de  color  que  usted  puede  ver  en  la  pantalla.  En  cam- 
bio,  es  responsabilidad  del  software  controlar  el  hardware  para  producir  los  caracteres 
y  dibujos  deseados. 

Es  el  hardware  el  que  dirige  el  haz  de  electrones  a  la  superficie  electroluminiscente  de 
que  esta  recubierto  el  interior  del  tubo  del  televisor;  el  software  aporta  la  organization 
y  la  inteligencia  para  decir  al  hardware  como  y  cuando  debe  hacerlo.  Afiade  ademas 
el  control  de  los  tiempos  y  de  las  secuencias  de  acciones  para  que  usted  pueda  ver  la 
nave  espacial  despegando,  o  para  algo  tan  mundano  como  que  aparezca  una  letra  en 
la  pantalla  cada  vez  que  usted  pulsa  una  tecla. 


Cuando  usted  guste  . . .  9/1 


£Por  que  es  un  ordenador  mejor  que  otro? 

El  hardware  sin  el  software  es  completamente  inutil,  y  viceversa.  El  ordenador  empieza 
a  servir  para  algo  cuando  hardware  y  software  se  ponen  de  acuerdo  para  llevar  a  cabo 
sus  cometidos.  Hay  algunas  consider aciones  basicas  que  se  pueden  tener  en  cuenta  para 
valorar  la  calidad  tanto  de  uno  como  del  otro. 

Los  puntos  de  referencia  generalmente  aceptados  para  los  ordenadores  personales  son: 


1.  Resolution  de  la  pantalla:  tamaflo  del  menor  elemento  discernible 

El  concepto  de  resoluci6n  es  una  mezcla  de  diversos  factores:  numero  de  colores  dispo- 
nibles  para  el  programador,  numero  de  areas  discernibles  en  la  pantalla  (pixels)  y  nu- 
mero de  caracteres  de  texto  que  caben  en  ella. 

Usted  puede  comprobar  que  su  CPC6128  es  superior  a  este  respecto  a  los  otros  ordena- 
dores de  su  nivel  de  precio. 


2.  £1  interprete  de  BASIC 

Practicamente  todos  los  ordenadores  domesticos  incluyen  un  interprete  de  BASIC  que 
permite  al  usuario  crear  programas  con  los  que  controlar  el  hardware.  El  lenguaje  de 
programaci6n  que  viene  con  la  maquina,  BASIC,  no  es  mas  que  un  programa,  pero 
un  programa  extremadamente  complejo  que  ha  evolucionado  a  lo  largo  de  los  afios, 
desde  que  se  'invent6'  el  BASIC  en  los  Estados  Unidos.  El  'Beginners'  All-purpose 
Symbolic  Instruction  Code'  (codigo  de  instrucciones  simb61icas  de  uso  general  para 
principiantes)  es  el  lenguaje  de  ordenador  mas  ampliamente  utilizado  en  el  mundo  ente- 
ro;  como  todos  los  lenguajes,  tiene  sus  dialectos  locales. 

La  versi6n  utilizada  en  el  CPC6128  es  una  de  las  de  mayor  compatibilidad;  puede  eje- 
cutar  programas  escritos  para  funcionar  bajo  control  del  sistema  operativo  de  disco 
CP/M.  Es  una  versi6n  muy  rapida  de  BASIC,  lo  que  quiere  decir  que  realiza  los  calcu- 
los  muy  deprisa.  A  usted  quiza  no  le  parezca  demasiado  impresionante  que  un  ordena- 
dor tarde  0.05  segundos  en  multiplicar  3  por  5  y  escribir  la  respuesta,  mientras  que  otro 
ordenador  tarda  0.075  segundos  en  hacer  lo  mismo.  Pero  cuando  se  trata  de  dibujar 
graficos  en  la  pantalla,  tarea  que  puede  requerir  millares  de  calculos  repetitivos,  la  dife- 
rencia  entre  0.05  y  0.075  segundos  es  decisiva. 

Usted  oira  hablar  frecuentemente  de  'codigos  de  maquina'.  El  codigo  de  maquina  es 
una  forma  de  suministrar  instrucciones  directamente  al  microprocesador.  La  velocidad 
de  ejecucion  es  entre  5  y  15  veces  mayor  en  codigo  de  maquina  que  en  BASIC,  pero 
el  tiempo  que  se  tarda  en  escribir  un  programa  puede  ser  hasta  50  veces  mayor  en  codi- 
go de  maquina  que  en  BASIC. 
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El  BASIC  de  Amstrad  es  de  los  mas  rapidos  y  completos  que  se  pueden  encontrar  en 
ordenadores  personales,  e  incorpora  muchos  recursos  que  ayudan  al  programador  ex- 
perto  a  superar  parte  de  la  lentitud  inherente  a  todos  los  lenguajes  de  alto  nivel  para 
producir  efectos  visuales  y  sonoros  sorprendentemente  dinamicos. 


3.  Ampliabilidad 

Casi  todos  los  ordenadores  prestan  atencion  a  la  necesidad  de  conectar  perifericos  tales 
como  impresoras,  joysticks  y  unidades  de  disco.  Sin  embargo,  muchos  de  los  mas  po- 
pulares  ordenadores  domesticos  necesitan  interfaces  externas  para  que  se  les  pueda  co- 
nectar una  simple  impresora  o  un  joystick. 

El  comprador  no  siempre  preve  las  necesidades  futuras,  pero  un  ordenador  que  incor- 
pore  un  interfaz  para  impresora  o  un  conector  para  joystick  puede  ser  mas  barato  a 
la  larga  que  otro  por  el  que  tenga  que  pagar  menos  en  el  momento  de  la  adquisicion. 

El  CPC6128  tiene  incorporada  una  puerta  de  salida  para  impresora  (tipo  Centronics), 
una  salida  para  segunda  unidad  de  disco,  una  salida  para  cinta  (con  control  de  motor), 
un  conector  para  dos  joysticks,  una  salida  de  sonido  estereofonico  y  una  puerta  de  ex- 
pansion a  la  que  se  puede  conectar  un  interfaz  serie  (modelo  RS232C  de  Amstrad),  un 
modem,  un  sintetizador  de  voz  (modelo  SSA2  de  Amstrad),  un  lapiz  optico,  etc. 


4.  Sonidos 

Las  caracteristicas  sonoras  de  un  ordenador  determinan  si  'suena  a  lata'  o  si  puede  pro- 
ducir una  imitation  aceptable  de  un  instrumento  musical  electronico. 

El  CPC6128  esta  dotado  de  un  generador  de  sonido  de  3  canales  y  8  octavas,  que  puede 
dar  una  calidad  musical  muy  aceptable  y  permite  el  control  completo  de  las  envolventes 
de  tono  y  de  volumen.  Ademas,  el  sonido  se  puede  obtener  en  una  configuration  este- 
reofonica,  con  canal  izquierdo,  canal  derecho  y  canal  comiin. 

Esto  permite  programar  el  sonido  para  coordinarlo  con  el  movimiento  de  objetos  por 
la  pantalla. 

En  ultimo  extremo,  es  usted  quien  tiene  que  decidir  que  caracteristicas  le  son  mas  nece- 
sarias.  Esperamos  que  las  pruebe  todas,  para  asi  aprovechar  al  maximo  su  ordenador. 


^Por  que  no  puede? 


Sabiendo  lo  poderosa  que  es  la  tecnologia  actual,  los  usuarios  se  preguntan  frecuente- 
mente  por  que  una  maquina  tan  avanzada  como  el  CPC6128  es  incapaz  de  imitar  las 
imagenes  de  un  televisor  de  color.  Por  ejemplo,  £por  que  no  puede  un  ordenador  mos- 
trar  en  la  pantalla  la  imagen  de  una  persona  caminando  con  naturalidad?  £Es  que  los 
ordenadores  no  son  capaces  de  dar  movimiento  mas  que  a  unos  burdos  monigotes? 
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La  respuesta  es  facil,  aunque  compleja.  No  crea  usted  que  la  pantalla  de  su  ordenador 
puede  tener  la  misma  riqueza  de  detalles  que  la  de  un  televisor.  Los  televisores  funcio- 
nan  con  una  informacidn  'analogica',  que  puede  describir,  con  resolution  casi  ilimita- 
da,  todos  los  grados  posibles  de  intensidad  de  todos  los  colores  del  espectro  visible.  En 
terminos  informaticos,  esto  representa  que  la  'memoria'  necesaria  para  almacenar  una 
imagen  de  television  es  unas  veinte  veces  mayor  que  la  que  se  le  dedica  a  un  ordenador 
domestico. 

Pero  esto  es  solo  una  parte  del  problema.  Para  dar  movimiento  a  una  imagen,  hay  que 
procesar  toda  esa  information  a  gran  velocidad  (del  orden  de  50  veces  por  segundo). 
No  es  imposible,  pero  para  ello  se  necesitan  maquinas  que  cuestan  unos  cuantos  miles 
de  veces  mas  que  un  ordenador  domestico,  al  menos  en  la  actualidad. 

Hasta  que  el  precio  de  la  memoria  de  alta  capacidad  baje  drasticamente  (lo  que  ocurrira 
algiin  dia),  los  ordenadores  pequeflos  tienen  que  arreglarselas  con  una  memoria  relati- 
vamente  pequefla  para  controlar  la  pantalla,  lo  que  representa  menor  resoluci6n  y  mo- 
vimientos  mas  espasticos.  Optimizando  el  hardware  y  el  softaware  se  puede  paliar  con- 
siderablemente  estas  limitaciones,  pero  de  momento  tendremos  que  seguir  conforman- 
donos  con  imagenes  torpes  que  ni  siquiera  llegan  a  parecerse  a  las  de  una  pelicula  de 
dibujos  animados  de  regular  calidad. 


Ese  teclado  me  suena  . . . 

i,Por  que  no  puedo  sentarme  ante  el  ordenador  y  escribir  una  sencilla  pagina  de  texto? 

No  se  deje  enganar  por  el  hecho  de  que  el  ordenador  se  parece  a  una  maquina  de  escri- 
bir electronica  con  pantalla.  La  pantalla  no  es  una  hoja  de  papel  electronico:  es  una 
'consola  de  ordenes',  expresion  tecnica  que  quiere  decir  que  es  una  via  de  comunicacion 
entre  el  usuario  y  el  lenguaje  de  programacion  que  esta  en  la  memoria  de  la  maquina. 

Mientras  no  se  le  mande  otra  cosa,  el  ordenador  tratara  de  entender  todo  lo  que  se  le 
comunique  a  traves  del  teclado,  pues  supone  que  son  instrucciones.  Cuando  usted  pulsa 
[RETURN],  el  ordenador  examina  lo  tecleado;  si  no  es  inteligible  para  el  BASIC  resi- 
dente,  lo  rechaza  y  emite  el  mensaje: 


Syntax  error 

Ahora  bien,  puede  ocurrir  que  el  programa  actualmente  presente  en  la  memoria  sea  un 
procesador  de  textos;  en  tal  caso  usted  podra  escribir  las  palabras  que  desee,  pulsar 
[RETURN]  y  seguir  escribiendo  a  sus  anchas,  exactamente  igual  que  si  el  ordenador 
fuera  una  maquina  de  escribir  que  utilizara  papel  electronico.  Pero,  para  que  esto  sea 
posible,  antes  se  debe  haber  cargado  en  la  memoria  un  programa  de  proceso  de  textos. 

El  ordenador  parece  combinar  aparatos  que  nos  resultan  familiares  de  tanto  verlos  en 
casa  y  en  la  oficina,  como  son  la  pantalla  y  el  teclado.  Pero  recuerde  que  la  similitud 
normalmente  es  superficial  y  que  el  ordenador  es  una  combination  de  elementos  con 
personalidad  propia. 
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^Quien  teme  a  la  jerga? 


Como  ocurre  con  todas  las  ramas  especializadas  de  la  industria,  la  informatica  ha  desa- 
rrollado  una  jerga  propia  para  facilitar  la  comunicacion  de  conceptos  complejos  que 
de  otra  forma  requeririan  muchas  palabras  de  lenguaje  ordinario.  Esto  no  ocurre  sola- 
mente  en  el  campo  de  la  alta  tecnologfa;  todos  hemos  topado  con  barreras  de  este  tipo 
levantadas  por  los  profesionales  de  distintas  areas. 

En  el  caso  de  la  informatica,  la  confusion  se  debe  mas  a  la  forma  de  utilizar  las  palabras 
que  a  las  palabras  en  si.  (Y  en  castellano,  a  la  imposibilidad  de  traducir  ciertas  palabras 
inglesas  o  a  que  no  nos  tomamos  la  molestia  de  intentarlo.)  Casi  todos  los  que  llegan 
a  familiarizarse  con  la  terminologfa  de  la  informatica  se  esfuerzan  por  utilizar  las  pala- 
bras de  la  forma  mas  directa  posible,  con  objeto  de  minimizar  la  dificultad  de  la  comu- 
nicacion. Pero  no  crea  que  el  lenguaje  informatico  es  lo  mismo  que  el  lenguaje  literario; 
la  informatica  no  es  literatura,  sino  una  ciencia  precisa;  aparte  la  sintaxis,  la  estructura 
de  la  comunicacion  en  informatica  es  directa  y  sencilla,  y  de  ningiin  modo  confusa  o 
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ambigua.  Como  no  es  literatura,  la  informatica  no  ha  necesitado  desarrollar  una  asig- 
natura  de  'comentario  de  textos'  para  analizar  el  significado  exacto  del  significado  de 
los  programas. 

Independientemente  de  si  el  significado  de  un  programa  es  obvio  o  no  lo  es,  hay  mu- 
chos  aspectos  de  la  programacion  que  se  pueden  calificar  de  embarullados  o  de  elegan- 
tes; ahora  que  se  esta  asentando  el  revuelo  inicial  causado  por  la  aparici6n  de  los  mi- 
croordenadores,  se  esta  prestando  mayor  atencion  a  los  aspectos  formales  de  la  cons- 
truction de  programas. 

La  informatica  esta  penetrando  en  las  mentes  de  muchos  jovenes  que  valoran  la  preci- 
sion y  la  sencillez  de  las  ideas  y  de  la  forma  de  comunicarlas.  No  hay  demasiados  niflos 
que  a  los  diez  aflos  sean  ya  abogados,  pero  si  muchos  que  a  esa  edad  saben  programar. 


Lo  basico  de  BASIC 

Casi  todos  los  ordenadores  domesticos  tiene  incorporado  el  lenguaje  BASIC,  que  hoy 
por  hoy  es  lo  mas  proximo  al  lenguaje  ordinario.  El  nombre  del  lenguaje  no  implica 
ninguna  limitation  en  cuanto  a  sus  posibilidades;  de  hecho,  se  ha  escrito  programas 
extremadamente  complejos  y  potentes  en  BASIC. 

Sin  embargo,  es  evidente  que  el  nombre  ha  atraido  a  muchos  pricipiantes,  que  espera- 
ban  encontrar  un  BASIC  un  buen  punto  de  partida  entre  el  laberinto  de  los  lenguajes 
de  programaci6n;  y  esto  ha  contribuido  en  gran  medida  a  su  universalidad. 

BASIC  es  un  lenguaje  informatico  que  interpreta  un  reducido  numero  de  ordenes,  co- 
mo resultado  de  las  cuales  realiza  operaciones  con  los  datos  segun  se  va  ejecutando  el 
programa.  A  diferencia  del  vocabulario  humano  medio,  que  consta  de  entre  5000  y 
8000  palabras  (ademas  de  la  conjugation  de  los  verbos,  plurales,  diminutivos,  etc.), 
BASIC  tiene  que  arreglarselas  con  solo  un  par  de  centenares.  Los  programas  escritos 
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Cuando  usted  guste  . . . 


en  BASIC  tienen  que  ajustarse  a  reglas  fnuy  estrictas  en  cuanto  a  la  forma  de  utilizar 
esas  palabras.  La  sintaxis  es  muy  precisa;  todo  intento  de  comunicarse  con  el  ordena- 
dor  en  lenguaje  coloquial  producira  el  frio  mensaje: 

Syntax  error 

Esto  no  representa  una  limitation  seria,  ya  que  BASIC  esta  disenado  para  trabajar  con 
numeros.  Las  palabras  son  basicamente  una  generalization  de  las  operaciones  matema- 
ticas  elementales  (+,  -,  etc.)-  El  concepto  mas  importante  que  tienen  que  asimilar  los 
principiantes  es  que  el  ordenador  solo  puede  manejar  datos  numericos.  Es  decir,  la  in- 
formation que  se  envia  a  la  CPU  (unidad  central  de  proceso)  tiene  que  estar  en  forma 
numerica. 


Numeros 


Si  emplearamos  un  ordenador  para  almacenar  las  obras  completas  de  Shakespeare,  en 
todo  el  sistema  no  encontrariamos  ni  una  sola  letra  o  palabra.  Todo  elemento  de  infor- 
mation debe  ser  convertido  a  niimero  antes  de  que  el  ordenador  pueda  reconocerlo  y 
manipularlo. 

BASIC  interpreta  las  palabras  como  si  fueran  numeros;  para  procesarlas,  el  ordenador 
no  dispone  de  mas  medios  que  la  suma,  la  resta  y  la  logica  de  Boole,  con  la  cual  puede 
hacer  comparaciones  y  seleccionar  atributos;  en  otras  palabras,  averiguar  si  un  niimero 
es  menor  o  igual  que  otro,  o  realizar  determinada  tarea  si  un  niimero  cumple  cierta 
condici6n„ 

A  traves  del  programa,  el  ordenador  desmenuza  todas  las  tareas  en  sus  componentes 
mas  elementales. 
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Sitodo  esto  le  parece  farragoso,  esta  en  lo  cierto.  Ha  descubierto  la  primera  y  mas  im- 
portante  verdad  de  la  informatica.  Un  ordenador  es  una  herramienta  que  sirve  para 
realizar  tareas  elementales  y  repetitivas  a  gran  velocidad  y  con  precisidn  absoluta.  Asi, 
BASIC  interpreta  las  instrucciones  que  se  le  dan  por  medio  del  programa  y  las  traduce 
al  lenguaje  que  la  CPU  (unidad  central  de  proceso)  puede  entender.  La  logica  del  orde- 
nador solo  distingue  dos  estados:  si  y  no;  en  notacion  binaria,  1  y  0;  en  notacion  de 
Boole,  'verdadero'  y  'falso'.  No  hay  estados  intermedios  del  tipo  'quiza'. 

El  proceso  de  conmutacion  entre  esos  dos  estados  es  la  esencia  del  termino  'digital'. 
En  la  naturaleza  casi  todos  los  procesos  evolucionan  gradualmente  de  un  estado  'esta- 
ble'  a  otro.  En  cambio,  en  la  situation  digital  ideal,  la  transicion  de  un  estado  a  otro 
es  instantanea.  Sin  embargo,  las  leyes  de  la  fisica  de  semiconductores  imponen  un  pe- 
queno  retardo,  el  retardo  de  propagacidn,  que  es  el  causante  del  tiempo  que  tarda  el 
ordenador  en  procesar  la  informacidn  antes  de  dar  la  respuesta. 

En  todo  caso,  el  ordenador  tiene  que  esperar  hasta  que  concluya  una  tarea  antes  de 
poder  abordar  la  siguiente,  lo  que  representa  que  siempre  se  le  impone  un  retardo  artifi- 
cial. El  proceso  digital  es  'bianco'  o  'negro',  y  las  fases  de  transicion  por  los  diversos 
grados  de  'gris'  no  tienen  ninguna  importancia.  En  cambio,  los  procesos  analdgicos  se 
realizan  precisamente  a  traves  de  esas  fases  de  'gris'. 

Si  la  respuesta  final  solo  puede  ser  0  o  1 ,  no  es  posible  que  el  resultado  sea  'casi'  correc- 
to.  El  hecho  de  que  los  ordenadores  cometan  errores  en  ocasiones  se  debe  a  la  limita- 
tion del  tamafio  de  los  numeros  que  pueden  procesar;  los  niimeros  con  demasiados  di- 
gitos  tienen  que  ser  'comprimidos'  para  que  encajen  en  el  espacio  disponible,  lo  que 
conduce  a  errores  de  redondeo. 

En  un  mundo  en  el  que  solo  existen  los  digitos  0  y  1,  £c6mo  se  cuenta  mas  alia  de  1? 

Bits  y  bytes 

Estamos  habituados  a  entender  los  numeros  solamente  cuando  estan  expresados  en  el 
sistema  decimal,  en  el  que  el  punto  de  referencia  es  el  numero  10  y  en  el  que  se  dispone 
de  10  digitos  (del  0  al  9)  para  representar  los  numeros.  El  sistema  binario  es  conceptual- 
mente  analogo  al  decimal,  pero  con  solo  dos  digitos;  las  unidades  con  las  que  opera 
este  sistema  son  los  denominados  bits  (forma  contraida  de  Binary  digiT,  di'gito 
binario). 

La  relation  entre  bits  y  numeros  decimales  es  sencilla  y  vamos  a  estudiarla. 

Es  habitual  declarar  el  maximo  numero  de  bits  que  vamos  a  usar  para  representar  los 
niimeros,  y  afiadir  ceros  por  la  izquierda  para  completar  la  expresion.  Por  ejemplo,  el 
numero  decimal  7  se  convierte  en  el  binario 

00111 
en  notacion  de  5  bits. 
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En  el  sistema  binario,  los  digitos  se  pueden  considerar  como  indicadores  dispuestos  en 
columnas  para  especificar  si  una  determinada  potencia  de  2  esta  presente  o  no  lo  esta: 

2°  =     1 

21  =    2  =  2  =  2(2°) 

22  =    4  =  2x2  =  2(2*) 

23  =    8  =  2x2x2  =  2(22) 

24  =  16  =  2x2x2x2  =  2(23) 

de  modo  que  las  columnas  tienen  el  siguiente  aspecto: 

24       23        22        21        2° 

10         0  11 

(16  +  0+0+2+1)     =     19 

Para  abreviar  la  terminologia  al  hablar  de  informacibn  binaria  se  introduce  el  concepto 
de  'byte',  que  es  una  sucesion  de  8  bits.  El  mayor  numero  que  se  puede  representar 
con  un  byte  es  11111111  (binario)  o  255  (decimal).  Si  contamos  tambien  el  00000000, 
resulta  un  total  de  256  numeros  distintos,  que  son  datos  perfectamente  validos  para  el 
ordenador. 

Los  ordenadores  prefieren  manejar  los  bits  en  grupos  de  8.  El  numero  256  es  demasia- 
do  pequefio,  y  por  eso,  para  poder  controlar  la  memoria,  se  utilizan  dos  bytes  que  se 
interpretan  en  forma  matricial.  Cada  posicidn  de  memoria  tiene  una  direction  vertical 
y  otra  horizontal,  y  entre  las  dos  caracterizan  sin  ambiguedad  la  posicion.  Por  ejemplo, 
la  siguiente  matriz 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

2 

3 

4 

5 

1 

1 

6 

7 

8 

9 

puede  caracterizar  hasta  10  x  10  elementos  de  informacidn  utilizando  numeros  de  direc- 
ci6n  comprendidos  entre  0  y  9.  El  elemento  almacenado  en  la  posicion  3,5  es  un  '1', 
lo  mismo  que  el  que  esta  en  la  posicion  5,5. 
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Analogamente,  una  matriz  binaria  de  256x256  puede  caracterizar  65536  posiciones  uti- 
lizando  direcciones  de  8  bits  para  los  ejes  vertical  y  horizontal  de  la  matriz.  Nuestros 
elementos  initiates,  '0'  y  '1',  han  progresado  hasta  ser  capaces  de  identificar  65536  ele- 
mentos  diferentes. 

El  siguiente  nivel  de  abreviatura  en  terminologia  binaria  es  el  K,  que  representa  1024 
bytes.  El  numero  1024  es  la  potencia  de  2  mis  pr6xima  a  nuestro  'kilo'  (1000),  y  explica 
por  que  se  dice  que  un  ordenador  es  de  64K  cuando  en  realidad  tiene  una  memoria  de 
65536  bytes  (64x1024). 

Afortunadamente,  el  interprete  de  BASIC  se  encarga  de  todas  estas  conversiones.  Es 
perfectamente  posible  Uegar  a  ser  un  programador  aunque  no  se  domine  el  sistema  bi- 
nario.  No  obstante,  unos  conocimientos  del  sistema  binario  pueden  ayudar  a  desen- 
mascarar  la  magia  de  ciertos  numeros  clave  que  inevitablemente  nos  encontramos  en 
informatica. 

Vale  la  pena  dedicar  algun  tiempo  a  entender  el  sistema  binario  y  a  comprender  el  por 
que  de  numeros  tales  como  el  255  o  el  1024,  pues  parece  evidente  que  estos  numeros 
seguiran  siendo  el  fundamento  de  la  informatica,  al  menos  en  el  futuro  previsible.  La 
fiabilidad  y  sencillez  que  proporciona  el  sistema  binario  se  seguira  imponiendo  a  la 
complejidad  que  implicaria  cualquier  otro  sistema  de  numeracidn. 


Sin  embargo  . . . 


Por  sencilla  y  elegante  que  sea,  la  notation  binaria  induce  a  confusidn  a  los  humanos, 
porque  no  somos  capaces  de  leer  de  un  golpe  de  vista  los  numeros  binarios.  Hay  algu- 
nos  otros  sistemas  de  numeration  que  los  programadores  utilizan  con  mayor  facilidad. 
Un  sistema  muy  utilizado  en  microordenadores  es  el  hexadecimal  (HEX).  Su  base  es 
el  numero  16.  La  correspondencia  entre  digitos  decimales  y  hexadecimales  es  la 
siguiente: 

Decimal 

0     1     2     3     4    5    6    7     8     9     10     11     12     13     14     15 

Hexadecimal 

0123456789ABCDEF 

El  sistema  hexadecimal  puede  dividir  los  8  bits  de  un  byte  en  dos  bloques  de  4  bits, 
ya  que  15  es  un  numero  de  4  bits:  1111  en  binario.  El  primer  bloque  indica  el 
numero  de  unidades  completas  de  '15';  el  segundo  bloque  indica  el  'resto'.  Y  aqui  es 
donde  empieza  a  aparecer  la  elegancia  de  los  sistemas  binario  y  hexadecimal.  A  conti- 
nuacidn  damos  una  tabla  de  conversi6n  entre  los  tres  sistemas  para  los  primeros 
numeros: 
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Decimal 

Binario 

Hexadecimal 

0 

0 

0 

1 

1 

1 

2 

10 

2 

3 

11 

3 

4 

100 

4 

5 

101 

5 

6 

110 

6 

7 

111 

7 

8 

1000 

8 

9 

1001 

9 

10 

1010 

A 

11 

1011 

B 

12 

1100 

C 

13 

1101 

D 

14 

1110 

E 

15 

1111 

F 

16 

10000 

10 

Un  niimero  de  8  bits  tal  como  el  11010110  (&D6  hex)  puede  ser  subdividido  en  dos  de 
4  bits.  A  lo  largo  de  todo  este  manual  indicamos  los  mimeros  hexadecimales  precedien- 
do  los  del  signo  &.  El  sistema  hexadecimal  es  el  mas  utilizado  por  los  programadores 
que  trabajan  en  ensamblador.  El  lenguaje  ensamblador  es  la  etapa  mas  cercana  a  c6di- 
go  de  maquina  a  la  que  llegan  normalmente  los  programadores;  permite  expresar  las 
instrucciones  en  'cddigos  nemotecnicos',  que  son  algo  mas  inteligibles  que  los  cddigos 
de  maquina. 

Para  convertir  un  niimero  hexadecimal  en  binario,  lo  primero  que  hay  que  hacer  es  ob- 
sevar  el  primer  digito,  para  ver  cuantos  grupos  de  '16'  hay  en  el  niimero,  multiplicar 
por  16  y  luego  sumar  al  resultado  el  valor  del  segundo  digito.  Asi  pues,  no  se  deje  Uevar 
por  la  tentacidn  de  pensar  que  &D6  es  13+6,  ni  136,  porque  en  realidad  es 
(13xl6)+(6)=214. 

El  proceso  es  el  mismo  que  seguimos  cuando  leemos  un  niimero  decimal: 
89 =(8x10) +9.  Lo  que  ocurre  es  que  nos  resulta  mucho  mas  facil  multiplicar  por  10 
que  por  16;  es  una  cuestidn  de  practica. 

Si  usted  ha  conseguido  Uegar  hasta  aqui  sin  estar  demasiado  confuso,  puede  decir  que 
esta  en  el  buen  camino  para  llegar  a  entender  los  principios  basicos  del  ordenador.  Qui- 
za  se  pregunte  para  qu6  nos  metemos  en  todas  estas  complicaciones,  y  tiene  razdn.  Un 
ordenador  es  un  aparato  que  maneja  ideas  y  conceptos  muy  sencillos;  lo  que  tiene  de 
especial  es  que  realiza  esas  operaciones  a  una  velocidad  muy  grande  (millones  de  veces 
por  segundo)  y  que  tiene  una  enorme  capacidad  para  recordar  los  datos,  tanto  los  que 
se  le  han  suministrado  como  los  resultados  intermedios  de  los  muchos  miles  de  sumas 
que  realiza  antes  de  poder  dar  la  respuesta  final. 
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Si  desea  seguir  estudiando  la  teoria  de  los  ordenadores,  sepa  que  hay  miles  de  libros 
dedicados  a  estos  temas.  Algunos  no  le  aclararan  en  absoluto  las  ideas,  sino  todo  lo 
contrario,  pero  otros  en  cambio  le  guiaran  en  el  descubrimiento  de  la  sencillez  y  las  re- 
laciones  fundamentales  que  existen  entre  los  sistemas  de  numeration  y  le  ayudaran  a 
comprender  la  forma  en  que  el  ordenador  los  maneja. 
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Parte  2:  Mas  en  concreto  sobre  el 
CPC6128 


En  esta  section  vamos  a  tratar  algunas  cuestiones  especificas  del 
CPC6128.  La  information  basica  sobre  estos  temas  se  puede  encontrar 
en  el  'Curso  de  introduction'  y  en  el  capitulo  titulado  'Lista  completa 
de  las  palabras  clave  del  BASIC  de  Amstrad'. 

Temas  tratados  en  esta  section: 

*  Juegos  de  caracteres 

*  ASCII 

*  Variables 

*  Logica 

*  Caracteres  definidos  por  el  usuario 

*  Formatos  de  escritura 

*  Ventanas 

*  Interrupciones 

*  Datos 

*  Sonido 

*  Graficos 

*  Utilization  del  segundo  banco  de  64K  de  RAM 


Caracteres 


Cuando  se  ponga  al  teclado  de  su  CPC6128,  no  de  por  supuesto  que  en  la  pantalla  va- 
yan  a  aparecer  letras  y  numeros  reconocibles.  Ya  hemos  explicado  que  el  ordenador 
no  es  una  maquina  de  escribir.  Lo  que  usted  hace  es  pulsar  una  serie  de  conmutadores 
electricos;  las  sefiales  electricas  asi  producidas  son  traducidas  por  los  circuitos  internos 
para  enviar  a  la  pantalla  grupos  de  puntos.  Segiin  sea  la  colocacion  de  esos  puntos,  po- 
dremos  reconocer  letras,  numeros  u  otros  caracteres  del  'juego  del  caracteres'  del 
CPC6128. 

Algunos  de  estos  caracteres  no  son  accesibles  directamente  a  traves  del  teclado,  sino 
mediante  la  instrucci6n  PRINT  CHR$(<numero>).  Esto  es  asi  porque  la  information 
se  almacena  en  el  ordenador  en  unidades  de  1  byte  y,  como  vimos  en  la  parte  1  de  este 
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capitulo,  1  byte  puede  tener  256  formas  posibles.  Dado  que  el  ordenador  tiene  que  de- 
dicar  al  menos  un  byte  a  cada  caracter  almacenado,  mas  vale  que  aprovechemos  las 
256  combinaciones  posibles  en  lugar  de  conformarnos  con  los  96  'caracteres  estandar' 
de  las  maquinas  de  escribir  y  desperdiciar  los  160  restantes. 

Los  caracteres  estandar  son  un  subconjunto  del  juego  total  de  caracteres.  Su  nombre 
en  informatica  es  'caracteres  ASCII',  te>mino  derivado  de  'American  Standard  Code 
for  Information  Interchange'  (cddigo  estandar  norteamericano  para  el  intercambio  de 
la  informacidn).  Se  trata  de  un  sistema  disenado  para  asegurar  la  compatibilidad  de 
los  datos  transmitidos  de  un  ordenador  a  otro.  En  el  capitulo  7  hemos  dado  la  lista 
de  todos  los  caracteres  ASCII,  asi  como  de  los  demas  caracteres  disponibles  en  el 
CPC6128,  junto  a  sus  numeros  de  codigo. 


Vamos  a  verlos 

Seguramente  ya  no  encierra  ningun  secreto  para  usted  un  programa  tan  sencillo  como 
6ste: 

10   FOR  n=32  TO  255 
20   PRINT  CHR*(n); 
30  NEXT 

con  el  que  hacemos  que  el  ordenador  exhiba  en  la  pantalla  el  juego  completo  de  carac- 
teres. Pero  estudiemos  un  poco  la  esencia  de  este  programa. 

Lo  primero  que  debemos  obsevar  es  que  al  ordenador  no  le  hemos  dicho  PRINT 
"abcdefghijklmn  . . .",  sino  PRINT  CHR$(n).  En  vez  de  mencionar  explfcitamente 
los  caracteres  hemos  puesto  en  su  lugar  una  'variable'.  Una  variable  es  un  elemento 
de  informacidn  que  varia  segun  impongan  las  instrucciones  del  programa.  (El  nombre 
que  hemos  dado  a  la  variable  en  este  caso,  n,  es  arbitrario;  podn'amos  haber  puesto 
cualquier  letra  o  combinacidn  de  letras,  cualquier  cosa  que  no  fuera  una  palabra  reser- 
vada  de  BASIC.) 


^Coiiio  sabemos  que  es  una  variable? 

Un  numero  tal  como  el  5  es  fijo,  esta  entre  el  4  y  el  6  y  no  tiene  nada  de  variable.  El 
caracter  n  tambien  es  fijo:  es  una  letra  concreta  del  alfabeto. 

Entonces,  £c6mo  distingue  el  ordenador  las  variables  de  las  constantes?  Si  hubieramos 
querido  decirle  que  considerara  la  n  como  letra  del  alfabeto,  la  habriamos  escrito  entre 
comillas:  "n".  El  ordenador  habria  respondido  con  el  mensaje  Syntax  error,  porque 
no  entenderia  la  Ifnea  FOR  "n"=32  TO  255. 
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Al  escribir  la  n  sin  comillas  le  hemos  dicho  al  ordenador  que  n  es  una  variable.  La  ins- 
trucci6n  FOR  de  BASIC  tiene  que  ir  seguida  del  nombre  de  una  variable,  y  el  ordena- 
dor da  por  supuesto  que  lo  que  pongamos  despues  de  FOR  es  una  variable. 

Tambien  le  hemos  dicho  al  ordenador  n=32  TO  255,  con  lo  que  hemos  especificado 
el  margen  de  variation  de  la  variable:  una  sucesi6n  que  empieza  en  32  y  termina  en  255. 

Una  vez  declarada  la  variable,  debemos  decirle  al  ordenador  que  tiene  que  hacer  con 
ella;  eso  es  lo  que  hace  la  linea  20: 

20   PRINT    CHR*(n) ; 

Esta  instrucci6n  hace  que  el  ordenador,  cualquiera  que  sea  el  valor  de  n,  busque  en 
su  memoria  el  caracter  que  corresponde  a  ese  valor  y  lo  escriba  en  la  pantalla. 

El  punto  y  coma  impide  que  el  ordenador  realice  un  retorno  de  carro  y  avance  de  linea 
despues  de  escribir  cada  caracter.  (De  no  ser  asi,  los  caracteres  aparecerian  uno  debajo 
de  otro  en  la  primera  columna  de  cada  linea.) 

La  linea  30  le  dice  al  ordenador  que  cuando  haya  concluido  la  tarea  con  el  primer  valor 
de  n  (que  es  el  32)  debe  retornar  a  la  linea  en  la  que  esta  FOR  y  volver  a  hacer  lo  mismo 
con  el  siguiente  (NEXT)  valor  de  la  variable  n.  Este  mecanismo,  denominado  'bucle', 
es  fundamental  para  la  programaci6n.  Gracias  a  el  nos  ahorramos  el  tener  que  escribir 
largas  series  de  instrucciones  similares.  Usted  aprendera  enseguida  a  incluirlo  en  sus 
programas. 

Cuando  el  bucle  FOR  . . .  NEXT  alcanza  el  limite  superior  del  margen  declarado  (255), 
el  bucle  termina  y  el  ordenador  vuelve  al  modo  directo  y  muestra  el  mensaje  Ready. 
Este  mensaje  indica  que  el  ordenador  esta  preparado  para  recibir  mas  instrucciones, 
una  de  las  cuales  podria  ser  RUN,  para  ejecutar  otra  vez  el  programa.  El  programa 
esta  almacenado  en  la  memoria  y  lo  seguira  estando  hasta  que  le  digamos  al  ordenador 
que  lo  borre  o  apaguemos  la  maquina. 

Este  programa  ilustra  un  hecho  esencial  de  la  informatica:  todo  lo  que  el  ordenador 
hace  esta  relacionado  con  numeros.  El  ordenador  ha  escrito  el  alfabeto  y  todos  los  de- 
mas  caracteres  usando  como  referencia  para  acceder  a  ellos  un  numero.  Cuando  usted 
pulsa  la  tecla  A,  no  le  esta  pidiendo  al  ordenador  que  escriba  esa  letra,  sino  que  busque 
en  su  memoria  la  information  numerica  que  necesita  para  exhibir  el  caracter  en  la  pan- 
talla. La  localization  de  esa  informaci6n  es  funcidn  del  codigo  numerico  que  se  activa 
al  pulsar  la  tecla.  (Cada  caracter  tiene  un  cddigo  asociado;  la  relation  completa  se  da 
en  el  capitulo  titulado  'Para  su  referencia  ...'.) 

Pero  tampoco  el  hecho  de  visualizar  el  caracter  tiene  nada  que  ver  con  'escribir',  sino 
que  es  un  proceso  numerico. 

Por  ejemplo,  el  cddigo  ASCII  de  la  letra  A  es  el  65.  El  ordenador  tampoco  entiende 
el  numero  65,  por  lo  que  tiene  que  traducirlo  de  decimal  a  una  forma  que  le  resulte 
mas  familiar:  el  cddigo  de  maquina.  Ya  hemos  estudiado  los  principios  de  esta  conver- 
si6n  en  la  primera  parte  de  este  capitulo. 
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Al  principio,  la  conversidn  de  la  notaci6n  decimal,  a  la  que  estamos  tan  acostumbra- 
dos,  a  notation  hexadecimal  nos  parece  muy  dificil.  Pensar  en  niimeros  decimales  nos 
parece  tan  natural  que  cambiar  de  sistema  de  numeration  es  como  cambiar  de  mano 
el  tenedor  y  el  cuchillo. 

Para  manejar  la  notation  hexadecimal  es  necesario  adquirir  cierto  grado  de  destreza 
mental.  Una  vez  adquirida,  se  empieza  a  entender  el  por  que  de  muchos  hechos  infor- 
maticos  y  se  hace  patente  la  elegancia  de  la  estructura  de  este  sistema  de  numeration. 

Si  no  conoce  los  sistemas  binario  y  hexadecimal,  le  sugerimos  que  lea  detenidamente 
la  primera  parte  de  este  capftulo. 

Cuando  el  ordenador  ha  convertido  la  pulsation  de  la  tecla  A  en  un  mimero  comprensi- 
ble  para  el,  busca  en  una  zona  de  la  memoria  especificada  por  ese  mimero,  y  en  ella 
encuentra  otra  serie  de  mimeros  que  describen  la  forma  de  la  letra.  El  caracter  que  us- 
ted  puede  ver  en  la  pantalla  esta  formado  por  un  bloque  de  datos,  almacenado  en  la 
memoria  en  forma  de  'matriz'  numerica: 


innri 

ffiflSB 

i  nm  m 


E5hk 

■■"TBI 


MATRIZ  EN  BLANCO 
(RETICULA) 


a  MINUSCULA 


A  MAYUSCULA 


Los  elementos  de  la  matriz  son  puntos  dispuestos  en  filas  columnas.  El  caracter  se  'escribe' 
encendiendo  y  apagando  correctamente  los  puntos.  En  el  CPC6128  cada  matriz  tiene  8  fi- 
las y  8  columnas.  Si  entre  los  255  caracteres  no  encuentra  el  que  necesita,  usted  mismo 
puede  definirlo  a  su  gusto  con  la  instrucci6n  SYMBOL  que  describiremos  mas  adelante. 

Los  caracteres  'definidos  por  el  usuario'  se  construyen  especificando  cada  uno  de  los 
64  puntos  de  la  matriz.  Las  combinaciones  posibles  con  1.84467E  + 19,  es  decir,  aproxi- 
madamente  un  2  seguido  de  19  ceros.  Si  a  esto  anadimos  la  posibilidad  de  agrupar  ca- 
racteres para  formar  bloques  mas  grandes,  vemos  que  las  posibilidades  de  generar  gra- 
ficos  solo  estan  limitadas  por  la  imagination  del  usuario. 


Logica 


Una  diferencia  fundamental  entre  una  calculadora  y  un  ordenador  radica  en  la  capaci- 
dad  de  este  para  manejar  operaciones  16gicas  y  tomar  decisiones  en  instrucciones  del 
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tipo  IF  ...  THEN  ...  (si  ...  entonces  . . .).  Para  ello,  los  operadores  logicos  tratan 
los  valores  a  los  que  son  aplicados  como  grupos  de  bits  y  examinan  y  modifican  los 
bits  uno  a  uno.  No  es  facil  describir  las  operaciones  logicas  sin  antes  dar  unas  definicio- 
nes  concisas. 

Las  dos  mitades  de  una  expresion  logica  son  los  'argumentos'.  Una  expresion  logica 
tiene  la  siguiente  forma: 

<argumento>  [<operador  logico)  <argumento>] 
donde  <argumento>  puede  ser: 

NOT  <argumento> 
(expresion  numerica) 
(expresion  de  relation) 
((expresion  logica)) 

Los  dos  argumentos  de  un  operador  logico  tienen  que  ser  enteros;  de  lo  contrario  se 

produce  el  error  niimero  6. 

Los  operadores  logicos  (en  orden  de  prioridad)  y  su  efecto  sobre  los  bits  son  los 

siguientes: 

AND    El  resultado  es  0  a  menos  que  Iqs  bits  de  los  dos  argumentos  sean  1. 

OR       El  resultado  es  1  a  menos  que  los  bits  de  los  dos  argumentos  sean  0. 

XOR     El  resultado  es  1  a  menos  que  los  bits  de  los  dos  argumentos  sean  iguales. 

AND  es  el  operador  logico  mas  utilizado. 

PRINT  10  AND  10 
da  como  resultado  10. 

PRINT  10  AND  12 
da  como  resultado  8. 

PRINT  10  AND  1000 

tambien  da  como  resultado  8. 

Esto  se  debe  a  que  los  mimeros  10  y  1000  nan  sido  convertidos  a  su  forma  binaria: 

1010 
1111101000 

La  operation  AND  comprueba  los  bits  dos  a  dos.  Si  los  dos  bits  de  las  dos  filas  son 
1,  el  resultado  es  1: 

0000001000 
y  este  niimero  binario  es  el  8  decimal.  El  operador  logico  AND  se  utiliza  para  detectar 
cuando  se  cumplen  simultaneamente  dos  condiciones.  He  aqui  un  ejemplo  que  explica 
como: 
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10  INPUT  "Dla  del  mes:  ",dia 

20  INPUT  "Mes  mlmero:  ",mes 

30  IF  dia=25  AND  mes=12  THEN  50 

40  CLS:GOTO  10 

50  PRINT  "Feliz  Navidad ! " 

OR  funciona  de  forma  analoga,  pero  da  como  resultado  1  a  no  ser  que  los  bits  de  los 
dos  operandos  sean  0,  en  cuyo  caso  el  resultado  es  0.  Aplicado  a  los  mismos  niimeros 
que  en  el  ejemplo  de  AND, 

PRINT    1000   OR    10 
1002 

Bit  a  bit: 

1010 
1111101000 

cuyo  resultado  es 
1111101010 

Un  programa  ejemplo: 

10  CLS 

20  INPUT  "Mes  mlmero:  ",mes 

30  IF  mes=12  OR  mes=l  OR  mes=2  THEN  50 

40  GOTO  10 

50  PRINT  "Estamos  en  invierno!" 

El  operador  NOT  invierte  todos  los  bits  del  argumento  (convierte  el  0  en  1 ,  y  viceversa): 

10   CLS 

20  INPUT  "Mes  mlmero:  ",mes 

30  IF  N0T(mes=6  OR  mes=7  OR  mes=8)  THEN  50 

40  GOTO  10 

50  PRINT  "No  estamos  en  verano!" 

Observe  que  se  pueden  combinar  los  operadores  logicos,  sin  mas  limitation  que  la  lon- 
gitud  de  la  lfnea: 

10  INPUT  "Dla  del  mes:  ".dia 
20  INPUT  "Mes  mlmero:  ",mes 

30  IF  N0T(mes=12  OR  mes=l)  AND  dia=29  THEN  50 
40  CLS: GOTO  10 

50  PRINT  "No  es  ni  diciembre  ni  enero,  pero  puede 
ser  un  an*o  bisiesto" 
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El  resultado  de  una  expresi6n  de  relation  es  -1  o  0.  La  representaci6n  binaria  del  nii- 
mero  -1  es  una  sucesion  de  bits  iguales  a  1;  para  el  0,  todos  los  bits  son  0.  El  resultado 
de  una  operaci6n  logica  entre  argumentos  de  este  tipo  da  -1  (verdadero)  o  0  (falso). 

Aflada  las  siguientes  lineas  al  programa  anterior: 

60  PRINT  N0T(mes=12  OR  mes=l) 
70  PRINT  (mes=12  OR  mes=l) 

Si  al  ejecutar  el  programa  introduce  29  para  el  dia  y  2  para  el  mes,  obtendra  el  mensaje 
de  la  linea  50,  y  las  lineas  60  y  70  escribiran  los  resultados  de  las  operaciones. 

Finalmente,  XOR  (OR  eXclusivo)  produce  como  resultado  'verdadero'  siempre  que  los 
argumentos  sean  diferentes. 

A  continuation  resumimos  todo  lo  dicho  en  una  tabla,  denominada  tabla  de  verdad. 
Es  una  forma  muy  clara  de  ilustrar  que  sucede  en  una  operation  logica  bit  a  bit. 

Argumento  A  1010 

Argumento  B  0110 

Resultado  de  AND        0010 
Resultado  de  OR  1 1 10 

Resultado  de  XOR        1100 


Caracteres  definidos  por  el  usuario 

Una  de  las  primeras  aplicaciones  que  el  lector  encontrara  para  los  niimeros  binarios 
es  el  diseflo  de  caracteres  con  la  instrucci6n  SYMBOL.  Como  sabemos,  el  caracter  se 
disefla  en  una  reticula  de  8  por  8;  cada  una  de  las  8  filas  se  convierte  en  un  nvimero 
binario  poniendo  un  1  en  lugar  del  pixel  que  debe  ser  iluminado,  y  un  cero  en  lugar 
del  pixel  que  debe  quedar  del  color  del  papel.  Los  8  niimeros  asi  obtenidos  seran  los 
parametros  de  SYMBOL.  Por  ejemplo,  para  definir  un  caracter  que  representa  una 
casa: 


* 

= 

00001000 

= 

lc08 

= 

8 

= 

8 

**** 

= 

00111100 

= 

&3C 

= 

32+16+8+4 

= 

60 

*   * 

= 

01000010 

= 

&<42 

= 

64 

+  2 

= 

66 

*  *  *  * 

= 

10100101 

= 

&<A5 

= 

128 

+32 

+4   +1 

= 

165 

*     * 

= 

10000001 

= 

&<81 

= 

128 

+  1 

= 

129 

*  **  *  * 

= 

10110101 

= 

&<B5 

= 

128 

+32+16 

+4   +1 

= 

181 

*  **   * 

= 

10110001 

= 

BcBl 

= 

128 

+32+16 

+  1 

= 

177 

********  =  11111111  =  &FF  =  128+64+32+16+8+4+2+1  =  255 
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la  orden  es 

SYMBOL    240, 8, 60, 66, 165, 129, 181 , 177, 255 
o  bien 

SYMBOL    240 ,  8*08 ,  k3C  ,  8*42 ,  8<A5 ,  &-8 1 ,  kB5 ,  BcB  1 ,  kFF 
o  bien 

SYMBOL    240,  6.X0000 1000,  6<X001 1 1 100,  8^X01000010,  B.X10100101 , 
kX10000001  ,  kX101 10101  , kX101 10001  ,  fcXl  1 1 1 1 1 1 1 

Para  escribir  el  caracter  asi  definido: 

PRINT    CHR*<240) 

Finalmente,  para  agrupar  caracteres  se  puede  hacer 

adosado*=CHR* (240) +CHR* (240) 
PRINT   adosado* 


o  bien 


urban izacion*=STRING*< 15, 240) 
PRINT  urbanizac ion* 


La  imprenta  ... 

PRINT  es  la  primera  instruccion  que  se  usa  cuando  se  empieza  a  programar.  En  princi- 
pio  es  muy  sencilla,  pero  podemos  complicarla  considerablemente.  En  efecto,  no  basta 
con  pedirle  al  ordenador  que  escriba,  sino  que  tambien  debemos  decirle  donde  y  como. 

Formato  de  escritura 


La  instruccion  PRINT  se  puede  utilizar  de  diversas  formas.  La  mas  sencilla  es  poner 
a  su  derecha  el  elemento  que  se  desea  escribir,  que  puede  ser  un  niimero,  una  cadena 
literal  o  el  nombre  de  una  variable: 

PRINT   3 

3 
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PRINT 
hola 

"hola" 

a=5 
PRINT 

5 

a 

a*=" prueba" 
PRINT  a* 
prueba 

En  una  instruction  PRINT  se  pueden  poner  varios  elementos,  intercalando  entre  ellos 
un  separador,  o  bien  TAB  o  SPC.  Los  separadores  pueden  ser  la  coma  o  el  punto  y 
coma.  El  punto  y  coma  hace  que  el  siguiente  elemento  se  escriba  inmediatamente  a  con- 
tinuation del  que  se  acaba  de  escribir;  la  coma  provoca  el  salto  a  la  siguiente  zona  de 
escritura.  La  anchura  implicita  de  la  zona  de  escritura  es  13,  pero  se  la  puede  modificar 
con  la  orden  ZONE: 

PRINT    3}-4!5 
3-4      5 

PRINT  "buenos", "dias" 
buenos       dias 

PRINT  3,-4,5 
3_45 

ZONE  4 

PRINT  3,-4,5 
3-4    5 

Observe  que  los  mimeros  positivos  llevan  un  espacio  a  la  izquierda,  mientras  que  en 
los  negativos  ese  espacio  esta  ocupado  por  el  signo  - .  Todos  los  mimeros  llevan  un 
espacio  en  bianco  a  la  derecha.  Las  cadenas  se  escriben  literalmente  tal  como  estan  en- 
tre las  comillas. 

La  funcion  SPC  lleva  como  parametro  una  funcion  numerica;  'escribe'  tantos  espacios 
como  indique  el  valor  de  la  expresion.  Si  el  valor  es  negative  se  toma  el  0;  si  es  mayor 
que  la  anchura  de  la  ventana  actual  se  toma  esa  anchura: 

PRINT   SPC (5) "hola" 
hola 

x=3 

PRINT  SPC<x*3> "hola" 
hola 
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TAB  es  similar,  pero  el  numero  de  espacios  que  escribe  es  el  necesario  para  que  el  si- 
guiente  elemento  se  empiece  a  escribir  en  la  columna  especificada. 

La  ventana  en  la  que  se  escribe  es  la  numero  0,  a  no  ser  que  se  especifique  otro  numero 
de  canal  (#)  antes  de  la  lista  de  elementos.  Se  pueden  especificar  otros  canales  para  en- 
viar  la  salida  a  otras  ventanas.  Los  canales  8  y  9  estan  reservados  para  la  impresora 
y  el  disco  (o  cinta),  respectivamente.  (Observese  que  para  'escribir'  en  el  canal  #9  se 
debe  utilizar  WRITE  en  lugar  de  PRINT.) 


PRINT 

"hola" 

ho  la 

PRINT 

#0,"hola" 

hola 

PRINT 

#4, "hola" 

hola 

PRINT 

♦♦8,  "hola" 

hola 

veataaa  I 


-   taibin  ventaaa  I 


-  ventaia  4 

(priiera  liaea  it  la  paatalla) 


-  ea  la  iapresora 
(si  esta  coatctai'al 

Con  TAB  y  SPC  se  pueden  controlar  los  formatos  mas  sencillos,  pero  en  cuanto  el  for- 
mato  deseado  sea  un  poco  mas  complejo  habra  que  utilizar  PRINT  USING  y  una 
'plantilla'  adecuada.  Una  plantilla  de  formato  es  una  expresi6n  literal  que  contiene  ca- 
racteres  especiales,  cada  uno  de  los  cuales  especifica  un  formato  determinado.  Estos 
caracteres,  denominados  'especificadores  de  formato',  estan  explicados  en  detalle  en 
la  descripci6n  de  PRINT  USING  (capitulo  3).  Aqui  vamos  a  dar  algunos  ejemplos. 

En  primer  lugar,  he  aqui  los  formatos  disponibles  para  escribir  cadenas  literales: 

"  escribe  tantos  caracteres  como  espacios  haya  en  la  plantilla,  mas  dos: 

PRINT  USING  "         "5"cadena  de  prueba" 
cadena  d 

"!"  escribe  solamente  el  primer  caracter  de  la  cadena: 

PRINT  USING  "!"; "cadena  de  prueba" 

c 

Pero  el  formato  literal  mas  util  es  seguramente  "&".  Con  el  se  anula  una  funci6n  de 
BASIC  por  la  cual,  si  una  cadena  es  demasiado  larga  como  para  caber  en  la  linea  ac- 
tual, el  ordenador  la  escribe  al  principio  de  la  linea  siguiente.  PRINT  USING  "&";  de- 
sactiva  esa  funci6n.  (En  el  siguiente  ejemplo  ponga  BORDER  0  para  hacer  visibles  los 
bordes  del  papel.) 
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MODE  l:LOCATE  39,l:PRINT  "demasiado" 

-   liaea  1 
demasiado  -    liaea  2 

MODE  l: LOCATE  39,1: PRINT  USING  "Be"  ; 'demasiado" 

de  -    liaea  1 

mas  i  ado  -    liaea  2 

Para  los  numeros  se  dispone  de  gran  variedad  de  plantillas.  La  mas  sencilla  es  PRINT 
USING  "#####",  en  la  que  cada  #  reserva  espacio  para  un  digito: 

PRINT  USING  "««««««"; 123 
123 

La  oposicion  del  punto  decimal  se  puede  especificar  incluyendo  un  punto  en  la 
plantilla: 

PRINT  USING  "««««.««##«" 5  12.45 
12.45000 

Los  digitos  que  quedan  a  la  izquierda  del  punto  decimal  se  pueden  agrupar  de  tres  en 
tres,  separados  por  comas,  si  se  pone  una  coma  a  la  izquierda  del  punto  en  la  plantilla: 

PRINT  USING  "«#««««««,.«###" i 123456.78 
123,456.7800 

En  el  formato  se  pueden  incluir  los  signos  de  d61ar  y  de  libra  esterlina,  para  que  aparez- 
ca  siempre  el  signo  monetario  antes  del  primer  digito,  aunque  el  numero  no  llene  el  for- 
mato. Esto  se  consigue  poniendo  $$  o  PtPt  en  la  plantilla: 

PRINT  USING  "**##"; 7 
*7 

PRINT  USING  "**##";351 
*351 

PRINT    USING    "hMttttttt,  .#*"!  1234.567 
M,  234.  57 

Observe  como  se  ha  redondeado  este  ultimo  numero. 

Se  puede  rellenar  el  espacio  sobrante  por  la  izquierda  con  asteriscos  poniendo  *  *  en 
la  plantilla: 
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PRINT    USING    "**####.#"; 12. 22 
****12.2 

Esto  ultimo  se  puede  combinar  con  los  signos  monetarios  poniendo  *  *$  o  *  *R  en  la 
plantilla. 

Un  signo  +  al  principio  de  la  plantilla  especifica  que  siempre  se  debe  escribir  el  signo 
del  numero  a  su  izquierda.  Si  el  +  esta  al  final  de  la  plantilla,  el  signo  se  describe  a 
la  derecha  del  numero. 

El  signo  -  solo  se  puede  poner  al  final  de  la  plantilla;  especifica  que  se  debe  poner  el 
signo  -  a  la  derecha  del  numero  si  este  es  negative 

PRINT  USING  "+#«"; 12 
+  12 

PRINT  USING  "+#«"; -12 
-12 

PRINT  USING  "##+"; 12 
12+ 

PRINT  USING  M##-n;-12 
12- 

PRINT  USING  "##-B;12 
12 

La  inclusion  de  "tttt"  en  la  plantilla  hace  que  el  numero  se  escriba  en  forma 
exponencial: 

PRINT  USING  "#tt#.##tttt"; 123.45 
12.35E+01 

En  cualquier  caso,  si  el  numero  es  demasiado  grande  como  para  caber  en  el  formato 
especificado,  el  numero  no  se  trunca,  sino  que  se  lo  escribe  entero,  precedido  de  un 
signo  %  para  indicar  lo  que  ha  ocurrido: 

PRINT  USING  "####" J123456 
%123456 


Ventanas 

El  BASIC  del  CPC6128  permite  la  definition  y  el  control  de  hasta  ocho  ventanas  de 
texto.  Todas  las  acciones  de  control  de  textos  se  pueden  referir  a  cualquiera  de  estas 
ventanas. 
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Las  ventanas  se  definen  con  la  orden  WINDOW,  que  va  seguida  de  5  parametros.  El 
primero  es  opcional  y  especifica  el  numero  de  la  ventana  que  se  va  a  definir;  si  se  lo 
omite,  el  ordenador  supone  el  0,  que  es  el  canal  por  el  que  el  BASIC  emite  sus  mensajes 
normales  (Ready,  errores,  etc.).  Antes  del  numero  se  pone  el  signo  #  para  indicar  que 
se  esta  dando  un  numero  de  canal.  Los  otros  cuatro  parametros  especifican  los  extre- 
mos  izquierdo,  derecho,  superior  e  inferior  de  la  ventana.  Como  son  numeros  de  fila 
y  de  columna,  pueden  estar  comprendidos  entre  1  y  80  los  dos  primeros,  y  entre  1  y 
25  los  dos  ultimos. 

El  siguiente  ejemplo  define  la  ventana  (canal)  numero  4,  la  cual  se  extiende  desde  la 
columna  7  hasta  la  31,  y  desde  la  fila  6  hasta  la  18.  Reinicialice  la  maquina  y  luego 
escriba: 

WINDOW    #4,7,31,6,18 

No  parece  que  haya  ocurrido  nada,  asi  que  escriba  lo  siguiente: 

INK  3,9 
PAPER  #4,3 
CLS  #4 

En  la  pantalla  ha  aparecido  un  gran  rectangulo  verde,  que  es  la  ventana  numero  4.  Este 
ultimo  ejemplo  demuestra  que  las  instrucciones  PAPER  y  CLS  se  pueden  referir  a  cual- 
quiera  de  las  ocho  ventanas  especifiando  el  numero  de  canal;  su  omision  hace  que  la 
orden  actiie  sobre  la  ventana  numero  0. 

Las  ordenes  para  las  que  se  puede  especificar  numero  de  ventana  son  las  siguientes: 

CLS 

COPYCHR* 

INPUT 

LINE  INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 

TAGOFF 

VPOS 

WINDOW 

WRITE 

La  ventana  verde  que  hemos  creado  habra  borrado  parte  del  texto  que  tenfamos  en  la 
pantalla,  que  habia  sido  enviado  a  la  ventana  numero  0. 
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El  texto  se  puede  escribir  en  cualquier  ventana  especificando  el  niimero  de  canal  en  la 
instruction  PRINT: 

PRINT  #4, "estoy  en  la  ventana  4" 

Estas  palabras  nan  aparecido  en  el  extremo  superior  de  la  ventana  verde,  no  en  la  linea 
siguiente  de  la  pantalla,  que  es  lo  que  habria  ocurrido  con: 

PRINT  "estoy  en  la  ventana  0" 

Observe  que  al  escribir  esta  ultima  orden  el  texto  ha  invadido  parte  de  la  ventana  verde. 

Si  usted  desea  confinar  todos  los  mensajes  de  BASIC  a  la  ventana  niimero  4,  intercam- 
biela  con  la  implicita  (la  niimero  0)  mediante  la  orden: 

WINDOW   SWAP   0,4 

El  mensaje  Ready  ha  aparecido  ahora  en  la  ventana  verde  y  el  cursor  esta  debajo  de 
£\.  Escriba  lo  siguiente: 

PRINT  #4, "estoy  en  la  ventana  4" 

El  texto  ha  aparecido  debajo  de  la  orden  WINDOW  SWAP,  en  lo  que  antes  era  la  ven- 
tana 0  y  ahora  es  la  4.  Estos  ejemplos  demuestran  que  el  ordenador  recuerda  la  posici6n 
de  escritura  de  cada  ventana  incluso  despues  de  un  intercambio.  Escriba  lo  siguiente: 

LOCATE  #4,20,1 

PRINT  "estoy  en  la  ventana  0" 

PRINT  #4, "estoy  en  la  ventana  4" 

Mientras  no  se  ejecuta  una  orden  WINDOW,  todas  las  ocho  ventanas  coinciden  con 
la  pantalla  entera.  Lo  mismo  ocurre  despues  de  una  orden  MODE.  Asi  pues,  si  despues 
de  jugar  con  las  ventanas  se  encuentra  con  que  el  cursor  esta  en  una  muy  pequefia,  pue- 
de salir  del  lio  escribiendo  MODE  1: 

MODE    1 

WINDOW   20,21,7,18 
MO 
DE 
1 

El  ordenador  se  ha  visto  obligado  a  partir  la  palabra  MODE,  pero  la  instruction  fun- 
ciona  igual.  (No  olvide  dejar  un  espacio  entre  la  E  y  el  1.) 
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Ahora  que  ya  tiene  una  idea  de  como  funcionan  las  ventanas,  escriba  y  pruebe  el  si- 
guiente  programa: 

10  MODE  0 

20  FOR  rt-0   TO  7 

30  WINDOW  Hn,n+l,n+6,n+l,n+6 

40  PAPER  #n,n+4 

50  CLS  #n 

60   FOR  c=l  TO  200: NEXT  c 

70  NEXT  n 

Este  programa  crea  8  ventanas  que  se  solapan  y  las  borra  con  un  color  de  papel  diferen- 
te  para  cada  una. 

Cuando  termine  el  programa  y  haya  aparecido  Ready,  pulse  [RETURN]  varias  veces 
para  observar  c6mo  afecta  el  desplazamiento  de  la  ventana  0  a  los  bloques  de  colores. 
Sin  embargo,  aunque  el  contenido  de  las  ventanas  se  desplace,  las  ventanas  en  si  siguen 
estando  en  el  mismo  sitio.  Compruebelo  escribiendo: 

CLS   *4 

Fijese  tambien  en  los  diferentes  efectos  de  las  siguienes  6rdenes: 

LIST 
LIST  *4 
LIST  *3 

Otra  caracteristica  interesante  de  la  orden  WINDOW  es  que  tambien  admite  los  mime- 
ros  que  especifican  los  bOrdes  izquierdo  y  derecho  en  orden  inverso;  es  decir,  aunque 
el  primer  parametro  sea  mayor  que  el  segundo,  BASIC  los  interpreta  en  el  orden  co- 
rrecto.  Analogamente  ocurre  con  los  bordes  inferior  y  superior. 

10  MODE  0 

20  a=l+RND*19:b=l+RND*19 

30  c=l+RND*24:d=l+RND*24 

40  e=RND*15 

50  WINDOW  a,b,c,d 

60   PAPER  e:CLS 

70  GOTO  20 


Interrupciones 

Por  si  todavia  no  lo  ha  leido  en  otro  lugar  de  este  manual,  le  diremos  que  una  de  las 
principals  innovaciones  del  software  de  los  ordenadores  Amstrad  es  su  capacidad  de 
gestion  de  las  interrupciones  desde  BASIC;  esto  hace  que  el  BASIC  de  Amstrad  sea 
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capaz  de  realizar  acciones  simultaneas  controladas  por  programa.  Esto  es  lo  que  se  sue- 
le  denominar  'multitarea',  y  se  programa  con  las  instrucciones  AFTER  y  EVERY. 

Esta  misma  habilidad  queda  demostrada  por  la  forma  en  que  se  controla  el  sonido  a 
traves  de  recursos  tales  como  las  colas  de  sonido  y  la  sincronizaci6n  de  canales. 

De  todo  lo  que  tenga  que  ver  con  la  medida  del  tiempo  se  encarga  el  cron6metro  patr6n 
del  sistema,  que  es  un  circuito  controlado  por  un  cristal  de  cuarzo.  Este  reloj  se  encarga 
de  cronometrar  y  de  sincronizar  los  procesos  que  tienen  lugar  dentro  del  ordenador: 
desde  el  barrido  de  la  pantalla  hasta  al  envio  de  impulsos  al  microprocesador.  Toda 
funcion  del  hardware  que  tenga  que  ver  con  el  tiempo  depende  del  reloj  patron. 

Las  instrucciones  AFTER  (despues  de)  y  EVERY  (cada)  hacen  precisamente  lo  que  su 
nombre  sugiere.  Asi,  AFTER  invoca  una  determinada  subrutina  cuando  ha  transcurri- 
do  el  tiempo  especificado. 

El  CPC6128  mantiene  un  reloj  de  tiempo  real.  La  orden  AFTER  permite  que  un  pro- 
grama de  BASIC  realice  una  tarea  en  un  instante  futuro  especificado.  Existen  cuatro 
temporizadores  de  retardo,  cada  uno  de  los  cuales  puede  tener  una  subrutina  asociada. 

Cuando  el  tiempo  especificado  ha  transcurrido,  la  rutina  se  ejecuta  automaticamente, 
exactamente  igual  que  si  el  ordenador  hubiera  encontrado  un  GOSUB  en  la  lfnea  actual 
del  programa.  Cuando  la  rutina  se  acaba,  con  el  RETURN  habitual,  el  programa  conti- 
mia  a  partir  del  punto  en  que  fue  interrumpido. 

La  orden  EVERY  permite  que  el  programa  de  BASIC  ejecute  subrutinas  a  intervalos 
de  tiempo  regulares.  Tambien  en  este  caso  se  dispone  de  cuatro  temporizadores,  a  cada 
uno  de  los  cuales  se  puede  asignar  una  subrutina  distinta. 

Los  temporizadores  tienen  prioridades  de  interruption  diferentes,  lo  que  tiene  impor- 
tancia  cuando  varios  de  ellos  compiten  por  interrumpir  el  programa  en  un  momento 
dado.  El  temporizador  3  tiene  la  maxima  prioridad,  y  el  0  la  minima  (vease  el  capitulo 
'Para  su  referencia  ...'). 

10  MODE  l:n=14:x=RND#400 

20  AFTER  x,3  GOSUB  90 

30  EVERY  25,2  GOSUB  170 

40  EVERY  10, 1  GOSUB  180 

50  PRINT"Pruebe  sus  re-flejos:" 

60  PRINT"pulse  la  barra  espaciadora" 

70  PRINT"cuando  yo  le  diga. " 

80  IF  ind=l  THEN  END  ELSE  80 

90  x=REMAIN(2) 

100  IF  INKEY(47)=-1  THEN  120 

110  SOUND  1, 900: PRINT-Tramposo ! H : GOTO  160 

120  SOUND  129,20:PRINT"AHORA":t=TIME 

130  IF  INKEY(47)=-1  THEN  130 

140  PRINT"Ha  tardado" ; 
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150  PRINT (TIME-t>/300; "segundos" 
160  CLEAR  INPUT: ind=l: RETURN 
170  SOUND  1,0,50:PRINT". -; :return 
180  n=n+l:IF  n>26  THEN  n=14 
190  INK  l,n: RETURN 


Las  ordenes  AFTER  y  EVERY  se  pueden  ejecutar  en  cualquier  lugar  del  programa.  Su 
efecto  es  reelegir  la  rutina  asociada  y  poner  a  cero  el  temporizador  correspondiente. 
Los  temporizadores  estan  compartidos  por  AFTER  y  EVERY,  de  modo  que  una  orden 
AFTER  cancela  la  anterior  EVERY  referida  al  mismo  temporizador,  y  viceversa. 

Las  ordenes  Dl  y  El  inhiben  y  habilitan,  respectivamente,  las  interrupciones.  Esto  sirve 
para  permitir  que  cierta  interrupcidn  se  procese  sin  ser  interrumpida  por  otra  mas  prio- 
ritaria.  La  orden  REMAIN  da  el  tiempo  que  queda  en  un  temporizador  y  lo  desactiva. 


Listas  de  datos 


Si  un  programa  necesita  que  se  le  suministre  siempre  la  misma  informacidn  cada  vez 
que  se  lo  ejecuta,  es  preferible  hacer  que  esa  information  este  contenida  en  el  propio 
programa  para  no  tener  que  teclearla  con  cada  ejecucion.  Esto  es  posible  gracias  al  par 
de  instrucciones  READ/DATA.  La  orden  READ  es  similar  a  INPUT  en  el  sentido  de 
que  asigna  valores  a  variables,  pero  en  lugar  de  captar  los  valores  por  el  teclado  los 
lee  en  listas  encabezadas  por  la  palabra  DATA.  Los  dos  ejemplos  siguientes  ilustran 
la  diferencia: 

10  INPUT  "escriba  3  numeros  separados  por  comas:  ",a,b,c 

20  PRINTnlos  numeros  son" ; a; "y n ; b; "y" 5 c 

run 

10  READ  a,b,c 

20  PRINT"los  numeros  son" ; a; "y" ; b; "y" ; c 

30  DATA  12,14,21 

run 


Los  datos  contenidos  en  las  listas  DATA  van  separados  por  comas,  lo  mismo  que  los 
que  se  teclean  en  respuesta  a  una  instruction  INPUT. 
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Las  listas  DATA  pueden  contener,  no  solo  numeros,  sino  tambien  cadenas  literales 
constantes: 

10  DIM  a*(ll) 

20  FOR  i=0  TO  11 

30  READ  a*(i) 

40  NEXT 

50  FOR  i=0  TO  11 

60  PRINT  a*(i>  J "  ■ } 

70  NEXT 

80  DATA  Cuentan, de,un, sabio, que,un, dla, tan,pobre,  y, 

mlsero, estaba 
run 


Observe  que  no  es  necesario  encerrar  entre  comillas  las  cadenas  que  se  ponen  en  las 
listas  DATA.  Las  comillas  en  este  caso  son  opcionales  (tambi6n  lo  son  en  INPUT),  El 
unico  caso  en  que  son  necesarias  es  cuando  una  cadena  contiene  una  coma;  si  no  se 
la  pusiera  entre  comillas,  la  instrucci6n  READ  se  detendria  en  la  coma  y  no  leeria  el 
resto  de  la  cadena. 

10  READ  a* 

20  WHILE  a*<>"*" 

30  PRINT  a* 

40  READ  a* 

50  WEND 

60  DATA  Ids  dlas  de  la  semana  son  lunes,  martes, 

miercoles,  jueves,  viernes  y  sabado 
70  DATA  "Ids  dlas  de  la  semana  son  lunes,  martes, 

miercoles,  jueves,  viernes  y  sabado" 
80  DATA  * 
run 

La  cadena  de  la  linea  60  contiene  comas,  y  por  lo  tanto  cada  tramo  sera  leido  por 
READ  y  escrito  por  separado.  En  cambio,  la  de  la  linea  70  ha  sido  delimitada  por  comi- 
llas y  READ  la  lee  de  una  sola  vez. 

El  ejemplo  anterior  demuestra  que  los  datos  pueden  estar  distribuidos  en  varias  lfneas 
(60,  70,  80,  . . .).  Otro  detalle  no  tan  evidente  es  que  las  lfneas  DATA  pueden  estar  en 
cualquier  lugar  del  programa,  antes  o  despues  de  las  instrucciones  READ  que  leen  la 
informaci6n. 

Si  un  programa  contiene  varias  instrucciones  READ,  cada  una  continua  leyendo  donde 
termin6  la  anterior: 
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10  DATA  123,456,789,321,654,2343 

20  FOR  i=l  TO  5 

30  READ  num 

40  total=total+num 

50  NEXT 

60  READ  total2 

70  IF  total=total2  THEN  PRINT  "los  datos  son 

correctos"  ELSE  PRINT  "hay  un  error  en  los  datos" 
run 

Modifique  uno  de  los  primeros  cinco  numeros  de  la  lista  de  la  linea  10  y  ejecute  otra 
vez  el  programa.  Esta  tecnica  de  poner  al  final  de  la  lista  un  dato  adicional  que  sea 
la  suma  de  los  anteriores  constituye  un  buen  metodo  de  detecci6n  de  errores  en  los  da- 
tos, especialmente  si  los  datos  son  muchos.  Se  le  llama  'suma  de  verificaci6n' 
(checksum). 

Si  un  programa  requiere  datos  mixtos  (cadenas  y  numeros),  se  los  puede  combinar  en 
una  misma  lista  DATA,  a  condici6n  de  que  READ  los  lea  en  el  orden  correcto.  Por 
ejemplo,  si  una  lista  DATA  contiene  dos  numeros  seguidos  de  una  cadena,  la  instruc- 
ci6n  READ  tendra  que  leer  primero  dos  variables  numericas  y  luego  una  literal: 

10  DIM  a(5) ,b(5) ,s*(5) 

20  FOR  i=l  TO  5 

30  READ  a ( i ) , b ( i ) , s* ( i ) 

40  NEXT 

50  DATA  l,7,Al-fredo,3,9,  Juan, 2,  2, Enrique, 4, 6, 

Pedro, 9, 1, Manuel 
60  FOR  i=l  TO  5 
70  PRINT  s*(i) , ": "ja(i)*b<i) 
80  NEXT 

Tambien  se  pueden  separar  los  datos  en  dos  listas  distintas: 

10  DIM  a(5) ,b(5) ,s*(5) 

20  FOR  i=l  TO  5 

30  READ  a ( i ) , b ( i ) 

40  NEXT 

50  FOR  i=l  TO  5 

60  READ  s*(i) 

70  NEXT 

80  DATA  1,7,3,9,2,2,4,6,9,1 

90  DATA  Al-f redo, Juan, Enrique, Pedro, Manuel 

100  FOR  i=l  TO  5 

110  PRINT  s*(i) ,": ■;a(i)*b(i) 

120  NEXT 
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Si  ahora  cambiamos  el  limite  superior  de  la  lfnea  20: 
20   FOR    i=l    TO    4 

los  dos  primeros  intentos  de  leer  cadenas  daran  '9'  y'V.  Estos  valores  son  cadenas  vali- 
das,  pero  el  programa  no  funciona  como  esperabamos.  Una  forma  de  asegurar  que  el 
programa  funcione  correctamente  consiste  en  incluir  las  h'neas: 

15  RESTORE  80 
45  RESTORE  90 

La  orden  RESTORE  hace  que  el  puntero  de  datos  'apunte'  hacia  el  principio  de  la  linea 
especificada;  por  lo  tanto  se  la  puede  incluir  en  una  instruccidn  condicional  para  que 
el  bloque  de  datos  lei'dos  dependa  del  resultado  de  alguna  comprobacion.  Por  ejemplo, 
en  un  juego  que  este"  previsto  para  varios  niveles  de  destreza,  los  datos  de  cada  nivel 
pueden  ser  seleccionados  mediante  una  variable  adecuada.  Veamos  un  ejemplo: 

1000  REM  secciftn  para  dibujar  la  pantalla 

1010  IF  nivel=l  THEN  RESTORE  2010 

1020  IF  nivel -2    THEN  RESTORE  2510 

1030  IF  nivel =3  THEN  RESTORE  3010 

1040  FOR  y=l  TO  25 

1050  FOR  x=l  TO  40 

1060  READ  car 

1070  LOCATE  x,y:PRINT  CHR*(car); 

1080  NEXT  x,y 

•  •  ■ 

2000  REM  DATA  para  pantalla  1 

2010  DATA  200,190,244,244,210,  ...   etc. 

a  ■  • 

2500  REM  DATA  para  pantalla  2 

2510  DATA  100,103,245,243,251,  ...   etc. 

■  a  • 

3000  REM  DATA  para  pantalla  3 

3010  DATA  190,191,192,193,194,  ...   etc. 

Otra  aplicacion  tipica  de  las  instrucciones  DATA/READ/RESTORE  es  un  programa 
que  interprete  una  melodfa.  Los  periodos  de  tono  se  pueden  poner  en  listas  data;  RES- 
TORE puede  hacer  que  se  repita  una  section  moviendo  el  puntero  de  datos  hacia  atras: 

10  FOR  i=l  TO  3 
20  RESTORE  100 
30  READ  nota 
40  WHILE  nota<>-l 
50  SOUND  1, nota, 35 
60  READ  nota 
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70  WEND 

80  NEXT 

90  SOUND  1,142,100 

100  DATA  95,95,142,127,119,106 

110  DATA  95,95,119,95,95,119,95 

120  DATA  95,142,119,142,179,119 

130  DATA  142,142,106,119,127,-1 

run 


£1  sonido  de  la  miisica 


De  todas  las  instrucciones  del  CPC664,  es  posible  que  las  de  sonido  y  envolventes  le 
parezcan  las  mas  imponentes  a  primera  vista.  Y  sin  embargo,  con  un  poco  de  practica, 
muy  pronto  podra  programar  ruidos  de  diversos  tipos  e  incluso  melodias  con  armonia. 

Empecemos  por  analizar  las  cuatro  primeras  partes  de  la  instruction  SOUND,  que  son 
las  siguientes:  situacion  de  canales,  periodo  de  tono,  duraci6n  de  la  nota  y  volumen. 
Lo  primero  que  hay  que  saber  es  en  que  margen  de  valores  puede  estar  cada  uno  de 
estos  parametros. 

Aplazaremos  el  primero  de  momento  porque  es  el  mas  complicado.  El  segundo,  perio- 
do de  tono,  puede  tener  cualquier  valor  entero  comprendido  entre  0  y  4095.  Sin  embar- 
go solo  algunos  de  estos  valores  producen  notas  reconocibles:  son  los  que  estan  relacio- 
nados  en  la  parte  5  del  capitulo  'Para  su  referencia  . . . '.  Por  ejemplo,  el  mimero  239 
produce  la  nota  DO  media;  el  253  produce  la  nota  SI  inmediatamente  anterior;  los  va- 
lores 240  a  252  producen  cada  uno  un  tono  diferente,  pero  ninguno  de  ellos  correspon- 
de  a  la  escala  del  piano.  Si  el  parametro  es  0,  no  se  produce  ningiin  tono;  esto  es  litil 
cuando  se  esta  generando  ruido. 

El  tercer  parametro  de  la  or  den  SOUND  especifica  la  duracion  de  la  nota  en  unidades 
de  centesimas  de  segundo.  Su  valor  puede  estar  normalmente  entre  1  y  32767.  Si  es  0, 
la  duracion  queda  controlada  por  la  'envolvente'  (de  la  que  hablaremos  mas  adelante). 
Si  el  parametro  es  negativo,  su  valor  obsoluto  indica  cuantas  veces  se  va  a  repetir  la 
envolvente;  por  ejemplo,  -3  significa  'repetir  la  envolvente  tres  veces'. 

El  cuarto  parametro  especifica  el  volumen.  Puede  valer  entre  0  y  15;  el  valor  implicito 
es  12,  que  es  el  que  el  ordenador  supone  si  no  se  especifica  otra  cosa.  En  los  sonidos 
sencillos  que  hemos  conocido  hasta  ahora,  el  volumen  ha  permanecido  constante  du- 
rante el  tiempo  en  que  ha  sonado  cada  nota.  Sin  embargo,  cuando  se  utiliza  una  'envol- 
vente de  volumen'  para  hacer  que  este  deje  de  ser  constante,  el  parametro  'volumen' 
de  SOUND  se  considera  como  volumen  inicial  de  la  nota. 

Bueno,  vamos  con  el  parametro  de  situacion  de  ca'nales.  Quiza  sepa  ya  el  lector  que 
el  significado  de  este  parametro  depende  del  valor  de  sus  bits;  para  entenderlo  necesita- 
ra  saber  algo  acerca  de  los  niimeros  binarios  (parte  1  de  este  capitulo). 
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El  sonido  se  puede  generar  en  tres  canales  distintos.  Si  el  ordenador  esta  conectado  a 
un  amplificador  estereof6nico,  un  canal  sera  el  derecho,  otro  el  izquierdo  y  otro  comiin 
a  ambos  o  central.  Para  especificar  en  qu6  canal  o  canales  debe  sonar  una  nota  se  utili- 
zan  los  siguientes  niimeros: 

1  canal  A 

2  canal  B 
4  canal  C 

Para  enviar  el  sonido  a  varios  canales,  se  suman  los  niimeros  correspondientes.  Por 
ejemplo,  para  que  la  nota  suene  en  los  canales  A  y  C,  el  parametro  debe  ser  1+4=5. 

SOUND    5,284 

Se  preguntara  el  lector  por  que  el  niimero  del  canal  C  es  4,  y  no  3.  Observe  que  estos 
tres  niimeros  son  potencias  de  2(1  =2T0,  2=2T1,  4=2T2)  y  se  combinan  para  dar  un  nii- 
mero binario.  Si  imaginamos  un  niimero  binario  de  tres  digitos,  cada  uno  de  ellos  se 
puede  utilizar  para  indicar  si  el  canal  correspondiente  debe  estar  conectado  o  desconec- 
tado.  En  el  ejemplo  anterior,  5  en  decimal  es  equivalente  a  1*4+0*2+1*1,  es  decir, 
101  en  binario.  Si  a  los  digitos  de  este  niimero  binario  les  ponemos  las  etiquetas  C,  B 
y  A,  tenemos 

C    B    A 

1     0     1 

de  forma  que  C  y  A  estan  conectados,  mientras  que  B  esta  desconectado.  Si  quisiera- 
mos  que  la  nota  sonase  en  los  canales  A  y  B,  el  niimero  tendria  que  ser 

C    B    A 

0     1      1 

En  decimal:  0*4+1*2+1*1=3.  La  orden  SOUND  seria 
SOUND   3,142 

Naturalmente,  este  niimero  tiene  que  coincidir  con  el  que  se  obtendria  sumando  los  va- 
lores  correspondientes  a  los  dos  canales:  1+2=3  (recuerde  que  A=l,  B=2,  C=4). 

Si  despues  de  todo  no  ha  entendido  c6mo  funciona  esto  en  binario,  no  se  preocupe. 
Le  basta  con  saber  que  las  combinaciones  de  canales  se  programan  sumando  los  niime- 
ros de  selection  de  los  canales  deseados. 

Lamentablemente  (o  afortunadamente,  segiin  c6mo  se  mire),  todavia  podemos  sumar 
otros  niimeros  a  este  parametro.  Asi,  los  niimeros  8,  16  y  32  especifican  que  el  sonido 
debe  sincronizarse  con  otro  canal  (A,  B  o  C,  respectivamente).  Ahora  hace  falta  saber 
que  es  eso  de  'sincronizar  con  un  canal'.  Pues  bien,  los  sonidos  que  hemos  generado 
hasta  ahora  han  ido  directamente  al  canal  especificado.  Escriba  lo  siguiente: 

SOUND  1,142,2000 
SOUND  1,90,200 
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A  menos  que  sea  usted  un  mecanografo  muy  lento,  habra  tenido  tiempo  de  escribir  la 
segunda  orden  antes  de  que  se  extinguiera  el  primer  sonido.  Esto  ocurre  porque  el  siste- 
ma  de  sonido  puede  guardar  hasta  cinco  ordenes  en  cada  una  de  las  colas  de  los  tres 
canales.  Si  queremos  que  suene  una  nota  por  el  canal  A  y  luego  dos  notas  simultanea- 
mente  en  los  canales  A  y  B,  necesitamos  un  forma  de  indicar  al  ordenador  que  no  debe 
ejecutar  la  nota  del  canal  B  mientras  no  haya  terminado  la  primera  del  A.  En  esto  con- 
siste  la  sincronizaci6n  de  canales.  Hay  dos  formas  de  conseguirla: 

SOUND  1,200,1000 
SOUND  3,90,200 

En  este  ejemplo  hemos  dirigido  la  segunda  nota  a  A  y  B,  y  por  lo  tanto  no  puede  sonar 
mientras  no  haya  concluido  la  primera.  La  limitation  de  este  metodo  es  -que  el  sonido 
que  se  envia  a  varios  canales  tiene  que  ser  igual  en  todos  ellos  (en  este  caso,  ,90,200 
era  igual  para  el  A  que  para  el  B).  El  otro  metodo  es  el  siguiente: 

SOUND  1,200,2000 
SOUND  1+16,90,200 
SOUND  2+8, 140,400 

Aqui  hemos  hecho  que  la  segunda  nota  de  A  se  sincronice  con  el  sonido  de  B  (y  que 
este  se  sincronice  con  el  canal  A).  La  ventaja  de  este  metodo  es  evidente:  las  notas  sin- 
cronizadas  pueden  ser  (y  en  este  caso  son)  diferentes.  Estos  mimeros  de  sicronizaci6n 
tambien  son  interpretables  bit  a  bit: 

8=2T3,  16=2T4,  32=2T5 

Asi,  el  mimero  de  situacion  de  canales  se  puede  considerar  como  mimero  binario  cuyos 
digitos  tienen  el  siguiente  significado: 


Sincr.  con 

Sincr.  con 

Sincr.  con 

Sonar  en 

Sonar  en 

Sonar  en 

C 

B 

A 

C 

B 

A 

Sumar  32 

Sumar  16 

Sumar  8 

Sumar  4 

Sumar  2 

Sumar  1 

Por  ejemplo,  para  hacer  sonar  una  nota  en  el  canal  C  sincronizado  con  el  A: 

0  0  1  10  0 

Este  es  el  mimero  binario  1100,  equivalente  a  8+4  en  decimal. 

Asi  pues,  el  mimero  de  situacion  de  canales  12  ordena  a  la  maquina  que  haga  sonar 
una  nota  en  el  canal  C  y  que  espere  por  una  nota  que  debe  sonar  en  el  canal  A  y  que 
ha  sido  marcada  para  sincronizarla  con  el  C. 

Si  ahora  sumamos  64  (=2T6)  al  parametro,  estamos  indicando  que  la  nota  debe  ser  re- 
tenida.  Esto  significa  que  no  va  a  sonar  mientras  no  la  liberemos  con  la  orden 
RELEASE. 

Finalmente,  si  sumamos  128  (=2T7),  borramos  la  cola  de  sonido  del  canal  especificado. 
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Por  ejemplo,  si  hemos  ordenado  un  sonido  que  va  a  durar  un  buen  rato,  podemos  anu- 
larlo  borrando  la  cola  del  canal  correspondiente: 

SOUND    1 ,  248 ,  30000  (esta  nota  Jura  5  linstos) 

SOUND    1  +  128,0  (pero  esta  la  detiene) 

Cuando  se  este  en  modo  directo,  la  forma  mas  rapida  de  interrumpir  un  sonido  es  pul- 
sar [DEL]  al  principio  de  la  h'nea;  el  pitido  que  asi  se  produce  borra  todas  las  colas  de 
sonido. 

Ahora  que  ya  sabemos  enviar  sonido  a  cualquier  combination  de  canales  (con  sincroni- 
zacion,  si  es  necesario),  vamos  a  intentar  producir  algo  mas  agradable  que  los  molestos 
pitidos  que  produce  una  orden  SOUND  en  esta  forma  sencilla.  Lo  haremos  dotando 
al  sonido  de  una  envolvente:  una  grafica  que  define  c6mo  evoluciona  la  intensidad  del 
sonido  a  lo  largo  del  tiempo.  Las  notas  producidas  por  los  instrumentos  musicales  tie- 
nen  una  fase  inicial  de  ataque  en  la  que  el  volumen  sube  muy  deprisa;  despues  se  man- 
tiene  a  un  nivel  algo  inferior  hasta  que  finalmente  decae  gradualmente  a  cero.  En  el 
ordenador  se  puede  dar  una  envolvente  de  este  tipo  a  las  notas  producidas  por  la  orden 
SOUND.  La  instruccion  con  la  que  se  programa  la  envolvente  es  ENV.  Veamos  un 
ejemplo  sencillo: 

ENV    1,5,3,4,5,-3,8 
SOUND    1,142,0,0,1 

La  instruccion  ENV  se  debe  ejecutar  antes  que  la  SOUND  que  la  utiliza.  Para  invocar 
una  envolvente  en  una  instrucci6n  SOUND  se  pone  como  quinto  parametro  de  este  el 
numero  de  referencia  de  la  envolvente,  en  este  caso  el  1 ,  que  es  el  numero  con  que  se 
la  creo  en  la  instruccion  ENV.  Los  parametros  de  ENV  describen  tanto  la  duraci6n  co- 
mo el  volumen  de  la  nota,  de  modo  que  en  SOUND  podemos  poner  0  en  lugar  de  los 
datos  de  duracion  y  volumen.  La  envolvente  del  ejemplo  anterior  hace  que  la  nota  crez- 
ca  en  5  etapas,  en  cada  una  de  las  cuales  el  volumen  aumenta  en  3  unidades  y  cuya  dura- 
cion es  de  4  centesimas  de  segundo.  Despues  se  especifica  que  el  volumen  debe  decaer 
en  5  etapas,  -3  unidades  en  cada  una,  siendo  la  duraci6n  de  cada  etapa  8  centesimas 
de  segundo.  Es  decir,  el  primer  parametro  de  ENV  es  el  numero  de  referencia  de  la  en- 
volvente y  va  seguido  por  grupos  de  tres  numeros.  Dentro  de  cada  grupo,  el  primer  pa- 
rametro es  el  numero  de  escalones  de  variacion  del  volumen;  el  segundo,  la  amplitud 
de  esos  escalones;  y  el  tercero,  su  duracion.  La  duracion  total  de  cada  section  sera  igual 
al  producto  del  primer  parametro  (numero  de  escalones)  por  el  tercero  (duracion  de 
cada  escalon).  El  aumento  o  disminution  total  del  volumen  es  igual  al  producto  del  pri- 
mer parametro  por  el  segundo  (variacion  del  volumen  por  escal6n).  La  duracion  total 
de  una  envolvente  es  la  suma  de  las  correspondientes  a  las  secciones  que  la  integran. 

En  el  ejemplo  anterior,  SOUND  fijaba  en  0  el  volumen  inicial  de  la  nota.  Pero  esto 
no  tiene  que  ser  necesariamente  asi.  En  el  siguiente  ejemplo  el  volumen  decrece  desde 
el  valor  inicial  15  y  luego  vuelve  a  subir: 

ENV   2,5,-2,1,20,0,1,10,1,1 
SOUND    1,142,0,15,2 
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El  niimero  de  esta  envolvente  es  el  2.  Consta  de  tres  secciones.  En  la  primera  el  volumen 
se  reduce  en  5  escalones  de  -2;  es  decir,  varia  a  traves  de  5  etapas  y  en  cada  una  se 
reduce  en  2  unidades.  La  duracion  de  cada  etapa  es  de  1  centesima  de  segundo.  La  se- 
gunda  seccion  tiene  20  etapas  en  las  que  no  varia  el  volumen  (0)  y  cada  una  de  las  cuales 
dura  1  centesima  de  segundo.  Finalmente,  la  tercera  seccion  consta  de  10  etapas,  con 
un  incremento  de  volumen  de  1  unidad  y  duracion  de  1  centesima  de  segundo  cada  una. 

La  instruccion  SOUND  especifica  un  volumen  inicial  de  15;  al  final  de  la  primera  sec- 
cion ha  decrecido  hasta  S;  se  mantiene  a  ese  nivel  durante  20  centesimas  de  segundo 
y  luego  vuelve  a  crecer  hasta  alcanzar  el  nivel  15. 

Para  mejor  visualizar  y  disenar  la  forma  de  las  envolventes  conviene  dibujarlas  en  un 
papel  milimetrado  y  leer  en  el  los  valores  de  los  parametros  requeridos.  En  las  dos  figu- 
ras  siguientes  mostramos  las  dos  envolventes  definidas  hasta  ahora: 


Variacttn 
rdttivade 
vdumn 


NUMERO  DE  ESCALONES:  5 
ALTURA  DE  ESCALON:  3 
DURACION  DE  ESCALON:  4 


NUMERO  DE  ESCALONES:  5 
ALTURA  DE  ESCALON:  -3 
DURACION  DE  ESCALON:  8 


Variacnn 
idativa  de     ' 
vohjmen 

i 

1    2    34    5   6    7   8    910  111213M1SW1718192021  22  2324  252827  28  2(3031  32  333435 

-2- 

-4- 

1      S                                                 r^ 

-6- 

\    ''                                        '    J 

-8- 
-10- 

1                                        H 

!!V"S)<.0f  &  !                             NUMEHO  DE  ESCALONES:  20                                  ! 

iffuoinect-l                             ALTUHA  DE  ESCALON:  0 

CAiali    "         1                             DUHACION  D€  ESCALON:  1                                      | 

DURACION  D€ 

ESCALON:  1 

El  maximo  niimero  de  secciones  que  se  puede  incluir  en  una  envolvente  es  5;  como  cada 
seccion  requiere  3  parametros,  la  instruccion  ENV  puede  llegar  a  tener  16  parametros 
en  total,  contando  el  primero,  que  indica  cual  de  las  15  envolventes  posibles  se  esta  de- 
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finiendo.  Podemos  imaginar  los  numeros  de  volumen  como  dispuestos  en  circulo;  si 
vamos  subiendo  de  nivel  y  sobrepasamos  el  15,  volvemos  al  0;  analogamente,  si  intenta- 
mos  descender  por  debajo  del  0,  volvemos  al  15.  Por  ejemplo,  en 

ENV   3,9,5,20 
SOUND    1,142,0,0,3 

la  envolvente  consta  de  una  sola  section  de  9  etapas,  cada  una  de  las  cuales  incrementa 
el  volumen  en  5  unidades  y  dura  20  centesimas  de  segundo.  Al  terminar  la  tercera  eta- 
pa,  el  volumen  ha  subido  de  0  a  15;  en  la  cuarta  etapa  volvera  a  4;  en  la  quinta  a  9, 
etc.  El  proceso  esta  ilustrado  en  la  siguiente  figura: 


retativs  de 
vohifflen 

15 
14 
13 


jnkiades  de 
1/100  segundos 


NUMERO  OE  ESCALONES:  9 
ALTURA  DE  ESCALON:  5 
DURACION  DE  ESCALON:  20 


El  margen  de  valores  para  el  niimero  de  escalones  es  de  0  a  127.  En  cada  uno  el  valor 
puede  variar  entre  -128  y  +127  (los  valores  negativos  representan  disminucion).  La 
duration  de  cada  escalon  puede  ser  de  entre  0  y  255  (centesimas  de  segundo). 

Ya  sabemos  como  variar  el  volumen  de  una  nota.  Ahora  podemos  estudiar  como  se 
define  la  variation  de  su  tono  con  el  tiempo  para  producir  efectos  tales  como  el 
'vibrato'. 

El  metodo  es  muy  parecido  al  de  las  envolverites  de  volumen.  Las  envolventes  de  tono 
se  definen  con  la  instruccion  ENT.  Por  ejemplo: 

ENT    1,5,1,1,5,-1,1 
SOUND    1,142, 10, 15,, 1 

Las  envolventes  de  tono  se  invocan  con  la  instruccion  SOUND  poniendo  en  esta  como 
sexto  parametro  el  mimero  de  referencia  de  la  envolvente.  La  instruccion  ENT  tiene 
que  ser  ejecutada  antes  que  la  SOUND  que  la  utiliza. 
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Este  primer  ejemplo  de  ENT  define  la  envolvente  de  tono  numero  1 .  La  primera  seccidn 
consta  de  5  etapas;  en  cada  una  el  periodo  de  tono  crece  en  1  unidad;  cada  una  dura 
1  centesima  de  segundo.  La  segunda  seccidn  consta  de  5  etapas;  la  variacidn  del  periodo 
de  tono  en  cada  una  de  ellas  es  - 1  (descenso);  la  duracion  de  cada  etapa  es  de  1  centesi- 
ma de  segundo.  La  duracion  total  es,  pues,  5+5  =  10  centesimas  de  segundo.  Observese 
que  esta  duraci6n  ha  sido  especificada  en  SOUND,  ya  que  la  duracidn  de  la  envolvente 
de  tono  no  determina  la  duracion  de  la  nota  (mientras  que  si  lo  hace  la  envolvente  de 
volumen).  Si  la  duraci6n  especificada  en  SOUND  es  menor  que  la  de  la  envolvente, 
el  final  de  esta  se  perdera.  Si  es  mayor,  el  final  de  la  nota  se  ejecutara  a  tono  constante. 
Esto  ultimo  es  tambien  aplicable  a  las  envolventes  de  volumen. 

(Notese  la  ausencia  del  numero  de  envolvente  de  volumen  en  la  ultima  instruction 
SOUND,  debida  a  que  aun  no  hemos  definido  una  envolvente  de  volumen  para  este 
sonido.) 

Las  envolventes  de  tono  normalmente  duran  menos  que  la  nota.  Se  puede  hacer  que 
la  envolvente  se  repita  mientras  la  nota  esta  sonando.  Para  ello  se  especifica  un  numero 
de  envolvente  negative  cuyo  valor  absoluto  se  cita  en  la  instruccidn  SOUND: 

ENT    -5,4,1,1,4,-1,1 
SOUND    1,142,100,12, ,5 

Esta  repetition  de  la  envolvente  produce  el  efecto  'vibrato'.  Cuando  se  diseflan  envol- 
ventes de  tono,  es  conveniente  que  el  tono  varie  simetricamente  con  respecto  al  valor 
inicial,  de  forma  que  al  repetir  la  envolvente  el  tono  no  se  desvie  demasiado  con  respec- 
to al  valor  central.  Pruebe  el  siguiente  sonido: 

ENT    -6,3,1,1 

SOUND    1,142,90,12, ,6 

Habra  observado  que  la  frecuencia  ha  disminuido  drasticamente.  Esto  ha  ocurrido  por- 
que  la  envolvente  impone  un  aumento  del  periodo  de  tono  de  3  unidades  y  se  repite 
30  veces  (90/3).  No  obstante,  ese  efecto  se  puede  aprovechar  para  imitar  trinos  y 
sirenas: 

ENT  -7,20,1,1,20,-1,1 
SOUND  1,100,400,12, ,7 

ENT  -8,60,-1,1,60,1,1 
SOUND  1,100,480,12, ,8 

Se  pueden  definir  hasta  15  envolventes  de  tono,  con  mimeros  de  referencia  del  1 
al  15;  los  mimeros  negativos  indican  que  la  envolvente  se  repite.  Para  cada  section,  el 
numero  de  escalones  puede  estar  entre  0  y  239.  La  variation  del  periodo  de  tono  en 
cada  escalon  puede  ser  de  entre  -128  y  +127.  La  duracion  de  cada  escaldn  puede  ser 
de  entre  0  y  255  (centesimas  de  segundo).  Cada  envolvente  puede  tener  hasta  5 
secciones. 
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El  ultimo  parametro  que  se  puede  incluir  en  la  instruction  SOUND,  el  septimo,  carac- 
teriza  el  nivel  de  ruido  que  se  afiade  al  sonido.  Observese  que  solo  hay  un  canal  de  ruido 
y  que,  por  consiguiente,  cada  vez  que  se  especifica  un  nivel  de  ruido  se  anula  la  anterior 
especificacion. 

El  ruido  se  puede  mezclar  con  un  tono,  pero  tambien  se  lo  puede  programar  por  separa- 
do,  para  lo  cual  se  debe  poner  un  0  como  periodo  de  tono  en  SOUND.  Esto  es  util 
para  imitar  ruidos  de  percusion: 

ENT  -3,2,1,1,2,-1,1 

ENV  9, 15,1,1, 15,-1,1 

FOR  a=l  TO  10:SOUND  1 , 4000,0,0, 9, 3, 15:NEXT 

Un  ruido  como  este  puede  servir  de  base  para  imitar  el  de  una  locomotora.  Observese 
que  hemos  combinado  los  dos  tipos  de  envolvente  y  el  ruido.  En  SOUND  hemos  puesto 
0  para  los  parametros  de  duracidn  y  de  volumen,  por  lo  que  estas  caracteristicas  quedan 
controladas  por  las  envolventes  de  volumen. 

Como  ya  estamos  en  condiciones  de  utilizar  SOUND,  ENV  y  ENT  a  plena  potencia, 
vamos  a  estudiar  algunas  otras  ordenes  y  funciones. 

Como  el  lector  recordara,  al  describir  el  primer  parametro  de  SOUND  dijimos  que  si 
le  sumabamos  el  numero  64  el  sonido  quedaba  'retenido'  en  la  cola,  y  que  no  sonaria 
mientras  no  lo  liberasemos.  La  forma  de  liberarlo  es  ejecutar  la  orden  RELEASE.  Esta 
palabra  va  seguida  de  un  numero  cuyos  bits  determinan  a  que  canales  afecta  la  orden: 

4  significa  canal  C 
2  significa  canal  B 
1  significa  canal  A 

Los  canales  se  combinan  sumando  los  numeros  correspondientes.  Asi,  para  liberar  el 
sonido  de  los  tres  canales  la  orden  que  se  requiere  es: 

RELEASE   7 

donde  7=  1  +2+4.  Si  no  hay  sonido  retenido  en  ningun  canal,  la  orden  no  tiene  efecto. 
Pruebe  lo  siguiente: 

SOUND    1 +64, 90 

SOUND  2+64,140 

SOUND  4+64,215 

RELEASE  3: FOR  t=l  TO  1000: NEXT: RELEASE  4 

No  se  produce  ningun  sonido  mientras  no  se  ejecuta  la  primera  orden  RELEASE,  la 
cual  libera  los  sonidos  de  los  canales  A  y  B.  Despues  de  una  pausa,  la  segunda  orden 
RELEASE  libera  el  canal  C. 

Hay  otro  metodo  para  sincronizar  sonidos.  Cuando  se  retiene  un  sonido  sumando  64 
a  su  numero  de  situacidn  de  canal,  no  solo  queda  el  retenido,  sino  todos  los  que  se  en- 


9/40  Cuando  usted  guste 


vfen  a  continuaci6n  a  ese  mismo  canal.  Si  se  envian  mas  de  cuatro  sonidos  a  una  cola 
que  esta  retenida,  la  maquina  queda  bloqueada  hasta  que  se  libere  la  cola  (posiblemente 
al  ejecutarse  una  subrutina  invocada  por  AFTER  o  EVERY).  Esta  no  es  una  buena  for- 
ma de  gestionar  los  sonidos,  ya  que  la  maquina  se  detendra  cada  vez  que  se  llene  una 
cola-  Lo  mismo  ocurre  si  se  ejecutan  varias  ordenes  SOUND  seguidas.  Pruebe  este 
programa: 

10  FOR  a=l  TO  8 

20  SOUND  l,100*a,200 

30  NEXT 

40  PRINT"hola" 

run 

El  texto  no  aparece  en  la  pantalla  inmediatamente,  sino  al  cabo  de  ires  segundos.  Esto 
ocurre  porque  el  programa  no  puede  llegar  a  la  b'nea  40  mientras  no  haya  espacio  libre 
en  la  cola  para  almacenar  todos  los  sonidos. 

BASIC  dispone  de  un  mecanismo  de  interruption,  similar  al  que  se  utiliza  en  AFTER, 
EVERY  y  ON  BREAK  GOSUB,  mediante  el  cual  se  puede  hacer  que  se  ejecute  una 
subrutina  cada  vez  que  queda  espacio  libre  en  una  cola  especificada: 

10   a=0 

20  ON  SGM1)  GOSUB  1000 

30  PRINT  a; 

40  GOTO  30 

1000  a=a+10 

1010  SOUND  l,a,200 

1020  IF  a<200  THEN  ON  SQ ( 1 )  GOSUB  1000 

1030  RETURN 


Observe  que  el  programa  no  se  detiene.  La  instruction  SOUND  no  se  ejecuta  mientras 
no  hay  espacio  libre  en  la  cola  del  canal  A  (1),  hecho  que  detecta  la  orden  ON  SQ(1) 
GOSUB  de  la  linea  20.  Esta  orden  inicializa  un  mecanismo  de  interrupci6n  que  ejecuta 
la  subrutina  cada  vez  que  queda  un  hueco  libre  en  la  cola  especificada.  El  mecanismo 
tiene  que  ser  reinicializado  cada  vez  que  se  ejecuta  la  subrutina  (linea  1020).  En  este 
ejemplo,  la  reinicializaci6n  solo  se  produce  si  a  es  menor  que  200. 

En  un  programa  que  lleve  a  cabo  acciones  relativamente  lentas  (por  ejemplo,  mover 
objetos  por  la  pantalla),  se  puede  poner  musica  de  fondo  programando  una  subrutina 
que  ejecute  una  nota  cada  vez  que  quede  un  hueco  libre  en  la  cola.  De  esta  forma  se 
asegura  que  el  programa  no  se  va  a  detener  en  espera  de  que  quede  espacio  en  la  cola. 
Si  los  valores  de  las  notas  estan  contenidos  en  listas  DATA,  se  puede  hacer  que  la  sub- 
rutina de  sonido  deje  de  reinicializarse  cuando  los  datos  esten  a  punto  de  agotarse. 

El  parametro  que  va  entre  par6ntesis  en  la  instrucci6n  ON  SQ(  )  GOSUB  puede  ser 
1,  2  o  4,  dependiendo  del  canal  cuya  cola  se  desee  examinar. 
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Hay  una  funcion,  SQ(  ),  que  se  puede  utilizar  para  determinar  el  estado  de  los  canales 
de  sonido.  Su  parametro  puede  ser  1,  2  o  4.  El  valor  generado  por  la  funci6n  se  inter- 
preta  bit  a  bit  segiin  la  siguiente  tabla: 


Bit  Decimal  Significado 

0,  1,  2  1  a  4  Niimero  de  huecos  libres  en  la  cola 

3  8  La  primera  nota  de  la  cola  esta  marcada  para  sincronizar  con  el  canal  A 

4  16  La  primera  nota  de  la  cola  esta  marcada  para  sincronizar  con  el  canal  B 

5  32  La  primera  nota  de  la  cola  esta  marcada  para  sincronizar  con  el  canal  C 

6  64  La  primera  nota  de  la  cola  esta  retenida  (esta  a  1  el  bit  de  retenci6n) 

7  128  En  este  momento  esta  sonando  una  nota 


Pruebe  el  siguiente  ejemplo: 

10  SOUND  2,200 

20  x=SQ(2) 

30  PRINT  BIN*(x) 

run 

La  linea  30  escribe  el  niimero  binario  10000100.  El  bit  7  esta  a  1,  lo  que  indica  que  en 
el  canal  habia  una  nota  sonando  cuando  se  ejecuto  la  linea  20.  Los  tres  dfgitos  menos 
significativos  son  100;  equivalen  al  niimero  decimal  4,  y  esto  quiere  decir  que  habia 
cuatro  espacios  libres  en  la  cola.  Esta  funcion  examina  la  situation  del  canal  en  un  pun- 
to  especifico  del  programa;  en  cambio,  ON  SQ( )  GOSUB  examina  la  cola,  y  reacciona 
en  consecuencia,  en  un  punto  indeterminado. 

Hasta  ahora  todos  los  ejemplos  nan  consistido  en  hacer  sonar  una  o  dos  notas.  Si  se 
va  a  ejecutar  un  grupo  de  notas  independientes,  por  ejemplo  las  de  una  melodia,  sus 
caracteristicas  se  pueden  guardar  en  lineas  DATA,  para  luego  leerlas  con  READ  e  in- 
troducirlas  en  SOUND: 

10  FOR  octava=-l  TO  2 

20  FOR  x=l  TO  7: REM  notas  por  octava 

30  READ  nota 

40  SOUND  l,nota/2toctava 

50  NEXT 

60  RESTORE 

70  NEXT 

80  DATA  426,379,358,319,284,253,239 

run 

El  ejemplo  final  de  esta  section  se  basa  en  este  concepto.  En  los  canales  A  y  B  se  hace 
sonar  una  melodia  con  ritmo,  utilizando  la  sincronizacion.  Este  ejemplo  muestra  como 
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utilizar  las  listas  DATA  para  incluir  informaci6n  sobre  nota,  octava,  duration  y 
sincronizacion: 

10  REM  la  llnea  190  da  la  melodla  en  clave  de  agudos 

20  REM  la  llnea  200  da  la  melodla  en  clave  de  graves 

30  DIM  escala%(12) :FOR  x%=1  TO  12:READ  escala%(x%) : NEXT 

40  canal 1%=1: READ  canal  1*: canal2%=2: READ  canal2* 

50  CLS 

60  velocidad%=12 

70  escala*=M  a-b  b  c+c    d-e  e  -F+-F  g+g" 

80  ENV  1,2,5,2,8,-1,10,10,0,15 

90  ENV  2,2,7,2,12,-1,10,10,0,15 

100  ENT  -1,1,1,1,2,-1,1,1,1,1 

110  DEF  FNm*(s*,s)=MID*(s*,s,l) 

120  canal 1%=1:G0SUB  200 

130  canal2%=l:G0SUB  380 

140  IF  canal l%+canal2%>0  THEN  140 

150  END 

160   DATA   &777 ,  k70c ,  k6a7 ,  fc647 ,  k5ed ,  k598 

170    DATA    6(547,  M-f  c,  &4b4,  8<470,  k43 1 ,  k3+  4 

180  DATA  4cr4-f4-fl-flglAl-B2C2-f4g2glAl-B6A2Crl-f lgl-f lglal- 
blAl-b2C2g2A2g2-Flgla2g2-F6e2c2e2c2g2e2cl-BlA2g2-F4e4d 
8c4-f3-flc2d4-b2-fr2-B2A2g2-f6e2gr4C4-Blal-fl-blg2c2-b4a 
4g4-fr6A2A2-B4-B2Ar-2-B2A2g2-f6e2g4C4-BlAl-f  l-Blg2C2-B4 
A4g8-f . 

190  DATA  r4-F4-F8-f4e4c4-fr8-F4e2-f2e4d2e2d8c8c6e2-F4g4g8e4-F3-f 
Ic4dr8g4cr4e4c6-f2d4c4c8-fr8-e4dr8g8c4e4c6-f2d4c4c8-f . 

200   REM   enviar    son i do    al    canal    A 

210  pl*=FNm*(canall*,canall%) 

220  IF  pl*<>"r"  THEN  rl%=0:GOTO  240 

230  rl%=16: canal l%=canal 1%+1 : pl*=FNm* (canal  1$, canal  1%) 

240  IF  pl*=" ."  THEN  canal 1%=0: RETURN  ELSE  1 1%=VAL <pl«) 

250  canal l%=canall%+l 

260  nl*=FNm*(canall*, canal  1%) 

270  canal l%=canall%+l 

280  IF  nl*="+"  OR  nl*="-"  THEN  350 

290  nl*="  u+nl* 

300  ndl%=(l+INSTR(escala*,LOWER*(nl*) ) ) II 

310  IF  ASC(RIGHT*(nl*, 1) ) >96  THEN  ol%=8  ELSE  ol%=16 

320  SOUND  l+rl%,escala%(ndl%) /ol%, velocidad%*l 1%, 0,1,1 

330  ON  SQ(1)  GOSUB  200 

340  RETURN 

350  nl*=nl*+FNm* (canal  1$, canal  1%) 

360  canal l%=canall%+l 

370  GOTO  300 

380  REM  enviar  sonido  al  canal  B 
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390  p2*=FNm*(canal2*,canal2%) 

400  IF  p2*<>"r"  THEN  r2%=0:GOTO  420 

410  r2%=8:canal2%=canal2%+l:p2*=FNm*(canal2*,canal2%) 

420  IF  p2*="."  THEN  canal2%=0: RETURN  ELSE  12%=VAL<p2*) 

430  canal 2%=canal2%+l 

440  n2*=FNm*(canal2*,canal2%) 

450  canal 2%=canal2%+l 

460  IF  n2*="+n  OR  n2*="-"  THEN  530 

470  n2*="  "  +  n2* 

480  nd2%=(l+INSTR(escala*, LOWER* (n2*) ) ) /2 

490  IF  ASC ( RIGHT* ( n2«, 1) ) >96  THEN  o2%=4  ELSE  o2%=8 

500  SOUND  2+r2%,escala%(nd2%)/o2%,velocidad%*12%,0,  1,2 

510  ON  SQ(2)  G0SU6  380 

520  RETURN 

530  n2*=n2*+FNm*(canal2*,canal2%) 

540  canal2%=canal2%+l 

550  GOTO  480 

run 


Dicho  graficamente 


En  esta  section  vamos  a  repasar  las  funciones  graficas  del  ordenador.  Iremos  constru- 
yendo  paso  a  paso  un  primer  ejemplo  para  ilustrar  el  funcionamiento  de  las  diversas 
instrucciones. 

Para  empezar,  dividimos  la  pantalla  en  una  ventana  de  texto  (lfnea  40)  y  una  ventana 
grafica  (lfnea  30).  Ademas,  establecemos  el  modo  de  pantalla  y  asignamos  tintas  parpa- 
deantes  a  dos  plumas  (li'neas  20): 

10  REM  MASK  y  TAG  en  una  ventana 
20  MODE  1:INK  2, 10,4: INK  3,4,10 
30  ORIGIN  440,100,440,640,100,300 
40  WINDOW  1,26, 1,25 
50  CLG  2 

Si  ejecuta  este  programa,  podra  ver  un  cuadrado  parpadeante  al  lado  derecho  de  la 
pantalla.  Este  cuadrado  ha  sido  borrado  con  la  pluma  niimero  2  (magenta/cyan)  por 
la  linea  50.  El  origen  de  coordenadas  ha  sido  trasladado  al  extremo  inferior  izquierdo 
del  cuadrado.  La  orden  MODE  ha  llevado  el  cursor  al  origen  de  coordenadas  (X=0, 
Y=0);  podemos  dibujar  una  diagonal  en  el  cuadrado  con  la  linea  60: 

60    DRAW    200,200,3 


9/44  Cuando  usted  guste 


Ejecute  el  programa  y  observe  el  efecto.  Anada  ahora: 
80   MOVE   0,2: FILL    3 

La  linea  80  Ueva  el  cursor  al  interior  de  una  de  las  dos  mitades  del  cuadrado  y  la  rellena 
con  la  pluma  3.  El  limite  del  recinto  que  se  rellena  es  el  borde  de  la  ventana  grafica 
(que  en  este  caso  es  tambien  el  del  cuadrado)  y  cualquier  recta  que  se  haya  dibujado 
con  la  pluma  grafica  actual  (la  3)  o  con  la  que  se  utiliza  para  rellenar  (tambien  la  3). 

Ejecute  esta  version  del  programa. 

Para  comprobar  lo  dicho  acerca  de  los  limites  del  recinto,  ariada  la  siguiente  linea  70. 
Observe  que  la  linica  razon  para  que  el  rellenado  se  limite  a  una  mitad  del  cuadrado 
es  que  la  pluma  de  rellenar  es  el  misma  con  la  que  se  dibujo  la  diagonal. 

70  GRAPHICS  PEN  1 
run 

Modifique  la  linea  80  para  rellenar  con  la  pluma  1  y  ejecute  el  programa  para  compro- 
bar esto  ultimo.  Cuando  lo  haya  hecho,  vuelva  a  dejar  la  linea  80  como  estaba  (FILL  3). 

Aflada  ahora  las  lineas  siguientes  para  dibujar  un  cuadrado: 

100  MOVE  20,20 
110  DRAW  180,20 
120  DRAW  180, 180 
130  DRAW  20, 180 
140  DRAW  20,20 
run 

Este  cuadrado  ha  sido  dibujado  con  la  pluma  1  a  causa  de  la  linea  70.  Si  omitieramos 
la  linea  70,  tendriamos  que  incluir  ',1'  como  tercer  parametro  de  MOVE  en  la  linea 
100,  o  bien  en  el  DRAW  de  la  linea  110,  para  pedir  al  ordenador  que  cambiase  la  pluma 
grafica. 


Lineas  discontinuas 


Las  rectas  que  dibujemos  no  tienen  que  ser  necesariamente  de  trazo  continuo,  sino  que 
pueden  ser  de  puntos.  La  orden  MASK  nos  permite  definir  el  tamano  de  los  puntos. 
La  forma  que  definamos  se  repetira  cada  8  pixels.  Si  la  primera  linea  deja  incompleto 
el  ultimo  grupo  de  8  pixels,  la  siguiente  empezara  dibujando  los  puntos  restantes.  Con 
una  nueva  orden  MASK  (quiza  con  el  mismo  parametro)  se  hace  que  el  siguiente  dibu- 
jo empiece  por  el  principio  del  grupo. 
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El  parametro  de  MASK  es  en  realidad  un  byte  binario  en  el  que  los  bits  que  estan  a 
1  indican  que  el  pixel  correpsondiente  se  debe  iluminar  con  la  tinta  de  la  pluma.  En 
nuestro  ejemplo  vamos  a  poner  el  parametro  directamente  en  forma  binaria  (identifica- 
da  por  el  prefijo  &X);  queremos  que  cada  grupo  de  8  pixels  tenga  cuatro  pixels  ilumina- 
dos  en  el  centro  y  dos  apagados  a  cada  lado.  De  esta  forma  las  rectas  seran  de  trazos, 
con  cuatro  pixels  encendidos  y  cuatro  apagados.  Afiada  la  linea  siguiente: 

90  MASK  kX00111100 
run 

Pero  vemos  que  el  enlace  en  los  rincones  no  es  como  nos  gustaria.  Lo  que  ocurre  es 
que  los  pixels  de  las  esquinas  se  dibujan  dos  veces:  una  al  final  de  una  recta  y  otra  al 
principio  de  la  siguiente.  Una  forma  un  tanto  torpe  de  resolver  este  problema  es  incluir 
las  h'neas: 

115  MOVE  180,22 
125  MOVE  178, 180 
135  MOVE  20,178 
RUN 

Pero  es  mas  facil  poner  ',0'  como  segundo  parametro  de  MASK  para  indicar  que  no 
se  debe  dibujar  el  primer  punto  de  cada  linea.  Modifique  la  linea  90: 

90  MASK  kX001 11 100,0 

y  borre  las  que  ya  no  necesitamos: 

115 
125 
135 

Ejecute  el  programa  y  observe  que  el  cuadrado  vuelve  a  ser  simetrico.  Si  hubieramos 
puesto  '.V  como  segundo  parametro  de  MASK,  todas  las  rectas  serfan  de  trazo  conti- 
nuo  con  el  primer  pixel  encendido. 

Ahora  observe  los  huecos  entre  trazos.  En  el  triangulo  inferior  derecho  hay  algo  que 
no  esta  en  el  otro:  es  el  papel  grafico,  al  que  se  ha  dado  el  niimero  2  con  la  orden  CLG 
2  de  la  h'nea  50,  pero  que  es  invisible  en  el  triangulo  superior  porque  es  del  mismo  color 
que  el  fondo.  Modifique  la  h'nea  50: 

50  CLG  2: GRAPHICS  PAPER  0 

y  vuelva  a  ejecutar  el  programa.  El  papel  ya  es  visible  en  todos  los  bordes  del  cuadrado. 

Podemos  hacer  que  el  papel  grafico  sea  invisible  ('transparente').  Esto  significa  que 
cuando  dibujemos  lineas  de  trazos,  los  huecos  no  taparan  lo  que  haya  debajo.  Los  di- 
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bujos  se  hacen  transparentes  anadiendo  '.V  a  la  orden  GRAPHICS  PEN.  (Para  hacer- 
los  opacos  el  parametro  debe  ser  ',0')-  Modifique  la  li'nea  70: 

70  GRAPHICS  PEN  1,1 
run 

y  observe  el  resultado. 

Ademas  de  dibujar  rectas  (y  puntos  sueltos),  podemos  escribir  textos  en  la  position  del 
cursor  grafico.  La  ventaja  con  respecto  al  metodo  normal  de  escritura  de  textos  es  que 
asf  podemos  situar  los  textos  con  mayor  precisi6n  (justamente  en  el  pixel  deseado,  en 
vez  de  a  saltos  de  8  pixels). 

Para  escribir  caracteres  por  este  metodo,  el  cursor  se  pone  en  el  lugar  en  el  que  quere- 
mos  que  quede  el  punto  superior  izquierdo  del  caracter,  despues  ejecutamos  la  orden 
TAG  (o  TAG  #x  para  otros  canales)  seguida  de  las  ordenes  PRINT  normales.  El  cursor 
grafico  avanza  automaticamente  8  pixels  hacia  la  derecha  cada  vez  que  se  escribe  un 
caracter.  Aflada  las  siguientes  lineas: 

160  MOVE  64,108 

170  TAG 

180  PRINT  "ELENA" 

190  TAGOFF 

run 

(BASIC  envia  siempre  sus  mensajes  a  la  ventana  de  texto,  cualquiera  que  sea  la  situa- 
ci6n  del  conmutador  TAG/TAGOFF,  pero  es  una  buena  costumbre  cancelar  TAG  en 
cuanto  se  haya  terminado  de  escribir  en  la  pantalla  grafica.) 

Pero  ique  son  las  flechas  que  han  salido  a  la  derecha  del  nombre?  Muy  sencillo:  el  codi- 
go  de  retorno  del  carro,  CHR${13),  y  el  de  avance  de  linea,  CHR${10),  en  version  grafi- 
ca. Las  rutinas  del  firmware  que  escriben  en  la  pantalla  grafica  traducen  los  32  prime- 
ros  caracteres  ASCII  a  sus  versiones  graficas  [igual  que  si  se  los  enviara  a  la  pantalla 
de  texto  precedidos  de  CHR${1)].  La  razon  es  que  los  32  codigos  de  control  normal- 
mente  solo  tienen  utilidad  en  la  pantalla  de  texto;  por  lo  mismo,  si  sobrepasamos  el 
borde  derecho  al  escribir  en  la  pantalla  grafica,  el  ordenador  lo  permite  y  no  salta  auto- 
maticamente a  la  linea  siguiente. 

Los  signos  de  retorno  del  carro  y  de  avance  de  linea  se  suprimen  poniendo  un  punto 
y  coma  al  final  de  la  instrucci6n  PRINT: 

180    PRINT    "ELENA"; 
run 

El  texto  enviado  a  la  pantalla  grafica  usando  TAG  depende  de  las  mismas  ordenes 
GRAPHICS  PEN  que  los  dibujos.  Asi,  en  el  ejemplo,  el  nombre  lo  escribe  GRA- 
PHICS PEN  1,  y  es  transparente.  La  orden 
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150  GRAPHICS  PEN  1,0 
run 

selecciona  papel  opaco,  mientras  que 

150  GRAPHICS  PEN  0,1 
RUN 

escribe  con  pluma  numero  0  en  modo  transparente. 

Borre  la  linea  150  y  ejecute  el  programa.  La  pluma  grafica  vuelve  a  ser  1  en  modo  trans- 
parente (lfnea  70). 


Caracteres  transparentes 


Hay  un  codigo  de  control  que  permite  escribir  caracteres  en  la  pantalla  de  texto  en  mo- 
do transparente.  Afiada  las  siguientes  lfneas: 

200  PRINT#2,CHR*<22) ;CHR*(1) 

210  LOCATE  1*2,32, 14: PRINTH2, "******" 

220  LOCATE  #2, 32, 14:PRINTtt2, " " 

230  PRINT«2,CHR*<22) ;CHR*(0) 
run 

La  linea  200  pone  el  canal  #2  en  modo  transparente.  Observe  que  los  signos  de  subrayar 
se  funden  con  los  asteriscos  sin  borrarlos.  De  esta  manera  se  pueden  formar  caracteres 
compuestos,  incluso  en  varios  colores.  La  linea  230  vuelve  a  poner  el  canal  #2  en  modo 
opaco. 


Modos  de  tinta 


Es  posible  dibujar  graficos  de  tal  modo  que  la  tinta  con  la  que  se  dibuja  interaccione 
con  la  ya  presente  en  la  pantalla.  El  numero  de  tinta  final  para  cada  punto  se  calcula 
realizando  una  operacion  logica  con  la  antigua  tinta  del  pixel  y  la  tinta  de  la  pluma  gra- 
fica. La  operacion  puede  ser  AND,  OR  o  XOR.  El  modo  de  tinta  se  puede  especifi- 
car  como  cuarto  parametro  en  las  instrucciones  DRAW/DRAWR,  PLOT/PLOTR 
o  MOVE/MOVER,  o  bien  enviando  a  la  pantalla  los  codigos  de  control 
CHR$(23)+CHR$(<modo>).  En  cualquier  caso,  el  modo  es  1  para  XOR,  2  para  AND 
y  3  para  OR.  El  valor  0  restaura  el  modo  normal,  en  el  que  se  dibuja  sin  interaction. 

En  el  siguiente  ejemplo  ilustramos  la  combination  XOR.  Este  modo  se  utiliza  habitual- 
mente  en  los  denominados  'graficos  de  tortuga',  porque  tiene  la  propiedad  de  que  si 
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se  dibuja  algo  dos  veces  se  restaura  la  situation  original.  La  rutina  que  dibuja  el  cua- 
drado  se  ejecuta  dos  veces  (en  las  lineas  110  y  130),  asi  como  la  escritura  con  TAG  (li- 
neas  170  y  190).  Las  ordenes  FRAME  introducen  un  retardo  suficiente  como  para  que 
el  efecto  sea  visible.  Notese  que  las  6rdenes  de  la  linea  90  no  llevan  primer  parametro. 
Esto  es  correcto  tratandose  de  estas  ordenes  concretas;  lo  hemos  hecho  asi  para  no  mo- 
dificar  las  caracteristicas  correspondientes. 

El  tercer  parametro  (,1)  de  la  orden  MOVE  de  la  linea  220  selecciona  la  pluma  grafica 
mimero  1,  anulando  asi  la  '3'  seleccionada  en  la  linea  60.  El  modo  XOR  se  establece 
en  el  cuarto  parametro  de  la  orden  DRAWR  de  la  linea  230.  Observese  que  tambien 
aqui  hemos  omitido  un  parametro. 

Podemos  observar  una  consecuencia  del  efecto  del  segundo  parametro  de  MASK  su- 
primiendo  esta  orden  de  la  linea  90.  Los  rincones  del  cuadrado  desaparecen  porque  se 
dibujan  dos  veces  (al  final  de  una  recta  y  al  principio  de  la  siguiente)  con  XOR. 

10   REM  modos   de   tirtta  XOR 

20  MODE  l:INK  2, 10: INK  3,4 

30  ORIGIN  440,100,440,640,100,300 

40  WINDOW  1,26,1,25 

50  CLG  2: GRAPHICS  PAPER  0 

60  DRAW  200,200,3 

70  MOVE  2,0:FILL  3 

80  ORIGIN  440,0,440,640,0,400 

90  GRAPHICS  PEN  , 1 : MASK  ,0 

100  FOR  y=60  TO  318  STEP  2 

110  GOSUB  220 

120  FRAME: FRAME 

130  liOSUB  220 

140  NEXT 

150  TAG 

160  FOR  y=60  TO  318  STEP  2 

170  MOVE  96,y:PRINT  CHR*<224) ; 

180  FRAME: FRAME 

190  MOVE  96,y:PRINT  CHR*<224M 

200  NEXT 

210  END 

220  MOVE  90,y,l 

230  DRAWR  20,0, ,1 

240  DRAWR  0,20 

250  DRAWR  -20,0 

260  DRAWR  0,-20 

270  RETURN 

run 
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Animation 

Se  puede  dar  ilusion  de  movimiento  cambiando  adecuadamente  los  colores  asignados 
a  las  tintas.  Aunque  el  contenido  de  la  memoria  de  la  pantalla  no  se  modifica,  los  dibu- 
jos  parecen  moverse.  Se  da  un  ejemplo  de  este  metodo  en  el  programa  de  demostracion 
que  se  suministra  con  el  disco  maestro  del  sistema  (RUINT'disc").  Sin  embargo,  el  sim- 
ple cambio  de  colores  de  ese  ejemplo  no  es  suficiente  cuando  las  formas  moviles  tienen 
que  solaparse.  En  el  siguiente  ejemplo  recurrimos  al  modo  OR  para  escribir  los  niime- 
ros  1  al  4  en  la  pantalla.  (La  forma  se  determina  examinando  el  caracter  que  esta  en 
el  extremo  inferior  izquierdo  de  la  pantalla  y  ampliando  lo  que  alii  se  encuentra.)  Los 
niimeros  se  escriben  sucesivamente  con  las  tintas  1,  2,  4  y  8  y  con  el  modo  OR  activado 
(en  este  caso  mediante  una  sucesi6n  de  codigos  de  control,  linea  50). 

El  bucle  que  empieza  en  la  linea  160  realiza  una  rotaci6n  de  los  colores  de  la  paleta 
mediante  una  f6rmula  matematica  que  hace  que  se  ilumine  un  niimero  cada  vez.  Las 
tintas  se  establecen  inspeccionandolas  sucesivamente  y  determinando  si  contienen  el 
componente  binario  que  estamos  buscando.  Por  ejemplo,  el  3  fue  dibujado  con  tinta 
4;  por  lo  tanto,  para  visualizar  el  niimero  3  debemos  dar  un  color  visible  a  todas  las 
tintas  cuyo  niimero  contenga  un  4  binario.  Esas  tintas  son: 

4II1H),  5(1111),  6(1111),  711111),  12I11M),  13(1111),  14(1111),  1511111) 

En  una  aplicacion  practica  se  calcularia  que  tintas  se  deberian  cambiar  en  cada  etapa, 
y  las  lineas  180  a  200  se  sustituirian  por  una  rutina  mas  rapida. 

10  REM  animacion  con  tintas 

20  ON  BREAK  GOSUB  220 

30  FOR  i=l  TO  15:INK  i,26:NEXT 

40  ra(l)=l:m(2)=2:ra(3)=4:ra(4)=8 

50  MODE  0: PRINT  CHR* (23) ; CHR* (3) ; : TAG 

60  FOR  p=l  TO  4 

70  GRAPHICS  PEN  m(p),l 

80  LOCATE  ttl,l,25:PRINT**l,CHR*<48+p)  5 

90  FOR  x=0  TO  7 

100  FOR  y=0  TO  14  STEP  2 

110  IF  TEST(x*4,y)=0  THEN  140 

120  MOVE  <x+6)*32, <y+6)*16: PRINT  CHR*(143)J 

130  MOVE  (x+6)*32, (y+7)*16: PRINT  CHR*(143); 

140  NEXT  y,x,p 

150  LOCATE  *»1,1,25:PRINT*»1,"  "5 

160  FOR  p=l  TO  4 

170  FOR  i=l  TO  25: FRAME: NEXT 
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180  FOR  i=0  TO  15 

190  IF  (i  AND  m(p))=0  THEN  INK  i,0  ELSE  INK  i ,  26 

200  NEXT  i,p 

210  GOTO  160 

220  INK  1,26 

run 


Sprites 

En  el  ejemplo  anterior  hemos  visto  c6mo  se  da  ilusion  de  movimiento  cambiando  los 
colores  despues  de  escribir  con  las  tintas  1 ,  2,  4  y  8.  Un  efecto  muy  distinto  se  consigue 
si  se  utilizan  las  mismas  tintas  pero  se  manejan  los  colores  de  forma  diferente.  Este 
efecto  se  conoce  con  el  nombre  de  'pianos  de  color';  lo  ilustramos  en  el  siguiente 
ejemplo. 

10  REM  mon tafias 

20  DEFINT  a-s,u-z 

30  INK  0,1: INK  1,26 

40  INK  2,6:INK  3,6 

50  FOR  i=4  TO  7: INK  i, 9: NEXT 

60  FOR  i=8  TO  15: INK  i, 20: NEXT 

70  MODE  0:DEG: ORIGIN  0, 150: CLG: MOVE  0,150 

80  FOR  x=16  TO  640  STEP  16 

90  DRAW  x,COS(x)*150+RND#100,4 

100  NEXT 

110  MOVE  0,0:FILL  4 

120  cx=175:G0SUB  320 

130  cx=525:G0SUB  320 

140  SYMBOL  252,0,0,&<C,&l:lF,&<30,&c7F,&cFF 

150  SYMBOL  253,0,6,&<E,&<F2,2,&cF2,&cFE 

160  SYMBOL  254,0,  8*60 ,  B<70 ,  &7F ,  8,:7F ,  k7F ,  k7F 

170  SYMBOL  255,0,0,0,&:F8,a(:EC,B<FE,B<FF 

180  pr*=CHR*(254)+CHR*<255) 

190  pl*=CHR*(252)+CHR*<253) 

200  TAG:t=TIME 

210  FOR  x=-32  TO  640  STEP  4 

220  x2=< <608-x)*2)MOD  640: hl=RND*10: hr=50*SIN ( x ) 

230  GRAPHICS  PEN  8,1: MOVE  x , 100+hr , , 3: PRINT  pr*5 

240  GRAPHICS  PEN  2,l:M0VE  x2, 1 15+hl , , 3: PRINT  pl*J 

250  IF  (TEST(x2-2,115+hl-12)  AND  8)=8  THEN  380 

260  IF  TIME-t<30  ThEN  260 

270  FRAME: t=TIME 

280  GRAPHICS  PEN  7,1: MOVE  x , 100+hr ,, 2: PRINT  pr*; 

290  GRAPHICS  PEN  13,1:M0VE  x2, 1 15+hl ,, 2: PRINT  pl*S 

300  NEXT 
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310  GOTO  210 

320  MOVE  ex, 100 

330  FOR  x=0  TO  360  STEP  10 

340  DRAW  cx+SIN(x)*50+10*RND,100+COS(x)*25+10*RND, 1 

350  NEXT 

360  DRAW  cx,100:MOVE  cx,90:FILL  1 

370  RETURN 

380  ENT  -1,1,1,1 

390  SOUND  1,25, 400, 15,, 1,15 

400  FOR  y=100+hr  TO  -132  STEP  -2 

410  GRAPHICS  PEN  7,1: MOVE  x,y,,2:PRINT  pr*J 

420  GRAPHICS  PEN  8,1:M0VE  x, y-2, , 3: PRINT  pr*5 

430  NEXT 

440  GOTO  70 


Para  explicar  como  funciona,  una  vez  mas  tenemos  que  expresar  los  numeros  de  INK 
en  binario.  Empezando  por  el  numero  maximo  (el  15),  asignamos  el  color  cyan  a  todas 
las  tintas  que  tienen  activo  el  bit  del  '8'  (de  la  15  a  la  8).  Despues  damos  el  color  verde 
a  todas  las  que  tienen  activado  el  bit  del  '4'  (de  la  7  a  la  4).  Las  tintas  2  y  3  tienen  a 
1  el  bit  del  '2'  y  les  asignamos  el  color  rojo.  Finalmente,  asignamos  el  color  bianco  a 
la  tinta  1  y  dejamos  la  tinta  0  en  azul. 

Los  graficos  se  envian  a  la  pantalla  en  modo  OR  (lineas  230  y  240).  El  color  que  se 
ve  en  la  pantalla  en  cada  pixel  esta  determinado  por  el  bit  mas  significativo  del  resultan- 
te  en  ese  punto.  Asi  pues,  una  imagen  que  este  en  un  piano  'mas  significativo'  predomi- 
na  sobre  otra  que  este  en  un  piano  'menos  significativo',  pero  el  fondo  se  conserva  y 
vuelve  a  ser  visible  si  se  retira  la  imagen  'mas  significativa'.  La  forma  de  retirar  la  ima- 
gen consiste  en  dibujarla  en  modo  AND:  las  tintas  7,  11,  13  y  14  borran  las  tintas  8, 
4,  2  y  1,  respectivamente  (lineas  280  y  290). 


Graficos  con  el  segundo  banco  de  64K  de  RAM 

Para  concluir  este  capitulo  ofrecemos  un  programa  'diseflador  de  pantallas  graficas' 
que  utilizan  los  64K  adicionales  de  RAM. 

10  'Disefrador  de  pantallas,  por  David  Radisic 

20  '  copyright  (c)  AMSOFT  1985 

30  ' 

40  'No  olvide  ejecutar  BANKMAN  antes  que  este  programa 

50  ' ************************************************** 

60  ' 

70  ON  ERROR  GOTO  2740 
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80  DEFINT  a-x 

90  MODE  l:ch=127:ord=l:pn(0)=0:pn ( l)=26:pn (2)=15:pn (3)=6: 

pn (4) =0:pn=l : norx=l : menus l: zzz=HIMEM 
100  DIM  orden*(22) 
110  norx*(0)="Normal":norx*(l)="XOR    " : norx*<2)  =  "Transp" 

:norx*(3)="X0R 
120  RESTORE:READ  ords*(l)  ,ords*<2)  : ord*=CHR*< 16) +CHR*(&7F 

) +ords*(l) +ords*<2) 
130  READ  ordrmm:FOR  i=l  TO  ordnum:READ  orden*( i ) : NEXT 
140  READ  parar*:IF  parar*<>n**"  THEN  ord*(ord) =parar*: ord 

=ord+l:GOTO  140 
150  WINDOW  ♦♦0,1,40,1, 3:  PAPER  «0,0:PEN  «0,1:CLS  «0 
160  WINDOW  ttl,l,40,4,4:PAPER  ttl,3:PEN  #l,l:CLS  ttl 
170  ORIGIN  0,0,0,640,0,334 
180  x=320:y=200:MOVE  x,y 

190  BORDER  pn(4):F0R  i=0  TO  3: INK  i,pn(i):NEXT 
200  MASK  255,0: PAPER  0:PEN  1 : PAPER  ttl,3:PEN  ttl , 1 : GRAPHICS 

PEN  pn,norx 
210  IF  ind<>5  THEN  280 
220  IF  pn<2  THEN  -f  lecha*=CHR*  (240)  :  px=  <pn  +  l )  *13  ELSE  IF  p 

n<4  THEN  -f  lecha*=CHR*(241 )  : px=  (pn-1 ) *13  ELSE  -flecha*= 

CHR*(243) :px=37 
230   LOCATE    px,2:PRINT    -flecha*; 
240    LOCATE    1,1:  PRINT    USING"  PEN    0    :     ♦♦♦♦         PEN    1     :     ♦♦♦♦"Jpn 

(0) ipn(l) ; 
250   LOCATE    29,2:PRINT    USINC'Border    :    tttt";pn(4) 
260    LOCATE    1,3:  PRINT    USING"  PEN    2    :     ♦♦♦♦         PEN    3    :     ««";pn 

(2) ;pn<3) ; 
270    LOCATE    px, 2: PRINT"     "5 
280    LOCATE    ttl ,  1 ,  1 :  PRINT    ttl,USING"X    :♦♦#♦♦♦♦      Y    :##♦♦♦♦       "5x;y; 

:PRINTttl, "Modo  de  tinta:  " ; norx$( norx  + <borrar*2) ) ; "  " 

i 

290  IF  ind=0  THEN  GOSUB  2260 

300  ' 

310  GOSUB  970 

320  ' 

330  IF  ind>0  THEN  390 

340  IF  i*="»  THEN  390 

350  ord=INSTR(ord*, i*) : IF  ord=0  THEN  390 

360  IF  ord=l  THEN  CLG: x=320: y=200: GOTO  390 

370  IF  ord=2  THEN  RUN  70 

380  ON  ord-2  GOSUB  1240,1410,1520,1640,1840,1860,1950,202 

0 , 2090 ,2120,2170, 2200 , 2660 , 2660 , 2660 , 2660 , 2390 , 2330 , 2 

200 
390  IF  tx=0  AND  ty=0  THEN  200 
400  IF  ind>0  THEN  440 
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410  GOSUB  630 

420  GOSUB  680: FRAME: GOSUB  680 

430  GOTO  200 

440  MOVE  tempx, tempy, pn, 1 

450  ON  ind  GOSUB  470,490,550,640 

460  GOTO  200 

470  PLOT  x,y: GOSUB  630: PLOT  x,y 

480  RETURN 

490  DRAW  tempx+x, tempy: DRAW  tempx+x, tempy+y 

500  DRAW  tempx, tempy+y: DRAW  tempx, tempy 

510  GOSUB  630 

520  DRAW  tempx+x, tempy: DRAW  tempx+x, tempy+y 

530  DRAW  tempx, tempy+y: DRAW  tempx, tempy 

540  RETURN 

550  MOVE  tempx, tempy: DRAWR  x,y 

560  IF  treslados=0  THEN  580 

570  DRAW  tempxx, tempyy:DRAW  tempx, tempy 

580  GOSUB  630 

590  MOVE  tempx, tempy: DRAW  tempx+x , tempy+y 

600  IF  treslados=0  THEN  RETURN 

610  DRAW  tempxx, tempyy: DRAW  tempx, tempy 

620  RETURN 

630  x=x+tx:y=y+ty:RETURN 

640  MOVE  tempx, tempy: DRAW  x,y 

650  GOSUB  630 

660  MOVE  tempx, tempy: DRAW  x,y 

670  RETURN 

680  '  dibujar  y  borrar  cursor 

690  IF  ind=5  THEN  RETURN 

700  MASK  255,1 

710  IF  ind>l  THEN  xx=tempx+x: yy=tempy+y  ELSE  xx=x:yy=y 

720  IF  ind=4  THEN  xx=x:yy=y 

730  IF  ind  =  l  THEN  xx=x:yy=y 

740  IF  borrar=l  THEN  820 

750  GOSUB  790 

760  MASK  255,0 

770  IF  i*="  »  THEN  GOSUB  2150: i*="" 

780  RETURN 

790  MOVE  xx-4,yy,pn, 1 : DRAW  xx+4,yy 

800  MOVE  xx,yy-4:DRAW  xx,yy+4 

810  MOVE  xx,yy, ,xorn:RETURN 

820  nx=l: GOSUB  1220 

830  FRAME: GOSUB  1220 

840  IF  i*="  "  THEN  nx=norx : GRAPHICS  PEN  pn,l:GOSUB  1220 

850  i*=»" 

860  IF  ind<>6  THEN  760 
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870  IF  movido=0  AND  j*<>""  AND  ( j*<CHR*(240)  OR  j*>CHR*(2 

47))  THEN  ch=ASC(j«) :movido=l 
880  IF  movido=0  THEN  RETURN 
890  LOCATE  5,2 
900  FOR  i=ch-5  TO  ch+5 
910  PEN  ABS(iOch)+l 

920  ch*=CHR*(l)+CHR*(ABS(i+256)M0D  256) 
930  IF  ch=i  THEN  PRINT"  "ch*"  "J  ELSE  PRINT  ch*; 
940  NEXT 

950  PEN  l: PRINT"    =  "ch"   "i 
960  GOTO  760 

970  ty=0:tx=0: GOSUB  680: FRAME : GOSUB  680 
980  IF  INKEY(0)<>-1  OR  INKEY(72)<>-1  THEN  ty=16 
990  IF  INKEY(2)<>-1  OR  INKEY(73)<>-1  THEN  ty=-16 
1000  IF  INKEY(8)<>-1  OR  INKEY(74)<>-1  THEN  tx=-16 
1010  IF  INKEY(1X>-1  OR  INKEY(75)<>-1  THEN  tx=16 
1020  IF  INKEY(21X>-1  OR  INKEY(76)<>-1  THEN  tx=tx/8: ty=ty 

/8 
1030  IF  tx=0  AND  ty=0  THEN  movido=0  ELSE  movido=l 
1040  j*=INKEY*: i*=UPPER*(j*) 

1050  IF  (i*="  "  OR  i*=CHR*(13))  AND  ind>0  THEN  1090 
1060  IF  ind=5  THEN  1120 
1070  IF  ind=6  THEN  1170 
1080  RETURN 

1090  ON  ind  GOSUB  1240,1410,1640,1860,1950,2020 
1100  i*="» 
1110  RETURN 

1120  IF  movido=0  THEN  RETURN 
1130  IF  tx>2  THEN  pn=(pn+l)  MOD  5  ELSE  IF  tx<-2  THEN  pn=A 

BS( (pn<l) )*5-l+pn 
1140  IF  ty>2  THEN  pn (pn) = (pn (pn) +1 )  MOD  27  ELSE  IF  ty<-2 

THEN  pn(pn)=ABS(  (pn(pnXl)  )*27-l+pn  (pn) 
1150  GRAPHICS  PEN  pn:PEN  ttl,pn 
1160  tx=0:ty=0: BORDER  pn (pn) : RETURN 
1170  IF  tx<0  THEN  ch=ABS(ch+255)  MOD  256 
1180  IF  ty<0  THEN  ch=ABS (ch+246)  MOD  256 
1190  IF  tx>0  THEN  ch=(ch+l)  MOD  256 
1200  IF  ty>0  THEN  ch=(ch+10)  MOD  256 
1210  tx=0:ty=0: RETURN 

1220  TAGIMOVE  xx-8, yy+6, pn, nx : PRINT  CHR*(ch) 5 :TAGOFF 
1230  RETURN 
1240  '  C 

1250  IF  ind=l  THEN  1290 
1260  ro=l: GOSUB  2240 
1270  tempx=x: tempy=y: ind=l 
1280  RETURN 
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1290  IF  tempx=x  AND  tempy=y  THEN  1390 

1300  PLOT  x,y, ,1 

1310  t i x=MAX ( x , tempx ) -MIN ( tempx , x ) : t i y=MAX (y, tempy ) -MIN ( t 
empy,y) 

1320  ti=SQR( (tix"2)+(tiyA2) ) 

1330  ORIGIN  tempx, tempy 

1340  PLOT  0,0,pn,0:MOVE  0,-ti 

1350  FOR  2=0  TO  PI*2+0.01  STEP  PI/(ti/2) 

1360  DRAW  SIN(z+PI)*ti,COS(z+PI)*ti,pn,norx 

1370  NEXT  z 

1380  ORIGIN  0,0 

1390  x=tempx:y=tempy: tempx=0: tempy=0: ind=0 

1400  RETURN 

1410  '  R 

1420  IF  ind=2  THEN  1470 

1430  ro=2:G0SUB  2240 

1440  tempx=x: tempy=y: ind=2 

1450  x=0:y=0 

1460  RETURN 

1470  IF  norx=l  THEN  1500 

1480  MOVE  tempx, tempy: DRAW  tempx+x , tempy, , norx 

1490  DRAW  tempx+x, tempy+y:DRAW  tempx, tempy+y: DRAW  tempx, t 
empy 

1500  x=tempx: y=tempy: ind=0 

1510  RETURN 

1520  '  .  (reller.ar) 

1530  ro=3: GOSUB  2240 

1540  GOSUB  1620: IF  i*="  "  THEN  1600 

1550  color lim=VAL( i*) 

1560  ro=4: GOSUB  2240 

1570  GOSUB  1620: IF  i*="  "  THEN  1600 

1580  rel lenador=VAL< i*) 

1590  MOVE  x,y,colorl im:FILL  rellenador 

1600  ind=0: i*=n" 

1610  RETURN 

1620  i*=INKEY*:lF  < i*< -0"  OR  i*>"3")  AND  i*<>"  "  THEN  162 

0 
1630  RETURN 
1640  '  T 

1650  IF  ind=3  THEN  1700 
1660  ind=3:ro=5: GOSUB  2240 
1670  tempx=x: tempy=y 
1680  x=0:y=0 
1690  RETURN 

1700  IF  treslado5<>0  THEN  1770 
1710  ro=6: GOSUB  2240 
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1720  MOVE  0,0,pn,l: GOSUB  590 

1730  tempxx=tempx+x: tempyy=tempy+y: x=x/2:y=20 

1740  treslados=l 

1750  GOSUB  550:GOSUB  590 

1760  RETURN 

1770  IF  norx=l  THEN  1800 

1780  MOVE  tempxx, tempyy, , norx:DRAW  tempx, tempy 

1790  DRAW  tempx+x, tempy4y: DRAW  tempxx, tempyy 

1800  tempxx=0: tempyy=0 

1810  x=tempx: y=tempy: treslados=0 

1820  tempx=0: tempy=0: ind=0 

1830  RETURN 

1840  '  @ 

1850  norx=l:borrar=borrar  XOR  1 : RETURN 

1860  '  \  (linea  recta) 

1870  IF  ind=4  THEN  1910 

1880  ro=7: GOSUB  2240 

1890  tempx=x: tempy=y: ind=4 

1900  RETURN 

1910  IF  norx=l  THEN  1930 

1920  MOVE  tempx, tempy, , norx: DRAW  x,y 

1930  x=tempx:y=tempy: ind=0 

1940  RETURN 

1950  '  I 

1960  IF  ind=5  THEN  ind=0:CLS: INK  3, col  temp: INK  pn,col:GOT 

0  1990 
1970  CLS: ind=5: BORDER  pn(pn) 
1980  RETURN 

1990  FOR  i=0  TO  3: INK  i , pn ( i ): NEXT: BORDER  pn(4) 
2000  IF  pn=4  THEN  pn=l 
2010  CLS: RETURN 
2020  '  A 

2030  IF  ind=6  THEN  2070 
2040  tempx=0: tempy=0:CLS 
2050  borrar=l : ind=6: norx=l :movido=l 
2060  RETURN 
2070  ind=0 
2080  RETURN 
2090  '  N 
2100  norx=0 
2110  RETURN 
2120  '  B 
2130  GRAPHICS  PEN  pn ,0: TAG: MOVE  xx-8, yy+6, , 0: PRINT"  " ; : TA 

GOFF 
2140  RETURN 
2150  '  <BARRA  ESPACIADORA> 
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2160  PLOT  x,y,pn,norx:RETURN 

2170  '  X 

2180  norx=l 

2190  RETURN 

2200  '  M 

2210  menu=menu  MOD  2+1 

2220  GOSUB  2260: RETURN 

2230  i*=UPPER*(INKEY*):IF  i*="»  OR  INSTR <gr i*, i*) =0  THEN 

2230  ELSE  RETURN 
2240  CLS:borrar=0: PRINT  ord$(ro) ;: LOCATE  1 , 3:PRINT"<BARRA 

>  " ;:IF  ro=3  OR  ro=4  THEN  PRINT"para  terminar" 
2250  RETURN 
2260  CLS: ind=-l 

2270  FOR  i=l  TO  LEN (ords* (menu) ) 
2280  ps=i+ABS(menu=2)*LEN(ords*<l) ) 

2290  PEN  l:PRINT"<"MID*(ords*(raenu),i,l) ">"MID*(orden*(ps 

),2,4)"  "; 
2300  NEXT 

2310  PRINT"<CLR>    <DEL>    <BARRA>"; 
2320  RETURN 
2330  '  6 

2340  GOSUB  2460:  IF  nombre-f  ichero*=""  THEN  2370 
2350  GOSUB  2550 

2360  SAVE  nombre-f  ichero*, b, &C000,  M000 
2370  GOSUB  2260 
2380  RETURN 
2390  '  L 

2400  GOSUB  2460:  IF  nombre-f  ichero*=" "  THEN  2440 
2410  GOSUB  2730 

2420  LOAD  nombre-f  ichero*, &C000 
2430  GOSUB  2570 
2440  GOSUB  2260 
2450  RETURN 

2460  CLS:LOCATE  10,3:PRINT"<RETURN>  para  abandonar ! " ; 
2470  LOCATE  1 ,  1 :  PRINT"Nombre  del  -fichero?  "; 
2480  INPUT  "",  nombre-f  ichero*:  IF  nombre-f  ichero*=" n  THEN  RE 
TURN 

2490  n=INSTR  (nombre-f  ichero*,  "."):  IF  n=0  THEN  2520 
2500  IF  n=l  THEN  2460 

2510  nombre-f  ichero*=LEFT*(  nombre-f  ichero*,  n-1) 
2520  nombre-f  ic her o*=LEFT*<  nombre-f  ichero*,  8)  +n.pan" 
2530  CLS 

2540  RETURN 

2550  FOR  i=0  TO  4: POKE  &C000+ i , pn < i ) : NEXT 

2560  RETURN 

2570  FOR  i=0  TO  4: pn ( i ) =PEEK (&C000+ i )  MOD  27: NEXT 
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2580  cn=0:FOR  i=0  TO  2: IF  pn < i ) =pn < i+1 )  THEN  cn=cn+l 

2590  NEXT: IF  cn=3  THEN  2630 

2600  FOR  i=0  TO  3: INK  i,pn(i):NEXT 

2610  BORDER  pn (4) :pn=l IGRAPHICS  PEN  pn 

2620  RETURN 

2630  pn(0)=0:pn(l)=26:pn(2)=15:pn(3)=6:pn(4)=0 

2640  GOTO  2600 

2650  '  1,  2,  3  y  4 

2660  CLS:PRINT"Quiere  <6>uardar " :PRINT  TAB (8) "<R>ecuperar 

M:PRINT  TAB(6)"o  < I > i ntercambiar  la  pantalla?"; 
2670  gri*="6RI"+CHR*(13)  :60SUB  2230MF  i*=CHR*(13)  THEN  2 

260 
2680  bnk2=(ord-13) :bnkl=l 

2690  IF  i*="G"  THEN  CLS:60SUB  2550: ! SCREENCOPY, bnk2, bnkl 
2700  IF  i*="R"  THEN  60SUB  2730: ! SCREENCOPY, bnkl , bnk2:60SU 

B  2570 
2710  IF  i*="I"  THEN  CLS'.GOSUB  2730:GOSUB  2550: ! SCREENSWAP 

,bnk2, bnkl: GOSUB  2570 
2720  GOSUB  2260: RETURN 

2730  FOR  i=0  TO  3: INK  i ,0: NEXT: BORDER  0: RETURN 
2740  CLS: GOSUB  2600: RESUME  2260 
2750  DATA  "CR. T@\ IANBXM" , " 1234LGM" 
2760  DATA  19,  Ci  rcun-Ferencia,  Recuadro,  " .  rel  lenar" ,  Tr  iangul 

o,Alternar,\ recta, "Inks  ", ASCII , Normal , Borrar, "Xor 

"."Menu  ","1      ","2     ","3     -,"4      ","Leer 

Grabar , "Menu  " 
2770  DATA  Circun-Ferenc  ia,  Recuadro,  Color  del  1  imite,  Color 

para  rel lenar , Triangulo  l,Triangulo  2,Linea  recta,** 

Las  dos  ordenes  ! SCREENCOPY  y  !  SCREENSWAP  se  cargan  con  el  programa 
BAN  KM  AN  (cara  1  del  juego  de  discos  del  sistema).  Estas  ordenes  copian  e  intercam- 
bian  imagenes  de  pantalla  entre  los  diversos  bloques  de  16K  de  memoria  y  entre  los  dos 
bancos  de  64K. 

Antes  de  probar  el  programa  'dwefiador  de  pantallas'  es  necesario  ejecutar  el  'gestor 
de  bancos'.  Inserte  en  la  unidad  la  cara  1  del  juego  de  discos  del  sistema  y  escriba  lo 
siguiente: 

run"bankman" 

A  continuation  ejecute  el  programa  'disenador  de  pantallas'.  En  el  monitor  aparecera 

un  menu  y  un  cursor  grafico  parpadeante.  Pulse  la  tecla  correspondiente  a  la  opcion 

elegida. 

Por  ejemplo,  para  dibujar  una  circunferencia  pulse 
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y  luego  la  tecla  [fj  hasta  que  el  cursor  pulsatil  este  a  unos  dos  o  tres  centfmetros  por 
encima  del  centro  de  la  pantalla. 

Finalmente,  pulse  la  barra  espaciadora  para  ejecutar  la  funcion  'Circunferencia',  des- 
pues  de  lo  cual  el  programa  vuelve  al  menu. 

Si  se  teclea  una  M  (de  'M'enii)  se  obtiene  un  segundo  menu  que  ofrece  las  opciones 
de  'G'uardar  y  'R'ecuperar  pantallas  y  de  manipular  el  contenido  de  las  pantallas  '1', 
'2',  '3'  y  '4'  (que  estan  en  el  segundo  banco  de  64K  de  RAM). 

Para  utilizar  estas  funciones,  escriba  el  'niimero  de  memoria'(1,  2,  3  o  4);  aparacera 
otro  menu,  en  el  cual  se  puede  elegir: 

G  para  almacenar  una  pantalla 

R  para  recuperar  una  pantalla 

I  para  intercambiar  pantallas 

[RETURN!  para  abandonar  este  menu 

Por  ejemplo,  para  almacenar  la  pantalla  actual  en  la  memoria  2,  pulse  el  '2'  seguido 
de  la  'G'. 

Si  se  sale  de  este  menu,  pulsando  'M'  puede  volver  a  el. 

El  programa  'disefiador  de  pantallas'  realiza  diversas  funciones:  rectangulos,  circunfe- 
rencias,  triangulos,  rectas,  encendido  y  apagado  de  puntos,  rellenado  de  recintos  y  di- 
bujo  de  caracteres. 

Cuando  se  ha  terminado  el  diseflo  de  una  pantalla,  se  la  puede  grabar  en  disco  para 
su  posterior  recuperation. 

Con  esto  termina  el  ultimo  capitulo  del  manual.  Probando  y  analizando 
los  programas  que  le  hemos  ofrecido  en  estas  paginas,  y  experimentando 
con  ellos,  es  de  esperar  que  usted  haya  llegado  a  conocer  con  bastante 
profundidad  el  BASIC  de  Amstrad  y  el  propio  CPC6128. 
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Para  mas  information  . . . 

Hay  numerosas  publicaciones  de  Indescomp  y  de  otras  editoriales  en  las 
que  puede  encontrar  mas  amplia  informaci6n  sobre  el  CPC6128;  en  con- 
crete, las  especificaciones  de  BASIC  y  del  firmware  y  extensa  documen- 
tation sobre  CP/M  y  Dr.  LOGO. 

Finalmente  vamos  a  ofrecerle  cuatro  apendices:  el  Acuerdo  de  licencia 
para  el  usario  final  de  programa  CP/M,  un  glosario  de  terminologia  in- 
formatica,  los  listados  de  unos  cuantos  programas  y  un  indice 
alfabetico. 

Esperamos  que  haya  encontrado  este  manual  instructive  e  interesante  y 
le  agradecemos  que  haya  adquirido  el  CPC6128. 
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Apendice  1 

Digital  Research  y  AMSTRAD 

Acuerdo  de  licencia  para  el  usuario  final 
del  programa 


ADVERTENCIA  AL  USUARIO:  POR  FAVOR,  LEA  ATENTAMENTE  ESTA 
NOTA.  NO  ABRA  LAS  CAJAS  DE  LOS  DISCOS  MIENTRAS  NO  HAYA 
LEIDO  ESTE  CONTRATO. 

POR  EL  HECHO  DE  ABRIR  LA  CAJA  USTED  RECONOCE  QUE  ACEPTA 
LAS  CLAUSULAS  Y  CONDICIONES  SIGUIENTES. 


1.  Definiciones 


En  este  contrato: 

1.  'DRF  significa  DIGITAL  RESEARCH  (CALIFORNIA)  INC.,  P.  O.  Box  579,  Pa- 
cific Grove,  California  93950,  EE.UU.,  propietario  de  los  derechos  de  reproduction 
o  licenciatario  autorizado  del  programa. 

2.  'Maquina'  significa  un  unico  microordenador  en  que  se  utiliza  el  programa.  Para 
los  ordenadores  con  microprocesadores  multiples  se  requieren  licencias  adicionales. 

3.  'Programa'  es  el  conjunto  de  programas,  documentaci6n  y  anejos  incluidos  en  esta 
aplicacion,  asi  como  las  actualizaciones  y  modificaciones  que  DRI  pueda  suminis- 
trarle,  cualquiera  que  sea  la  forma  en  que  usted  los  utilice,  con  o  sin  sus  propias 
modificaciones. 

4.  'AMSTRAD'  significa  AMSTRAD  CONSUMER  ELECTRONICS  PLC,  Brent- 
wood House,  169  Kings  Road,  Brentwood,  Essex  CM14  4EF,  Reino  Unido. 

Usted  asume  toda  la  responsabilidad  derivada  de  la  selection  del  programa  y  de  su 
instalacion,  utilizaci6n  y  resultados. 
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2.  Licencia 

Usted  puede: 

1 .  Utilizar  el  programa  en  una  sola  maquina. 

2.  Copiar  el  programa  en  forma  electronica  o  impresa,  bien  sea  como  medida  de  segu- 
ridad  o  para  modificarlo,  siempre  condicionado  a  su  utilization  en  una  sola  maqui- 
na. Para  estos  propositos  puede  hacer  3  (tres)  copias  como  maximo.  (No  obstante, 
algunos  programas  pueden  estar  dotados  de  mecanismos  que  limiten  las  posibilida- 
des  de  copia  o  la  impidan;  son  los  marcados  con  'copy  protected').  Esta  prohibido 
copiar  la  documentation  y  los  demas  impresos.  Tambien  esta  prohibido  desensam- 
blar  el  codigo  de  maquina. 

3.  Modificar  el  programa  o  mezclarlo  con  otro  para  utilizar  el  programa  resultante  en 
una  sola  maquina.  (Toda  portion  de  este  programa  que  se  mezcle  con  otro  seguira 
estando  sujeta  a  las  clausulas  de  este  contrato.) 

4.  Transferir  el  programa  y  la  licencia  a  otro  usuario  a  condition  de  que  comunique 
a  DRI  el  nombre  y  las  senas  de  ese  otro  usuario,  y  de  que  este  acepte  (a)  las  condicio- 
nes  establecidas  en  este  contrato,  (b)  fimar  y  enviar  a  DRI  una  copia  de  la  tarjeta 
de  registro  y  (c)  pagar  los  derechos  de  transferencia  vigentes  en  el  momento.  Si  usted 
transfiere  el  programa,  debe  al  mismo  tiempo:  o  bien  transferir  todas  las  copias,  in- 
cluido  el  original,  tanto  en  version  electr6nica  como  impresa,  al  mismo  usuario,  o 
bien  destruir  todas  las  copias  no  transferidas;  esto  es  de  aplicacion  tambien  a  todas 
las  modificaciones  y  a  todas  las  porciones  del  programa  que  haya  mezclado  con 
otros  programas. 

Usted  esta  obligado  a  incluir  el  mensaje  de  copyright  en  todas  las  copias,  modificacio- 
nes y  porciones  mezcladas  con  otros  programas. 


CADA  DISCO  TIENE  GRABADO  UN  NUMERO  DE  SERD2.  USTED  NO  PUE- 
DE UTILIZAR,  COPIAR,  MODD7ICAR,  TRANSFERD*  NI  DE  NINGUNA 
OTRA  FORMA  PERMITIR  QUE  OTRA  PERSONA  LLEGUE  A  ESTAR  EN 
POSESION  DE  ESTE  PROGRAMA,  NI  DE  NINGUNA  COPIA,  MODIFICA- 
CION  O  PORCION  MEZCLADA  CON  OTRO  PROGRAMA,  SALVO  EN  LAS 
CONDICIONES  PREVISTAS  EN  ESTE  CONTRATO. 


3.  Vigencia  del  contrato 

Esta  licencia  estara  en  vigor  mientras  no  sea  cancelada.  Usted  puede  cancelarla  en  cual- 
quier  momento  destruyendo  el  programa  junto  con  sus  copias,  modificaciones  y  por- 
ciones mezcladas  con  otros  programas.  Tambien  quedara  cancelada  en  las  condiciones 
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mencionadas  en  otro  lugar  de  este  contrato,  o  por  el  hecho  de  que  usted  no  cumpla 
alguna  de  las  clausulas  del  contrato.  Al  aceptar  este  acuerdo,  usted  se  compromete  a 
destruir  todas  las  copias,  modificaciones  y  porciones  mezcladas  con  otros  programas 
en  cuanto  la  licencia  quede  cancelada. 


4.  Garantia  limitada 


EL  PROGRAMA  SE  SUMINISTRA  'TAL  CUAL'.  NI  DRI  NI  AMSTRAD 
OFRECEN  GARANTIA  ALGUNA,  NI  EXPRESA  NI  IMPLICITA,  INCLU- 
YENDO  LAS  GARANTIAS  IMPLICITAS  DE  COMERCIABILIDAD  Y  ADE- 
CUACION  A  UN  PROPOSITO  CONCRETO,  AUNQUE  SIN  LIMITARSE  A 
ESTAS.  USTED  ASUME  TODOS  LOS  RIESGOS  EN  CUANTO  A  LA  CALI- 
DAD  Y  BUEN  FUNCIONAMIENTO  DEL  PROGRAMA.  SI  ESTE  FUERA  DE- 
FECTUOSO,  USTED  (Y  DRI  Y  AMSTRAD)  ASUME  EL  COSTO  TOTAL  DE 
LA  REPARACION  O  CORRECCION  NECESARIAS. 


Ni  AMSTRAD  ni  DRI  garantizan  que  las  funciones  del  programa  vayan  a  satisfacer 
sus  necesidades,  ni  que  el  funcionamiento  del  programa  sea  ininterrumpido  y  libre  de 
error. 

No  obstante,  AMSTRAD  garantiza  que  el  disco  soporte  del  programa  esta  libre  de  de- 
fectos,  si  se  le  da  un  trato  normal,  por.un  periodo  de  90  dias  contados  a  partir  de  la 
fecha  de  la  compra,  la  cual  se  acreditara  mediante  la  factura. 


5.  Limitation  de  la  responsabilidad 

La  responsabilidad  de  AMSTRAD  se  limita  a  su  compromiso  de  sustituir  el  disco  de- 
fectuoso,  que  habra  de  ser  enviado  a  AMSOFT  junto  con  un  copia  de  la  factura. 


DRI  Y  AMSTRAD  NO  SERAN  EN  NINGUN  CASO  RESPONSABLES  DE  NIN- 
GUN  DANO,  INCLUIDAS  PERDIDAS  DE  BENEFICIOS,  PERDIDAS  DE 
AHORROS  Y  CUALESQUIERA  OTROS  PERJUICIOS  DIRECTOS  O  INDI- 
RECTOS,  AUN  CUANDO  DRI  O  AMSTRAD  HAYAN  SIDO  AVISADOS  DE 
LA  POSIBILIDAD  DE  TALES  DANOS,  NI  DE  NINGUNA  RECLAMACION 
DE  TERCEROS. 
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6.  Tarjeta  de  registro 


DRI  actualiza  de  vez  en  cuando  sus  programas.  DRI  s61o  enviara  tales  actualizations 
si  ha  recibido  de  usted  la  tarjeta  de  registro  firmada,  o  si  la  ha  recibido  un  receptor 
autorizado  por  DRI.  DRI  no  esta  obligada  a  actualizar  el  programa  ni  a  enviarle  a  us- 
ted las  actualizations. 


7.  Condiciones  generates 


Usted  no  puede  ceder,  asignar  o  transferir  ni  la  licencia  ni  el  programa  a  otras  personas, 
salvo  en  la  forma  expresamente  autorizada  en  este  contrato.  Todo  intento  de  ceder, 
asignar  o  transferir  los  derechos  y  obligaciones  descritos  en  este  contrato  sera  nulo. 

Este  acuerdo  sera  regido  e  interpretado  de  acuerdo  con  las  leyes  britanicas. 

Si  tiene  usted  alguna  pregunta  que  hacer  en  relation  con  este  contrato,  puede  escribir 
a  Digital  Research  Inc.,  P.  O.  Box  579,  Pacific  Grove,  California  93950,  EE.  UU. 


ESTE  CONTRATO  NO  PUEDE  SER  MODIFICADO  POR  PROPUESTAS  DE 
PEDIDO,  POR  ANUNCIOS  PUBLICITARIOS  NI  DE  NINGUNA  OTRA  FOR- 
MA. SOLAMENTE  PUEDE  SER  MODIFICADO  MEDIANTE  CONTRATO 
SUSCRITO  ENTRE  USTED  Y  UN  APODERADO  DE  DRI  Y  OTRO  DE 
AMSTRAD. 

USTED  RECONOCE  QUE  HA  LEIDO  ESTE  CONTRATO,  QUE  LO  ENTDZN- 
DE  Y  QUE  ESTA  DE  ACUERDO  CON  LAS  CONDICIONES  EN  EL  EXPUES- 
TAS.  USTED  ACEPTA  ADEMAS  QUE  ESTE  CONTRATO  ES  EL  UNICO  ES- 
TABLECIDO  ENTRE  USTED,  DRI  Y  AMSTRAD,  Y  QUE  ANULA  CUAL- 
QUD2R  OTRA  PROPUESTA  O  CONTRATO  ANTERIOR,  VERBAL  O  ESCRI- 
TO,  Y  CUALESQUIERA  OTRAS  COMUNICACIONES  ENTRE  USTED  Y  DRI 
O  AMSTRAD  EN  RELACION  CON  ESTE  ASUNTO. 
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Apendice  2 

Lexico  ingles-castellano  y  glosario 


Algunos  terminos  que  se  utilizan  frecuentemente  en  infor- 
mdtica,  explicados  para  los  usuarios  del  CPC6128. 


Accumulator  Acumulador 

Una  parte  del  microprocesador,  en  el  corazon  del  ordenador,  en  el  que  se  almacenan 
temporalmente  los  datos  mientras  se  los  esta  procesando.  Se  lo  utiliza  en  la  programa- 
cion  en  codigo  de  maquina.  Los  usuarios  de  BASIC  ni  siquiera  necesitan  saber  que 
existe. 


Acoustic  coupler  Acoplador  acustico 

Tambien  denominado  'modem  acustico'.  Dispositivo  electronico  mediante  el  cual  se 
puede  conectar  el  ordenador  a  la  red  telefonica.  De  esta  forma  el  ordenador  se  puede 
integrar  en  una  red  de  comunicacion  piiblica,  o  bien  comunicarse  con  otros  usuarios 
de  ordenadores  domesticos  para  el  intercambio  de  information  o  programas. 


Address  Direccion 

Niimero  que  identifica  la  position  de  una  celula  de  la  memoria  del  ordenador.  Median- 
te la  direccion  se  selecciona  una  celula  concreta  para  leer  su  contenido  o,  en  el  caso 
de  la  memoria  RAM,  para  leer  o  escribir  un  valor  en  ella. 


Adventure  game  Juego  de  aventura 

Una  pasion  para  algunos,  un  aburrimiento  para  otros.  Un  juego  de  ordenador  en  el 
que  se  in  vita  al  jugador  a  participar  en  una  serie  de  sucesos  pseudoaleatorios  con  el  ob- 
jetivo  de  salir  de  un  laberinto. 


Algorithm  Algoritmo 

Nombre  grandilocuente  que  se  da  a  una  formula  o  a  una  suma  complicada.  Secuencia 
de  operaciones  logicas  y  aritmeticas  con  las  que  se  realiza  una  determinada  tarea 
informatica. 
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Alphanumeric  Alfanumerico 

Adjetivo  que  describe  la  diferencia  entre  una  letra  o  un  digito  y  un  caracter  grafico. 

ALU  (Arithmetic  and  Logic  Unit)  Unidad  aritmetica  y  16gica 

Parte  del  microprocesador  que  realiza  las  operaciones  16gicas  y  aritmeticas.  De  interns 
solamente  para  la  programacion  en  codigo  de  maquina. 

Ambiguous  File  Name  Nombre  de  fichero  ambiguo 

Un  nombre  de  fichero  que  contiene  uno  o  varios  simbolos  comodin.  Los  nombres  de 
fichero  ambiguos  pueden  representar  al  mismo  tiempo  varios  ficheros  cuyos  nombres 
tienen  algo  en  comun. 

AMSDOS 

AMStrad  Disc  Operating  System.  Sistema  operativo  de  disco  AMSTRAD.  Es  el  pro- 
grama  que  permite  que  el  BASIC  de  Locomotive  acceda  a  los  ficheros  de  disco. 

AMSOFT 

Division  de  AMSTRAD  especializada  en  el  apoyo  a  los  usuarios  de  los  ordenadores; 
suministra  programas,  perifericos  y  publicaciones,  especificamente  con  objeto  de  po- 
tenciar  el  CPC6128  y  sus  muchas  aplicaciones. 

D  Analog  Anal6gico 

Adjetivo  que  caracteriza  los  fenbmenos  en  los  que  las  transiciones  entre  el  estado  inicial 
y  el  final  se  realizan  de  forma  gradual  o  continua.  Los  ordenadores  son  dispositivos 
digitales,  mientras  que  los  fenomenos  naturales  son  en  su  mayoria  analbgicos;  asi  pues, 
el  ordenador  tiene  que  realizar  una  conversibn  A/D  antes  de  poder  procesar  los  datos 
recibidos  de  una  fuente  analogica. 

Animation  Animation 

Los  dibujos  animados  son  el  mejor  ejemplo.  La  animacion  en  los  ordenadores  consiste 
en  mover  grdficos  por  la  pantalla,  tratando  de  simular  los  movimientos  de  los  seres 
reales. 
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_       Applications  program  Programa  de  aplicaciones 

Programa  escrito  para  realizar  una  tarea  especifica,  a  diferencia  de  los  programas  de 
_        'utilidad',  tales  como  ensambladores,  controladores  de  impresora,  etc.,  que  son  de  in- 
teres  mas  general. 


Arcade  game  Juego  grafico  de  sal6n 

Juego  de  ordenador  basado  en  el  movimiento  de  graficos  (invasores  espaciales,  mons- 
truos  al  acecho  en  un  laberinto,  etc.).  El  usuario  tiene  que  evitar  la  'muerte'  de  los  'bue- 
nos'.  Generalmente  sirven  para  ejercitar  los  reflejos,  pero  no  tienen  ningiin  valor  didac- 
tico  para  los  estudiantes  de  informatica. 


Architecture  Arquitectura 

Termino  que  designa  la  organization  general  de  un  ordenador  (relaciones  entre  el  bus 
de  datos,  la  UCP  y  los  perifericos). 


Argument  Argumento 

Una  variable  independiente.  Por  ejemplo,  en  SIN(x)  la  x  es  el  argumento  de  la  funcion 
SIN. 


Array  Matriz 

Combination  de  elementos  de  un  mismo  tipo  dispuestos  en  una  o  varias  dimensiones. 
En  el  caso  monodimensional  se  denominan  'vectores'. 


Artificial  intelligence  (AI)  Inteligencia  artificial 

Tecnica  de  programacion  que  permite  al  programa  aprender  por  la  experiencia. 

ASCII 

American  Standard  Code  for  Information  Interchange.  C6digo  estadounidense  estan- 
dar  para  el  intercambio  de  informaci6n.  Forma  habitual  de  representar  digitos,  letras 
y  otros  simbolos  mediante  codigos  numericos. 
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Assembler  Ensamblador 

Programa  que  facilita  la  programaci6n  en  codigo  de  maquina.  Las  instrucciones  son 
los  llamados  'nemonicos':  grupos  de  letras  que  se  recuerdan  e  interpretan  facilmente 
porque  dan  una  idea  de  la  funcion  que  realiza  cada  instruction. 


Backup  Copia  de  seguridad 

Copia  que  se  hace  de  los  programas  o  ficheros  de  datos  en  prevision  de  que  se  borre 
o  deteriore  accidentalmente  el  original. 


Bar  code  C6digo  de  barras 

Codigo  impreso  legible  por  ordenador  mediante  tecnicas  6pticas  tales  como  laser  de  ba- 
ja  potencia.  (Ejemplo:  el  grupo  de  rayas  verticales  que  se  imprime  en  la  cubierta  de  al- 
gunas  revistas.) 


Base  Base 

Es  el  numero  de  digitos  que  se  utilizan  en  cada  sistema  de  representaci6n  numerica. 
En  el  sistema  decimal  es  10;  en  el  binario,  2;  en  el  hexadecimal,  16. 


BASIC 

Beginners'  All-purpose  Symbolic  Instruction  Code.  Codigo  de  instrucciones  simbolicas 
de  uso  general  para  principiantes.  Es  un  lenguaje  de  programaci6n  interpretado  que 
se  incorpora  en  la  mayor  parte  de  los  ordenadores  domesticos.  BASIC  fue  diseflado 
primordialmente  como  ayuda  para  la  enseflanza,  pues  permite  la  comprobacion  de  los 
programas  en  cualquier  momento  de  su  desarrollo.  En  esto  se  distingue  de  los  progra- 
mas compilados,  que  no  pueden  ser  probados  parcialmente  mientras  el  programa  no 
este  completo. 

Baud  Baudio 

Unidad  de  medida  de  la  velocidad  de  transmisi6n  de  datos.  En  un  concepto  distinto 
del  de  bit  por  segundo,  aunque  en  muchos  casos  sus  valores  coincidan. 


BCD  (Binary  Coded  Decimal)  Decimal  codificado  en  binario 

Sistema  de  codificaci6n  para  numeros  decimales  en  el  que  cada  digito  se  representa  por 
un  grupo  de  cuatro  bits. 
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BDOS 

Basic  Disc  Operating  System.  Sistema  operativo  basico  de  disco.  Parte  del  sistema  ope- 
rative CP/M  que  proporciona  un  interfaz  para  que  el  programa  del  usuario  pueda  utili- 
zar  las  funciones  de  CP/M. 


Benchmark  Prueba  patron 

Una  tarea  estandar  que  se  realiza  con  distintos  ordenadores  para  comparar  su  veloci- 
dad,  precisi6n,  etc.  Por  ejemplo,  elevar  al  cuadrado  el  niimero  99999  y  luego  calcular 
la  raiz  cuadrada. 


__        Binary  Binario 

—         Sistema  de  numeraci6n  de  base  2,  en  el  que  los  niimeros  se  representan  como  combina- 
ciones  de  solamente  dos  digitos:  el  0  y  el  1 .  (Vease  la  parte  1  del  capitulo  'Cuando  usted 
~         guste  ...'.) 


Binary  number  Niimero  binario 

Un  niimero  representado  en  el  sistema  binario.  En  el  BASIC  del  CPC6128  se  los  identi- 
fica  por  el  prefijo  &X;  por  ejemplo,  &X0101=5(decimal). 


BIOS 

Basic  Input/Output  System.  Sistema  basico  de  entrada/salida.  Es  la  parte  de  CP/M 
que  se  escribe  especificamente  para  cada  ordenador  concreto.  Gestiona  todas  las  entra- 
das  y  salidas:  pantalla,  teclado,  disco,  etc. 


Bit 

Forma  abreviada  de  Binary  digiT  (digito  binario).  Un  digit o  binario  es  uno  de  los  dos 
simbolos  (el  0  y  el  1)  con  los  que  se  representan  los  niimeros  en  el  sistema  de  base  2. 


Bit  significant  Interpretable  bit  a  bit 

Hace  referenda  a  los  casos  en  los  que  se  puede  extraer  informaci6n  de  un  niimero  exa- 
minando  el  estado  de  cada  uno  de  sus  bits.  El  valor  global  en  decimal  no  tiene  significa- 
do  evidente. 
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Boolean  algebra  Algebra  de  Boole 

Estructura  algebraica  sobre  variables  que  pueden  tomar  dos  valores  distintos:  verdade- 
ro/falso,  1/0,  etc. 


Boot  Carga  inicial 

Proccso  de  carga  de  un  sistema  operative)  en  la  memoria  del  ordenador.  Cuando  se  car- 
ga CP/M  desde  BASIC,  lo  primero  que  se  lee  es  un  pequeno  programa  autocargador, 
el  cual  realiza  la  carga  del  sistema  operative)  propiamente  dicho. 


Booting,  Bootstrapping  Autocarga 

Los  programas  y  sistemas  operativos  no  se  cargan  a  si  mismos,  sino  gracias  a  una  rutina 
(generalmente  grabada  en  ROM)  que  inicia  el  proceso  de  carga  a  partir  de  una  determi- 
aada  position  de  memoria. 


Buffer  Tampon 

Area  de  memoria  reservada  para  el  almacenamiento  temporal  en  los  procesos  de  trans- 
ferencia  de  la  informacion. 


Bug  Error  de  programacion 

Un  problema  no  previsto  en  un  programa:  puede  ir  desde  una  'caracteristica  inespera- 
da'  (por  ejemplo,  si  se  pulsan  cuatro  teclas  a  un  tiempo  la  pantalla  cambia  de  color) 
hasta  una  secuencia  de  instrucciones  que  provoca  la  perdida  del  control  de  la  maquina. 


Built-in  commands  Ordenes  internas  o  incorporadas 

Ordenes  que  forman  parte  del  sistema  operative  Son  de  ejecucion  mas  rapida  que  las 
ordenes  externas,  pues  no  tienen  que  ser  cargadas  del  disco. 


Bus 

Grupo  de  conexiones,  internas  al  ordenador  o  de  entrada/salida,  por  las  que  se  trans- 
mite  informacion  acerca  del  estado  de  la  UCP,  de  la  RAM  o  de  cualquier  otra  parte 
del  hardware.  EL  bus  del  CPC6128  es  accesible  a  traves  del  zocalo  EXPANSION  que 
esta  en  la  cara  posterior  del  ordenador. 
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Byte  Byte,  octeto 

Grupo  de  8  bits.  Es  la  menor  portion  de  informaci6n  que  una  UCP  puede  intercambiar 
con  la  memoria. 


CAD,  Computer  Aided  Design  Diseno  asistido  por  ordenador 

Generalmente,  un  programa  interactive  que  convierte  el  ordenador  en  un  tablero  de 
dibujo  electr6nico  que  ademas  es  capaz  de  realizar  calculos  matematicos. 


CAE,  Computer  Aided  Education    Ensenanza  asistida  por  ordenador 

Programa  que  facilita  la  ensenanza  en  general  sirviendose  de  los  ordenadores. 

Cartridge  Cartucho 

Dispositivo  de  memoria  externo  compacto  conectable  al  ordenador  (v.  g.,  programas 
en  ROM,  cuya  ventaja  es  la  gran  velocidad  de  carga,  pero  que  son  mas  caros  que  los 
suministrados  en  disco). 

Cassette 

Cinta  encapsulada,  ya  sea  virgen  o  con  programas  comerciales. 

CCP  Interprete  de  consola 

Console  Command  processor.  Procesador  de  6rdenes  de  consola.  Es  el  modulo  de 
CP/M  que  interpreta  y  ejecuta  las  entradas  por  el  teclado. 

Character  Caracter 

Cualquier  simbolo  que  pueda  ser  manejado  y  visualizado  por  el  ordenador:  digitos,  le- 
tras  y  otros  signos,  incluidos  los  simbolos  graficos. 

Character  set  Juego  de  caracteres 

Conjunto  de  todos  los  signos  y  simbolos  disponibles  en  un  ordenador  o  una  impresora. 
El  hecho  de  que  un  ordenador  tenga  un  simbolo  determinado  no  implica  que  este  sea 
reproducible  en  la  impresora. 

Lexico  ingl6s-castellano  y  glosario  A2/7 


Character  string  Cadena  literal 

Grupo  de  caracteres  que  pueden  ser  almacenados  y  tratados  en  bloque,  v.  g.  una  pala- 
bra  o  grupo  de  palabras. 


Chip  Pastilla 

T£rmino  popular,  aunque  incorrectamente  utilizado,  para  designar  un  circuito  integra- 
do  monolitico.  La  'pastilla'  es  en  realidad  un  trozo  de  silicio  en  el  que  se  graba  el 
circuito. 


Clock  Reloj 

Sistema  temporizador  de  referenda  del  ordenador  que  controla  y  sincroniza  la  secuen- 
cia  de  operaciones.  Un  reloj  de  tiempo  real  es  el  que  mantiene  la  hora,  fecha,  etc. 


Code  Codigo 

Aparte  de  otros  significados,  forma  abreviada  de  referirse  al  'codigo  de  maquina'. 

Cold  start  Arranque  en  frio 

Proceso  de  carga  e  initialization  de  un  sistema  operative  El  arranque  en  frio  de  CP/M 
se  realiza  cuando  se  ejecuta  la  orden  ICPM  de  AMSDOS. 

Command  Orden 

Instruction  de  programa  o  instrucci6n  directa  de  teclado. 

Compiler  Compilador 

Un  programa  complejo  que  convierte  programas  completos  escritos  en  un  lenguaje  de 
alto  nivel,  tal  como  BASIC,  en  c6digos  directamente  utilizables  por  el  microprocesa- 
dor,  con  el  consiguiente  incremento  de  la  velocidad  de  ejecucion. 

Computer  generations  Generaciones  de  ordenadores 

Diversos  hitos  tecnol6gicos  han  delimitado  las  etapas  de  la  evolution  de  la  tecnologia 
informatica;  los  ordenadores  fabricados  con  un  nivel  de  sofisticaci6n  similar  forman 
una  'generation'. 
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Console  mode  Modo  de  consola 

Modo  directo  de  CP/M;  en  la  pantalla  aparece  el  mensaje  inductor  A>  para  indicar 
que  el  sistema  esta  esperando  que  se  teclee  una  orden  interna  o  el  nombre  de  un  progra- 
ma  de  ayuda. 


Corruption  Corruption 

Destruccidn  o  alteracidn  del  contenido  de  un  fichero  o  de  la  memoria,  indeseada  y  posi- 
blemente  irremediable. 


CP/M 

Control  Program  for  Microcomputers.  Programa  de  control  para  microordenadores. 
Sistema  operativo  basado  en  disco,  desarrollado  por  Digital  Research,  que  proporciona 
un  interfaz  con  el  que  utilizar  una  gran  variedad  de  programas. 


CPU,  Central  Processing  Unit  Unidad  central  de  proceso 

Niicleo  del  sistema  informatico  que  interpreta  las  instrucciones  y  hace  que  sean  obede- 
cidas.  En  los  microordenadores  la  UCP  es  el  propio  microprocesador. 


Cursor 

Simbolo  movil  que  indica  en  que  lugar  de  la  pantalla  aparecera  el  proximo  caracter  que 
se  envie  a  ella. 


Cursor  control  keys  Teclas  de  movimiento  del  cursor 

Teclas  con  las  que  se  hace  que  el  cursor  se  mueva  por  la  pantalla.  Frecuentemente  se 
las  utiliza  tambien  en  los  juegos  graficos. 


Daisy-wheel  printer  Impresora  de  margarita 

Impresora  que  escribe  con  calidad  de  maquina  de  escribir.  Los  caracteres  estan  prefor- 
mados,  cada  uno  en  un  brazo  de  la  'margarita',  y  se  los  transfiere  al  papel  al  golpear 
el  brazo  con  un  martillo. 
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Database  Base  de  datos 

Coleccion    de    datos    estructurados,    integrados   y   coherentes,    utilizables    por   el 
ordenador. 


Data  capture  Captation  de  datos 

Recoleccion  de  datos  enviados  al  ordenador  desde  fuentes  externas. 

Debugging  Depuration 

Proceso  de  detection  y  elimination  de  errores  de  los  programas. 

Decimal  notation  Notation  decimal 

Sistema  decimal  de  numeration,  de  base  10,  que  utiliza  los  digitos  del  0  al  9.  Es  el  siste- 
ma  ordinario. 

Default  Prescrito,  implicito,  por  defecto 

Valor  que  el  ordenador  supone  en  ausencia  de  otra  especificacion  por  parte  del  usuario. 
Por  ejemplo,  en  CP/M  la  unidad  de  disco  implicita  es  la  A:. 

Delimiter 

Vease  Separator. 

Diagnostic  Diagnostico 

Mensaje  emitido  automaticamente  por  el  ordenador  para  sefialar  e  identificar  un  error 
de  un  programa. 


Digital 

Es  el  termino  opuesto  a  'analogico'.  Describe  la  transition  brusca  entre  dos  estados  de 
un  proceso. 
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Digitizer  Digitalizador 

Metodo  de  conversion  de  informaci6n  anal6gica  en  digital. 

Directory  Directorio 

Seccidn  de  un  disco  que  contiene  las  resefias  (titulos  y  caracteristicas)  de  los  ficheros 
grabados  en  el.  Lista  del  contenido  de  un  disco. 

Disc,  disk  Disco 

Hoja  de  plastico  circular,  fina  y  plana,  recubierta  de  material  magnetico,  que  se  utiliza 
como  medio  de  almacenamiento  de  la  information.  El  disco  esta  incluido  en  una  envol- 
tura  protectora  en  la  que  hay  una  'ventana'  para  la  cabeza  lectora.  En  el  disco  de  3 
pulgadas  la  ventana  esta  cubierta  por  un  obturador  metalico  que  se  abre  automatica- 
mente  cuando  se  introduce  el  disco  en  la  unidad. 

Disc  drive  Unidad  de  disco 

Mecanismo  y  circuitos  electronicos  con  los  que  se  mueve  el  disco  para  leer  o  grabar  da- 
tos  en  el. 

Documentation  Documentation 

Manuales  suministrados  con  los  ordenadores  o  los  programas,  en  los  que  se  explica  su 
funcionamiento. 

DOS  (Disc  Operating  System)  Sistema  operativo  basado  en  disco 

Programas  que  controlan  todas  las  operaciones  de  la  unidad  de  disco. 

Dot  matrix  Matriz  de  puntos 

Reticula  rectangular  de  puntos  con  la  que  se  puede  visualizar  cada  caracter  seleccionan- 
do  los  puntos  adecuados. 
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Double  sided  De  doble  cara 

Hace  referenda  a  los  discos  en  los  que  se  puede  almacenar  information  en  ambas  caras. 
Una  unidad  de  doble  cara  puede  acceder  a  ambas  caras  del  disco  sin  necesidad  de  ex- 
traer  y  darle  la  vuelta  a  este. 


Dr.  LOGO 

Version  de  LOGO  elaborada  por  Digital  Research.  LOGO  es  un  lenguaje  de  programa- 
cion  caracterizado  por  sus  'graficos  de  tortuga'. 


Dumb  terminal  Terminal  pasivo 

Terminal  de  ordenador  que  actiia  solamente  como  medio  de  entrada  o  salida,  pero  sin 
procesar  la  informaci6n. 


Edit  Editar,  corregir 

Corregir  o  modificar  datos,  programas  o  textos. 

Editor 

Un  programa,  generalmente  grabado  en  la  ROM  del  ordenador,  que  permite  realizar 
el  proceso  de  edition. 

EPROM 

Erasable  Programmable  Read  only  Memory.  Memoria  borrable  y  programable  de  'solo 
lectura'.  Similar  a  la  PROM,  pero  tal  que  su  contenido  se  puede  borrar  con  luz  ultra- 
violeta  para  luego  grabar  en  ella  un  nuevo  programa.  Una  EEPROM  puede  ser  borrada 
por  medios  electronicos. 

Expression  Expresion 

Formula  utilizada  en  un  programa  para  realizar  cierta  operation  con  los  datos.  La  pro- 
pia  expresion  indica  normalmente  la  naturaleza  de  los  datos  que  puede  manejar.  En 
Dr.  LOGO  una  expresion  consiste  en  el  nombre  de  un  procedimiento  seguido  de  las 
entradas  requeridas. 
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Fifth  generation  computers  Ordenadores  de  la  quinta  generaci6n 

Grandes  ordenadores  que  estaran  disponibles  en  el  futuro  y  tendran,  como  caracteristi- 
ca  distintiva,  la  capacidad  de  utilizar  ampliamente  las  tecnicas  de  la  inteligencia 
artificial. 


File  Fichero 

Colecci6n  de  datos,  de  estructura  homogenea,  generalmente  grabada  en  cinta  o  disco. 

File  name  Nombre  de  fichero 

En  Dr.  LOGO  el  nombre  de  un  fichero  puede  estar  formado  por  un  maximo  de  8  carac- 
teres  alfanumericos.  En  CP/M  se  permiten  otros  tres  caracteres,  precedidos  por  un 
punto. 

Firmware 

Software  contenido  en  ROM:  un  hibrido  de  software  y  hardware. 

Fixed-point  number  Numero  en  coma  fija 

Un  numero  que  se  representa,  manipula  y  almacena  con  la  coma  decimal  en  una  posi- 
ci6n  determinada. 

Floating-point  number  Numero  en  coma  flotante 

Niimero  que  se  representa,  manipula  y  almacena  con  la  coma  decimal  en  la  posici6n 
mas  conveniente  (en  forma  de  mantisa  y  exponente). 

Floppy  disc 

Vease  Disc. 

Flowchart  Ordinograma 

Representaci6n  esquematica  de  la  evolucidn  de  las  acciones  de  un  programa. 
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Forth 

Lenguaje  de  programacion  de  alta  velocidad  de  ejecuci6n.  Tanto  la  velocidad  como  la 
complejidad  estan  a  medio  camino  entre  los  lenguajes  de  alto  nivel  y  el  c6digo  de  ma- 
quina.  No  es  un  lenguaje  para  principiantes. 


Function  key  Tecla  de  funcion 

Tecla  que  tiene  asignada  una  tarea  especifica,  que  puede  ejecutar  en  lugar  (o  ademas) 
de  la  funci6n  grabada  sobre  ella. 


Gate  Puerta  logica 

Las  puertas  logicas  permiten  el  paso  de  datos  cuando  se  cumplen  ciertas  condiciones. 
Hay  muchos  tipos  de  puertas  logicas:  OR,  AND,  XOR,  etc. 


Graphics  Graficos 

Dibujo  de  puntos,  rectas,  circunferencias,  etc.;  es  decir,  todo  lo  que  aparece  en  la  pan- 
talla  que  no  sean  'caracteres'. 


Graphics  character  Caracter  grafico 

Simbolo  asignado  a  un  caracter  que  es  en  si  mismo  un  dibujo. 

Graphics  cursor  Cursor  grafico 

Concepto  similar  al  de  'cursor  de  texto',  pero  invisible  ven  el  6128)  y  referido  a  la  panta- 
11a  grafica. 

Graphics  mode  Modo  grafico 

Los  ordenadores  mas  antiguos  tenian  que  ser  puestos  explicitamente  en  este  modo  para 
poder  manejar  graficos.  En  cambio,  los  ordenadores  personales  modernos  pueden 
mezclar  textos  con  graficos. 

Graphics  tablet  Tablero  grafico 

Periferico  que  convierte  un  dibujo  en  una  forma  manipulable  por  el  ordenador.  Es  una 
forma  de  conversi6n  A/D  (analogica  a  digital). 
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Handshaking  Intercambio  de  indicativos  y  senates  de  control 

Secuencia  de  senates  electronicas  que  inicia,  comprueba  y  sincroniza  el  intercambio  de 
datos  entre  un  ordendor  y  un  periferico  o  entre  dos  ordenadores. 

Hard  copy  Copia  en  papel 

Listado  por  impresora  de  un  programa  o  un  texto,  o  volcado  en  papel  de  la  pantalla 
grafica. 

Hardware  Equipos,  maquinas 

Componentes  electronicos  o  mecanicos  de  un  sistema  informatico:  todo  lo  que  tiene 
volumen  y  peso. 

Hexadecimal  (HEX) 

Sistema  numerico  de  base  16.  Los  numeros  hexadecimales  se  identifican  en  el  CPC6128 
por  los  prefijos  &  y  &H.  Por  ejemplo,  &FF=255  (decimal).  (Vease  la  parte  1  del  capitu- 
lo  'Cuando  usted  guste  ...'.) 

Hex  file  Fichero  HEX 

Representation  ASCII  de  un  fichero  de  orden  externo  o  de  codigo  de  maquina. 

High-level  language  Lenguaje  de  alto  nivel 

Lenguajes  del  tipo  de  BASIC,  en  los  que  las  instrucciones  son  mas  proximas  al  lenguaje 
ordinario.  Son  mas  lentos  que  el  codigo  de  maquina,  pero  mucho  mas  sencillos  de  en- 
tender  y  programar. 


IEEE-488 

Uno  de  los  interfaces  estandar  para  la  conexion  de  dispositivos  externos  a  un  ordena- 
dor.  Similar  al  Centronics,  pero  no  totalmente  compatible  con  el. 

Information  technology  Tecnologia  de  la  informacion 

Todo  lo  relativo  a  la  utilization  de  los  ordenadores  en  el  proceso  de  la  informacion  y 
las  comunicaciones:  proceso  de  textos,  transmision  de  datos,  videotexto,  teletexto,  etc. 
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Initialise  Inicializar 

Poner  en  marcha  un  sistema.  O  dar  valores  concretos  a  variables  antes  de  empezar  la 
ejecucion  del  niicleo  central  de  un  programa;  por  ejemplo,  dimensionar  matrices,  de- 
clarar  tipos  de  variables,  etc. 


InPut  Entrada 

Datos  de  todo  tipo  que  entran  en  el  ordenador  procedentes  del  disco,  del  teclado,  de 
una  puerta  RS-232,  etc. 


Instruction  Instrucci6n 

Orden  que  manda  al  ordenador  que  realice  alguna  operaci6n  o  tarea.  Un  conjunto  de 
instrucciones  forma  un  programa. 


Instruction  set  juego  de  instrucciones 

Conjunto  de  procesos  16gicos  y  matematicos  fundamentals  que  puede  realizar  el  mi- 
croprocesador.  Toda  instrucci6n  de  un  lenguaje  de  alto  nivel  (y  tambien  los  nem6nicos 
de  ensamblador)  tiene  que  ser  convertible  a  una  instrucci6n  o  serie  de  instrucciones  que 
la  UCP  pueda  reconocer. 


Inte8er  Entero 

Niimero  sin  parte  decimal. 

Integrated  circuit  Circuito  integrado 

Conjunto  de  componentes  electronicos  miniaturizados,  grabados  en  una  pastilla  de  sili- 
cic*. (Vease  tambien  Chip.) 

Intelligent  terminal  Terminal  inteligente 

Un  terminal  que,  ademas  de  gestionar  entradas  y  salidas  para  un  ordendor  central,  pue- 
de realizar  ciertas  tareas  de  proceso  de  datos  cuando  el  ordenador  esta  'fuera  de  linea'. 
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Interactive  Interactive 

Hace  referenda  a  los  programas  que  solicitan  del  usuario  la  introduccidn  de  informa- 
ci6n  de  modo  inmediato:  desde  el  control  de  naves  espaciales  en  juegos  graficos  hasta 
las  respuestas  en  programas  educativos.  La  accion  del  usuario  tiene  efecto  en  'tiempo 
real'  sobre  la  evolucidn  del  programa. 


Interface  Interfaz 

Via  de  entrada  y  salida  del  ordenador,  tanto  para  las  sefiales  electricas  como  para  las 
acciones  y  reacciones  del  usuario.  En  el  CPC6128,  el  teclado,  la  pantalla  y  las  conexio- 
nes  para  perifericos. 


Interpreter  Interprete 

Una  analogfa  mas  entre  las  instrucciones  de  ordenador  y  los  idiomas.  Es  el  elemento 
del  sistema  que  interprets  el  lenguaje  de  alto  nivel  y  lo  convierte  a  una  forma  utilizable 
por  UCP  de  modo  inmediato. 


I/O  Entrada/Salida  (E/S) 

Input/output.  Entrada/Salida. 

Iteration  Iteration 

Uno  de  los  mecanismos  basicos  de  la  informatica.  Consiste  en  la  repeticidn  de  tareas 
(bucles),  en  las  que  generalmente  se  va  modificando  el  valor  de  una  variable,  hasta  que 
se  cumple  determinada  condicidn. 

Joystick  Bastoncillo  de  mando 

Dispositivo  de  entrada  al  ordenador  que  generalmente  sustituye  las  teclas  del  cursor  y 
hace  que  los  juegos  graficos  sean  mas  faciles  y  rapidos  de  controlar. 


K 

Forma  abreviada  y  aproximada  del  prefijo  'kilo'  (1000).  Representa  un  'kilobyte',  que 
en  realidad  es  1024  bytes.  (1024  es  la  base  del  sistema  binario,  2,  elevada  a  la  decima 
potencia.) 
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Keyboard  Teclado 

Matriz  de  interruptores  alfanumericos  a  traves  de  la  cual  se  introduce  information  en 
el  ordenador. 


Keyword  Palabra  clave 

Palabra  que  un  programa  o  lenguaje  de  programaci6n  reserva  para  una  funcion  u  or- 
den  especifica. 


Least  significant  bit  Bit  menos  significativo 

En  un  numero  binario,  el  bit  de  menor  peso;  es  decir,  el  que  esta  mas  a  la  derecha  en 
la  representaci6n  matematica  habitual. 

Light  pen  Lapiz  optico 

Otro  dispositivo  de  entrada  al  ordenador  que  sirve  para  indicar  una  selection  de  zonas 
de  la  pantalla  o  para  leer  codigos  de  barras. 

Line  number  Numero  de  linea 

Los  programas  de  BASIC  y  de  algunos  otros  lenguajes  tienen  las  instrucciones  numera- 
das  para  indicar  al  ordenador  el  orden  de  ejecucion. 

LISP 

Acronimo  de  'LISt  Processor  language'  (lenguaje  de  proceso  de  cadenas  de  predica- 
dos).  Otro  lenguaje  de  alto  nivel. 

L»8»c  Logica 

Entre  otras  acepciones,  conjunto  de  componentes  electronicos  que  realizan  las  opera- 
ciones  16gicas  elementales  en  las  que  en  ultimo  tdrmino  se  basa  el  funcionamiento  del 
ordenador. 


Logical  device  Dispositivo  logico 

La  representation  de  un  dispositivo  puede  no  coincidir  con  su  forma  fisica.  Por  ejem- 
plo,  el  dispositivo  logico  LST  de  CP/M  puede  ser  asignado  a  la  puerta  Centronics,  pero 
tambien  a  la  pantalla  del  monitor. 
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LOGO 

Nombre  de  un  lenguaje  de  programacion  tornado  del  termino  griego  'logos',  que  signi- 
fica  'palabra'.  LOGO  ha  sido  disenado  para  servir  como  ayuda  en  la  ensefianza  de  la 
informatica  elemental. 

Loop  Bucle 

Section  de  un  programa  que  se  ejecuta  reiteradamente  hasta  que  se  cumple  determina- 
da  condition. 

Low-level  languaje  Lenguaje  de  bajo  nivel 

Por  ejemplo,  el  lenguaje  ensamblador.  Un  lenguaje  en  el  que  cada  instruccion  corres- 
ponde  a  una  instruccion  de  codigo  de  maquina. 

LSB,  Least  Significant  Bit  Bit  menos  significativo,  bms 

En  un  numero  binario,  el  bit  de  menor  peso,  es  decir,  el  que  esta  mas  a  la  derecha  en 
la  representation  matematica  habitual. 

LSI,  Large  Scale  Integration  Integration  a  gran  escala 

Etapa  avanzada  del  desarrollo  de  circuitos  integrados,  en  la  que  incorporan  miles  de 
componentes  electronicos  en  una  sola  pastilla  de  silicio. 

Machine  code  Codigo  de  maquina 

Lenguaje  de  programacion  que  es  directamente  comprensible  y  utilizable  por  el 
microprocesador . 

Machine  readable  Accesible  a  la  maquina 

Este  termino  hace  referenda  a  datos  e  information  que  puedan  ser  introducidos  direc- 
tamente en  la  maquina,  sin  necesidad  de  conversion. 

Man-machine  interface  Interfaz  hombre-maquina 

Dispositivo  que  facilita  la  interacci6n  entre  el  usuario  y  el  ordenador  (teclado,  sonido, 
etc.) 
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Matrix  Matriz 

Disposition  de  los  puntos  con  los  que  se  forman  los  caracteres  en  la  pantalla  o  en  las 
impresoras  de  'matriz  de  puntos'.  En  otra  acepcion,  variables  que  con  un  solo  nombre 
pueden  contener  multiples  valores,  a  los  que  se  accede  mediante  los  'indices'. 

Memory  Memoria 

Especie  de  'aparcamiento'  en  la  maquina,  en  la  que  esta  almacena  los  programas  y  los 
datos.  La  memoria  puede  ser  RAM  (memoria  de  acceso  aleatorio),  en  la  que  se  puede 
escribir  y  leer,  o  ROM  (memoria  de  'solo  lectura'),  en  la  que  solamente  se' puede  leer. 

Memory  map  Mapa  &  memoria 

Esquema  en  que  se  indica  que  zonas  de  memoria  estan  dedicadas  a  las  diversas  funcio- 
nes:  pantalla,  sistema  operative  variables,  etc. 

Menu  Menu 

Lista  de  opciones  que  se  ofrece  al  usuario  de  un  programa. 

Microprocessor  Microprocesador 

Circuito  integrado  que  controla  el  funcionamiento  del  ordenador.  Recibe  y  ejecuta  las 
instrucciones  que  le  entrega  el  interprete  de  BASIC  y  controla  todas  las  interfaces. 

Modem,  Modulator/Demodulator    Modulador/demodulador,  Modem 

Dispositivo  que  permite  conectar  el  ordenador  a  una  linea  telefdnica  o  la  conexidn  a 
otros  ordenadores  o  terminales  remotos. 


Monitor 

Pantalla  en  la  que  se  visualizan  los  graficos,  listados,  mensajes,  etc.  Tambien  el  progra- 
ma que  permite  observar  la  operacidn  basica  del  ordenador. 

Mouse  Rat6n 

Seguidor  boca  abajo,  o  bola  rodante.  Al  desplazarlo  con  la  mano  sobre  una  superficie 
plana,  mueve  el  cursor  por  la  pantalla. 
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MSB,  Most  Significant  Bit  Bit  mas  significative,  BMS 

En  un  numero  binario,  el  bit  de  mayor  peso;  es  decir,  el  que  esta  mas  a  la  izquierda. 

Network  Red 

Cuando  se  interconectan  varios  ordenadores  para  intercambiar  programas  y  datos,  via 
modem,  cable,  etc.,  se  forma  una  'red'. 

» 
Nibble  Cuarteto 

Medio  byte,  es  decir,  un  numero  binario  de  cuatro  bits. 

Node  Nodo 

Unidad  de  espacio  de  trabajo  en  LOGO.  Generalmente  un  nodo  consume  4  bytes  de 
espacio  de  memoria. 

Noise  Ruido 

El  sistema  de  sonido  del  CPC6128  permite  generar  ruidos  aleatorios  para  simular  efec- 
tos  sonoros  tales  como  explosiones,  disparos,  etc. 

Numeric  keypad  Teclado  numerico 

Grupo  de  teclas  numericas  destinadas  a  facilitar  la  introduccidn  de  numeros  en  el  orde- 
nador.  En  el  caso  del  CPC6128,  estas  teclas  son  ademas  definibles  por  el  usuario. 

OCR,  Optical  Character  Recognition         Lectura  6ptica  de  caracteres 

Sistema  de  lectura  automatica  de  caracteres  escritos  y  de  conversion  a  datos  utilizables 
por  el  ordenador. 

Octal 

Sistema  de  numeration  de  base  8  en  que  cada  digito  (del  0  al  7)  se  presenta  con  tres 
digitos  binarios. 

Off  line  Fuera  de  linea 

Situacidn  en  la  que  se  encuentra  un  periferico  cuando  no  esta  activamente  conectado 
al  ordenador. 
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On  line  En  linea 

Termino  opuesto  a  Off  line/Fuera  de  linea. 

Operating  system  Sistema  operative 

Programa  que  gestiona  el  manejo  de  la  memoria,  la  ejecucion  de  programas,  priorida- 
des,  control  de  tiempos,  etc.  Interfaz  entre  la  maquina  y  los  programas  del  usuario. 

Operator  Operador 

Parte  de  una  operacion  aritmetica  o  logica  que  describe  en  que  consiste  la  operacion. 

Output  Salida 

Todo  lo  que  sale  del  ordenador  como  resultado  de  algiin  proceso  o  calculo. 

Overwrite  Sobreescribir 

Escribir  borrando  lo  anterior.  Borrar  parte  de  la  memoria  o  la  pantalla,  a  veces  invo- 
luntariamente,  al  escribir  nuevos  datos  en  ella. 

Paddle  Empunadura 

Mando  principal  del  joystick. 

Page  zero  Pagina  cero 

Zona  de  memoria,  en  CP/M  entre  las  posiciones  &0000  y  &0100,  en  la  que  se  almace- 
nan  parametros  esenciales  del  sistema  operative 

Parallel  interface  Interfaz  paralelo 

Sistema  de  conexion  del  que  es  ejemplo  el  interfaz  para  impresora  del  CPC6128.  Cada 
linea  del  bus  de  datos  se  conecta  a  la  correspondiente  patilla  del  corrector  de  la  impre- 
sora. Los  datos  se  transmiten  en  grupos  simultaneos.  Este  metodo  de  transmision  es 
mucho  mas  rapido  que  el  que  se  consigue  con  un  interfaz  serie,  en  que  los  digitos  bina- 
rios  se  envian  uno  tras  otro,  por  una  sola  linea. 
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Pascal 

Lenguaje  estructurado  de  alto  nivel  que  ha  de  ser  compilado  antes  de  su  ejecucion  y 
que,  por  consiguiente,  es  muy  rapido.  Es  el  lenguaje  que  habitualmente  se  estudia  des- 
pues  de  BASIC. 


PEEK 

Funcion  de  BASIC  que  examina  una  posicion  de  memoria  especificada  e  informa  de 
su  contenido. 


Peripheral  Periferico 

Impresoras,  modems,  joysticks,  magnetofonos,  etc.;  cualquier  aparato  que  pueda  ser 
conectado  al  ordenador  para  hacerlo  mas  litil. 


Physical  device  Dispositivo  fisico 

Dispositivo  que  realmente  existe  (o  sea,  pieza  de  hardware),  representable  por  un  dispo- 
sitivo logico. 


Pixel  (picture  element)  Punto  grafico 

La  menor  area  de  la  pantalla  que  puede  ser  controlada  con  independencia  de  las  demas. 

Plotter  Trazador  automatico 

Trazador  especial  que  dibuja  con  plumas,  tanto  caracteres  como  dibujos  propiamente 
dichos. 

POKE 

Orden  de  BASIC  que  escribe  un  valor  en  una  posicion  de  memoria  especificada. 

Port  Puerta 

Lugar  especificamente  direccionable  de  un  interfaz  para  la  entrada  o  salida  de  datos. 
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Portability  Adaptabilidad 

Caracteristica  de  un  lenguaje  o  programa  que  hace  facil  su  adaptaci6n  a  otra  maquina, 
generalmente  como  consecuencia  de  la  compatibilidad  del  sistema  operativo  (v  g  el 
CP/M  de  Digital  Research). 

Primitives  Primitivas 

Procedimientos,  operaciones  u  6rdenes  basicos  en  los  que  consiste  Dr.  LOGO. 

Printer  Impresora 

Maquina  que  escribe  en  papel  los  datos  enviados  por  el  ordenador. 

Procedure  Procedimiento 

Serie  de  expresiones  o  instrucciones  que  indican  al  ordenador  como  realizar  una  tarea. 

Pr°8ram  Programa 

Conjunto  de  instrucciones  que  gobiernan  el  funcionamiento  del  ordenador  para  hacer 
que  realice  una  tarea.  Puede  tratarse  de  una  simple  rutina  en  c6digo  de  maquina  o  de 
una  aplicaci6n  completa,  tal  como  un  paquete  de  contabilidad  o  un  procesador  de 
textos. 

Programming  language  Lenguaje  de  programacirin 

Lenguaje  en  el  que  escribe  un  programa,  consistente  en  un  conjunto  de  reglas  que  indi- 
can como  se  utilizan  las  palabras  y  los  mimeros. 

PROM 

Programmable  Read  Only  Memory.  Memoria  programable  de  's61o  lectura'.  Circuito 
mtegrado  de  memoria  que,  una  vez  grabado,  ya  no  se  puede  borrar.  (Vease  tambien 
EPROM.) 

PromPt  Mensaje  inductor 

Un  corto  mensaje  o  grupo  de  caracteres  que  recuerda  al  lector  que  el  ordenador  esta 
esperando  una  entrada.  Por  ejemplo,  en  CP/M  es  >;  en  LOGO,  ?. 
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PSU,  Power  Supply  Unit  Fuente  de  alimentacion 

Circuito  que  convierte  la  tensi6n  alterna  de  la  red  a  una  tension  continua  adecuada  para 
los  circuitos  del  ordenador  (y  de  los  perifericos). 


QWERTY  keyboard  Teclado  tipo  QWERTY 

Teclado  del  tipo  de  las  maquinas  de  escribir  estandar. 

RAM 

Random  Access  Memory.  Memoria  de  acceso  aleatorio.  Memoria  de  la  que  se  puede 
leer  y  en  la  que  se  puede  escribir  en  el  curso  normal  de  la  ejecucion  de  un  programa, 
en  cualquier  direcci6n  y  en  cualquier  orden. 

Random  access  Acceso  aleatorio 

Teimino  que  hace  referenda  a  la  posibilidad  de  leer  o  escribir  datos  en  un  disco  en  el 
orden  que  se  desee. 

Random  number  Niimero  aleatorio 

Niimero  generado  por  el  ordenador  que  no  es  ni  repetible  ni  predecible.  El  CPC6128 
genera  una  sucesion  de  niimeros  pseudoaleatorios. 

Raster  scan  Barrido  de  trama 

Sistema  de  'escritura'  en  la  pantalla,  en  que  las  imagenes  se  forman  mediante  un  barri- 
do de  lineas  horizontales. 

R/O,  Read  only  De  'solo  lectura' 

Atributo  de  un  disco,  de  un  fichero,  de  una  unidad  de  disco,  etc.,  que  impide  la  escritu- 
ra y  la  modificacion  de  los  datos. 

R/W,  Read  write  De  lectura/escritura 

Atributo  de  un  disco,  de  un  fichero  o  de  una  unidad  de  disco  que  permite  tanto  la  lectu- 
ra como  la  escritura  o  la  modificacion  de  los  datos. 

Ldxico  inglds-castellano  y  glosario  A2/25 


Real  number  Niimero  real 

Niimero  que  consta  (o  puede  constar)  de  parte  entera  y  parte  decimal. 

Real  time  En  tiempo  real 

Efectos  que  ocurren  en  el  momento  presente,  a  diferencia  de  aquellos  que  solo  se  apre- 
cian  cuando  ha  terminado  el  proceso  que  los  provoco. 

Record  Registro 

Unidad  de  medida  de  ficheros.  En  CP/M  los  registros  son  de  128  bytes. 

Recursion  Recursividad 

Serie  de  etapas  repetidas  de  un  programa  o  una  rutina,  tales  que  cada  una  esta  relacio- 
nada  con  la  anterior. 

Refresh  Renovacion,  refresco 

Actualization  de  la  informacion,  ya  sea  de  la  pantalla  o  de  la  memoria.  No  siempre 
es  un  proceso  destructivo;  puede  tratarse  de  una  confirmation  de  la  situation  actual, 
en  dispositivos  que  de  otro  modo  perderian  la  informacion. 

Register  Registro  de  maquina 

Posici6n  de  memoria  transitoria  de  la  UCP  utilizada  para  almacenamiento  provisional 
de  los  datos. 

(REM)  Remark  Comentario,  observation 

Instruction  de  un  programa  que  el  ordenador  no  ejecuta;  sirve  para  que  el  programa- 
dor  escriba  anotaciones,  o  para  escribir  la  fecha  o  niimero  de  versi6n  del  programa. 

Reserved  word  Palabra  reservada 

Una  palabra  que  tiene  un  significado  especial  para  un  programa,  y  que  por  consiguien- 
te  no  se  puede  utilizar  fuera  del  contexto  predefinido.  Por  ejemplo,  BASIC  no  puede 
aceptar  NEW  como  nombre  de  una  variable,  pues  esa  palabra  esta  reservada  para  otro 
proposito. 


A2/26  L&rico  ingtes-castellano  y  glosario 


Resolution  Resolution 

La  resolution  es  tanto  mayor  cuanto  menor  sea  el  tamano  de  los  pixels.  Da  una  idea 
de  como  de  'finos'  pueden  ser  los  graficos  en  un  ordenador. 

Reverse  Polish  notation  Notacion  polaca  inversa 

Metodo  de  escribir  operaciones  aritmeticas,  adoptado  por  ciertos  fabricantes  de  calcu- 
ladoras,  en  el  que  los  operadores  (+,  -,  *,  /)  se  ponen  despues  de  los  operandos. 

RF  Modulator  Modulador  de  radiofrecuencia 

Metodo  por  el  cual  las  seflales  de  video  del  ordenador  se  codifican  y  transmiten  a  la 
entrada  de  antena  de  un  televisor. 


ROM 

Read  only  Memory.  Memoria  de  'solo  lectura'.  Memoria  que  no  se  puede  borrar. 

Routine  Rutina 

Una  parte  del  programa  que  realiza  una  tarea  especifica.  Un  subprograma  contenido 
en  un  programa  mas  general,  o  que  se  ha  escrito  de  forma  independiente  y  puede  ser 
incorporado  a  otros  programas. 

RS-232C 

Un  sistema  concreto  estandarizado  para  los  interfaces  de  comunicacion  en  serie.  Los 
dispositivos  que  estan  en  los  dos  extremos  de  la  linea  deben  estar  configurados  de 
acuerdo  con  las  normas  EIA  RS-232C. 

Screen  editor  Editor  de  pantalla 

Editor  de  textos  o  de  programas  que  permite  llevar  el  cursor  a  cualquier  lugar  de  la 
pantalla  para  modificar  su  contenido. 

Scrolling  Desplazamiento  vertical,  rodadura 

Termino  que  describe  la  forma  en  que  la  pantalla  'rueda'  hacia  arriba  cuando  se  ha 
llegado  a  la  ultima  linea  y  se  necesita  una  nueva. 
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Sector 

Memoria  minima  direccionable  en  un  disco.  El  sistema  de  AMSTRAD  esta  basado  en 
sectores  de  512  bytes. 


Separator  Separador 

Signo  que  marca  el  limite  entre  palabras  reservadas  y  otros  elementos  del  programa. 

Serial  interface  Interfaz  serie 

Este  termino  hace  referenda  normalmente  al  estandar  RS-232C,  aunque  existen  otros 
metodos  de  transmisi6n  en  serie  de  datos. 

Simulation  Simulaci6n 

Tecnica  de  emulaci6n  de  los  procesos  reales  en  un  ordenador;  por  ejemplo,  simulaci6n 
de  vuelo,  de  la  conduction  de  automoviles,  etc. 

Singled  sided  De  una  sola  cara 

Hace  referencia  al  tipo  de  disco  en  el  que  s61o  se  pueden  grabar  datos  en  una  cara. 

Software  Programaci6n,  software 

Conjunto  de  programas  que  hacen  que  el  ordenador  funcione;  en  disco,  cinta,  ROM, 
etcetera. 

Software  engineering  Ingenieria  de  programaci6n 

Tecnicas  de  programacion  consideradas  desde  un  punto  de  vista  cientifico,  para  distin- 
guirlas  de  las  no  organizadas  o  arbitrarias. 

Sound  generator  Generador  de  sonido 

Parte  de  un  ordenador  (circuitos  o  programas)  que  genera  sonido  y  ruido. 
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Speech  recognition  Reconocimiento  de  voz 

Conversidn  de  la  palabra  hablada  en  informacidn  reconocible  por  el  ordenador. 

Speech  synthesis  Sintesis  de  voz 

Generacidn  de  voces  simuladas  mediante  una  combinacidn  de  circuitos  y  programas. 

Spread  sheet  Hoja  electr6nica 

Un  programa  que  permite  introducir  datos  numericos  para  disponerlos  en  filas  y  co- 
lumnas  y  para  hacer  con  ellos  manipulaciones  aritm&icas.  Al  modificar  uno  de  los  da- 
tos se  rehacen  los  calculos  para  actualizar  los  resultados  por  filas  y  columnas. 

Sprite  Agente  grafico  movil 

Objeto  grafico  que  se  puede  mover  libremente  por  la  pantalla,  generado  por  software 
o  por  hardware  de  forma  tal  que  pueda  aparecer  y  desaparecer  de  modo  aparentemente 
aleatorio. 

Stack  PUa. 

Area  de  memoria  utilizada  para  almacenar  datos  provisionalmente  y  organizada  de  for- 
ma que  el  ultimo  dato  depositado  en  ella  es  el  primero  que  se  recupera. 

Stream  Canal 

Via  de  salida  del  ordenador;  por  ejemplo,  la  pantalla,  la  impresora  o  el  disco. 

String  Cadena  literal 

Un  objeto  formado  por  caracteres  cualesquiera  que  el  programa  no  puede  tratar  como 
numerico.  Puede  constar  solamente  de  digitos,  pero  el  ordenador  no  lo  considera  como 
niimero  mientras  no  se  lo  convierta  a  niimero  mediante  la  instruction  adecuada. 

Structured  programming  Programacion  estructurada 

Tecnica  de  programacion  logica  y  premeditada  con  la  que  se  escriben  programas  que 
fluyen  de  principio  a  fin  en  etapas  bien  diferenciadas. 
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Sub-routine 

Vease  Routine,  rutina. 

Syntax  error  Error  de  sintaxis 

Cuando  se  infringen  las  reglas  sobre  la  utilization  de  palabras  clave  y  variables,  BASIC 
emite  este  mensaje. 

System  tracks  Pistas  del  sistema 

Pistas  reservadas  en  el  disco  para  el  sistema  CP/M. 

Terminal 

Teclado  de  entrada  con  pantalla,  o  bien  con  teletipo  de  salida. 

TPA,  Transient  Program  Area  Area  para  programas  transitorios 

Area  de  memoria  que  empieza  en  &0100,  en  la  que  en  CP/M  se  almacena  los  programas 
de  usuario  y  los  datos  por  estos  generados. 

Track  Pista 

Las  pistas  son  coronas  circulares  del  disco.  Cada  una  se  divide  en  un  numero  fijo  de 
sectores.  Las  pistas  y  sectores  se  inscriben  en  areas  especificas  del  disco  en  el  proceso 
de  inicializaci6n. 

Transient  program  Programa  transitorio 

Un  programa  de  ayuda  de  CP/M,  tal  como  PIP,  que  puede  ser  cargado  en  la  TPA  sin 
mas  que  escribir  su  nombre  en  el  teclado. 

Truncated  Truncado 

Hace  referenda  a  un  numero  o  una  cadena  que  han  sido  recortados  por  la  izquierda 
o  por  la  derecha.  Cuando  el  truncamiento  es  intencionado,  suele  incluir  el  redondeo 
del  numero.  Si  es  intencionado,  los  caracteres  sobrantes  se  eliminan  para  encajar  el  nu- 
mero o  la  cadena  en  el  espacio  disponible. 

Truth  table  Tabla  de  verdad 

El  resultado  de  toda  operation  logica  puede  ser  'verdadero'  o  'falso'  (para  el  ordena- 
dor,  1  o  0).  La  tabla  de  verdad  da  todos  los  resultados  posibles  de  la  operation  en  fun- 
cion  del  valor  de  los  operandos. 
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Turtle  Tortuga 

Un  simbolo  con  forma  de  punta  de  flecha  que  funciona  como  cursor  grafico  en  la  pan- 
talla  grafica  de  Dr.  LOGO. 

Turtle  graphics  Graficos  de  tortuga 

Imagen  que  deja  la  tortuga  de  Dr.  LOGO  al  mo  verse  por  la  pantalla. 

UDK,  User  Defined  Keys  Teclas  definidas  por  el  usuario 

En  el  CPC6128  hay  32  teclas  a  las  que  se  pueden  asignar  tareas  concretas,  que  el  orde- 
nador  realiza  en  cuanto  el  usuario  las  pulsa. 

Unsigned  number  Niimero  entero  sin  signo 

Niimero  entero  interpretado  como  positive 

Utility  Programa  de  ayuda 

Un  programa  completo  con  el  que  se  realiza  una  operation  comiin  a  varias  aplicacio- 
nes;  por  ejemplo,  ordenar  alfabeticamente  o  copiar  ficheros. 

Variable 

Un  dato  o  grupo  de  datos  puede  ser  identificado  en  un  programa  mediante  un  nombre; 
su  valor  puede  variar  como  consecuencia  de  la  ejecucion  del  programa. 

Warm  start  Arranque  en  caliente 

Es  el  que  se  realiza  cuando  se  pulsa  [CTRUC  en  CP/M.  Reinicializa  el  subsistema  de 
disco  y  devuelve  el  control  al  modo  directo  de  consola  de  CP/M. 

Wildcard  character  Simbolo  comodin 

Este  termino  hace  referencia  a  los  simbolos  *  y  ?.  Dr.  LOGO  solamente  admite  el  ?. 
El  *  representa  cierto  niimero  de  simbolos  ?.  Al  mencionar  nombres  de  ficheros,  se 
pueden  construir  nombres  ambiguos  poniendo  simbolos  ?  en  lugar  de  caracteres. 

Write  protection  Proteccion  contra  escritura 

Un  mecanismo  que  impide  escribir  en  un  disco  o  fichero.  Un  disco  protegido  contra 
escritura  es  un  disco  de  'solo  lectura'. 
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Apendice  3 

Que  usted  lo  disfrute 


Rebotes 


Sencillo  y  apasionante.  Para  un  jugador  contra  el  ordenador.  Teclado  o  joystick. 

10  'REBOTES,  por  Alexander  Martin 

20  'copyright  (c)  AMSOFT  1984 

30  ' 

40  MODE  l: BORDER  l:INK  0,1: INK  1,26: INK  2,24: INK  3,6 

50  SPEED  KEY  15,2 

60  ENV  1,1,18,0,11,0, 10 

70  ENT  1,10,2,2 

80  ENV  3,1,0,16,5,-3,2 

90  ENV  2,5,3,3,1,-21,22,9,-3,2 

100  ENT  -2,10,2,2,5,-7,1,2,11,3,2,-4,8 

110  ' 

120  ' 

130  MOVE  30,32:DRAWR  0,400,1: MOVE  610,32:DRAWR  0,400,1 

140  PEN  3:L0CATE  3,l:PRINT  STRING*<36,143) 

150  PEN  2:L0CATE  3,2:PRINT  STRING* (36, 143) 

160  PEN  l:F0R  r=5  TO  6:L0CATE  3,r:PRINT  STRING* (36, 143) : N 

EXT  r 
170  bx=9 

180  pelotas=5:punto5=0 
190  PEN  l:GOSUB  680: CLEAR  INPUT 

200    IF    INKEY*OCHR*(32)     AND    JOY  (0X16    THEN    200 
210    LOCATE    3,23:PRINT    SPACE* (36) : LOCATE    1,24:PRINT    SPACE* 

(40)  ; 
220  GOSUB  690:GOSUB  660: GOTO  280 
230  ' 
240  ' 

250  LOCATE  bx, 24: PRINT"   " ; STRING* (4, 131 )! "   ": RETURN 
260  ' 
270  ' 

280  xa=l:ya=l:IF  INT(RND*2)=1  THEN  xa=-xa 
290  PEN  l: GOSUB  250 
300  ORIGIN  0,400 
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310  x=bx+4:y=ll:xl=x:yl=y 

320  ' 

330  ' 

340  xl=x+xa:yl=y+ya 

350  IF  xl=3  OR  xl=38  THEN  xa=-xa 

360  GOSUB  540 

370  IF  yl=24  AND  xl>bx+l  AND  xl<bx+6  THEN  ya=-ya: yl=yl-2: 

SOUND  130,44,8,7, 1, l:a=((x>bx  +  5)0R(x<bx  +  2) ):  IF  a=-l  T 

HEN  xa=xa*a: xl=xl+xa:yl=yl+l 

380  IF  y=25  THEN  LOCATE  x,y: PRINT GOTO  500 

390  GOSUB  250 

400  t=TEST( (16*xl)-l,-(16*yl)-l) 

410  IF  t<>0  THEN  ya=-ya:xz=xl:yz=yl:yl=yl+ya:GOSUB  590: IF 

t=2  THEN  puntos=puntos+ 10: GOSUB  660 
420  IF  t=3  THEN  puntos=puntas+20: GOSUB  660 
430  IF  t=l  THEN  puntD5=puntD5+5: GOSUB  660 
440  IF  yl=l  THEN  ya=l 
450  LOCATE  x,y:PRINT"  ": LOCATE  xl,yl:PRINT  CHR* (231 ) : x=xl 

:y=yl 
460  IF  y=l  OR  x=3  OR  x=38  THEN  SOUND  129,78,8,7,1,1 
470  GOTO  340 
480  ' 
490  ' 
500  pelatas=pelQtas-l:SOUND  132, 19, 46, 12, 2, 2: IF  pelotas=0 

THEN  GOTO  620 
510  GOSUB  660: GOTO  280 
520  ' 
530  ' 
540  IF  (INKEY(8)=0  OR  INKEY(74)=0)  AND  bx>2  THEN  bx=bx-2: 

RETURN 
550  IF  (INKEY(1)=0  OR  INKEY(75)=0)  AND  bx<32  THEN  bx=bx+2 

: RETURN 
560  RETURN 
570  ' 
580  ' 

590  LOCATE  xz,yz: PRINT RETURN 

600  ' 

610  ' 

620    IF   puntas>=maxima   THEN   max  irna=punto5 

630  GOSUB  660:puntos=0:pelatas=5:GOTO  130 

640  ' 

650  ' 

660  SOUND  130,0,20, 13, 3, 0,31:LOCATE  1,25:PRINT  "Maximon5m 

aximo; 

670  LOCATE  15,25:PRINT  "Puntos" J puntos: LOCATE  30,25:PRINT 

"Pelotas";pelotas:RETURN 
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680  LOCATE  3,23:PRINT"Pulse  barra  espaciadora  para  empeza 

r":RETURN 
690  LOCATE  1,25: PRINT  SPACE* (40) ;: RETURN 


Bom  bard ero 


Una  variation  sobre  un  tema  clasico.  Para  un  jugador  contra  el  ordenador.  S61o 
teclado. 


10  'BOMBARDERO,  por  Dave  Town 

20  'copyright  <c)  AMSOFT  1984 

30  ' 

40  MODE  l:CLS:INK  0,0:BORDER  0: INK  1,18: INK  2,6: INK  3,4:1 

NK  5,15:INK  6,2:INK  7,24:INK  8,8:INK  9,26:INK  10, 10: IN 

K  11,20:INK  12,12 
50  SYMBOL  AFTER  240:  SYMBOL  241 ,  &40,  &60,  &70,  &7F,  &7F,  kEF,  h.7 

,  &0 :  SYMBOL  242 ,  &0 ,  &32 ,  &7A ,  &FE ,  &FA ,  &F2 ,  &E0 ,  &0 
60  puntos=0:maximo=0:avi*=CHR*(241 ) +CHR*(242) :x=2:y=2:cae 

=0:a=2:b=2 
70  GOSUB  480 
80  CLS 
90  PEN  2:L0CATE  1 , 15: INPUT"E1 i j a  nivel:  0  (AS)  a  5  (PRINC 

IPIANTE)  ", nivel 
100  IF  nivel<0  OR  nivel >5  THEN  GOTO  90 
110  ni vel=nivel+10 
120  LOCATE  1,15:PRINT  CHR* ( 18) ;: LOCATE  1 , 15: INPUT"E1 i j a  v 

elocidad:  0  (MAX)  a  100  (MIN)  ",vel 
130  IF  vel>100  OR  vel<0  GOTO  120 
140  ' 

150  'Edi-ficios 
160  ' 

170  MODE  0:FOR  base=5  TO  15: FOR  altura=21  TO  INT(RND(1)*8 
+nivel)  STEP-l:LOCATE  base, altura: PEN  base-2:PRINT  CH 
R*(143)+CHR*(8)+CHR*(11)+CHR*(244) ; : NEXT: NEXT 
180  PLOT  0,20, 4: DRAW  640,20,4 
190  LOCATE  1,25:  PEN  2:  PRINT-'PUNTOS"  ;  puntosi  :  LOCATE  12,25: 

PRINT-MAX"; maxima; 
200  ' 

210  'Juego 
220  ' 
230  LOCATE  x-l,y: PRINT"    "; 
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240  PEN  l:LOCATE  x,y:FRINT  avi*;:PEN  2 

250  IF  y=21  AND  x=15  THEN  GOTO  290: ELSE  GOTO  340 

260  ' 

270  'Aterriza 

280  ' 

290  FOR  c=0  TO  1000: NEXT 

300  puntos=puntos+100- (nivel#2) :nivel=nivel-l: x=2:y=2:a=2 
:b=2:cae=0 

310  IF  nivel<10  THEN  ni vel=10: vel=vel-20 

320  IF  vel<0  THEN  vel=0 

330  GOTO  150 

340  FOR  c=0  TO  vel:NEXT 

350  x=x  +  l 

360  IF  x=18  THEN  LOCATE  x-l,y:PRINT  CHR* < 18) ; : x=2: y=y+l : L 
OCATE  x,y:PEN  l:PRINT  avi*;:PEN  2 

370  a*=INKEY*:IF  a*="  "  AND  cae=0  THEN  cae=l :b=y+2: a=x 

380  IF  y=21  THEN  cae=0 

390  IF  cae=l  THEN  LOCATE  a,b:PRINT  CHR* (252) ;: LOCATE  a,b- 
l: PRINT"  " ;:b=b+l:IF  b>21  THEN  LOCATE  a, b: PRINT"  " ; : L 
OCATE  a,b-l:PRINT"  " ; : a=0: b=0: cae=0: SOUND  3,4000,10,1 
2,0,0,10 

400  ga=(a-0.5)*32:gb=400- <b*16) :bomba=TEST <ga,  gb) 

410  IF  bomba>0  THEN  GOTO  670 

420  gx=( <x+1.5>*32> : gy=408- <y*16> : choque=TEST (gx, gy) 

430  IF  chaque>0  THEN  GOTO  570 

440  GOTO  230 

450  ' 

460  ' Instrucciones 

470  ' 

480  LOCATE  1,2:PEN  1 : PRINT"Usted  esta  pilotando  un  avion 
sobre  una  ciudad  desierta  y  tiene  que  pasar  sobre  los 
edi-ficios  para  aterrizar  y  repos-    tar.  Su  avion  se 
mueve  de  izquierda  a   derecha. " i :PRINT 

490  PRINT:PRINT"A1  llegar  a  la  derecha,  el  avion  vuelve  a 
salir  por  la  izquierda,  pero  MAS  BAJO. Dispone  de  un  n 
umer-o  limit  ado  de  bombas  y  puede  hacerlas  caer  sobre 
los  edi-fi-   cios  pulsando  la  BARRA  ESPACIADORA.  "  J  :PRI 
NT 

500  PRINT:PRINT"Cada  vez  que  aterriza,  sube  la  altura  d 
e  los  edificios  y  la  velocidad. ";: PRINT: PRINT: PRINT"U 
NA  VEZ  DISPARADA  UNA  BOMBA,  YA  NO  PUEDE  DISPARAR  OTRA 
MIENTRAS  NO  HAYA  EXPLOSIO-NADO  LA  PRIMERA ! ! ! ! " 5 

510  PEN  2:L0CATE  1 , 24: PRINT: PRINT"Pulse  una  tecla  para  em 
pezar . " ; 

520  a*=INKEY*:IF  a*=""  GOTO  520 

530  RETURN 
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540  ' 

550  'Colision 

560  ' 

570  LOCATE  x-l,y:PRINT  CHR*<32> +CHR*<32> +CHR*<32> +CHR*<25 

3)+CHR*(8)+CHR*(238)+CHR*(8) ; 
580  FOR  t=l  TO  10:SOUND  7,4000,5, 15, 0,0, 5:PEN  t:PRINT  CHR 

* ( 253 ) +CHR* ( 8 ) +CHR* ( 238 ) +CHR* ( 8 ) +CHR* ( 32 ) +CHR* ( 8 ) ; : FO 

R  tm=0  TO  50: NEXT: NEXT: PEN  2 
590  CLS:LOCATE  1 , 5: PRINT"Ha  CDnseguidD" Jpuntos; "puntDS. " 
600  IF  puntos>maximo  THEN  max imo=puntos: LOCATE  1,8:PRINT" 

BATIO  EL  RECORD! ! "5 
610  puntos=0: LOCATE  1 , 12: PRINT"Pulse  V  para  volver  a  empe 

zar" ; 
620  a*=INKEY*:IF  a*="v"  OR  a*="V"  GOTO  630  ELSE  GOTO  620 
630  PEN  l:MODE  l:x=2:y=2:a=2:b=2:G0T0  90 
640  ' 

650  'Edi+icio  bombardeado 
660  ' 
670  LOCATE  a,b-l:PRINT"  B+CHR*(8) ; :PEN  4:F0R  tr=l  TO  INT( 

RND(l)*3)+l:puntos=puntos+5: SOUND  3,4000,10,12,0,0,10 

:LOCATE  a,b:FOR  t=0  TO  4:PRINT  CHR*(253) +CHR*(8) +CHR* 

(32)+CHR*(8) ;:NEXT:b=b+l 
680  IF  b=24  THEN  b=b-l 
690  NEXT 
700  LOCATE  7,25:PRINT  puntos? : cae=0: a=x: b=y: GOTO  230 


Tele  tenis 


Con  el  empezo  todo,  y  sigue  siendo  divertido.  Para  dos  jugadores,  o  para  uno  contra 
el  ordenador.  Teclado  o  joystick(s). 

10  '  TELE  TENIS,  par    David  Radisic 

20  '  copyright  (c)  AMSOFT  1985 

30  ' 

40  DEFINT  a-z 

50  comp=l 

60  ENV  1,=11,20,=9,5000 

70  MODE  l:INK  0,10:BORDER  10: INK  1,26: INK  2, 18: INK  3,0 

80  GOSUB  710 

90  GOSUB  150 

100  GOSUB  330 

110  GOSUB  420 

120  LOCATE  13,1: PRINT  USING "tttttttt  ";pun$osl; 
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130  LOCATE  35,1: PRINT  USING"####  D;puntos2; 

140  GOTO  100 

150  PEN  2 

160  x<l)=3:y(l)=5 

170  x(2)=37:y<2)=22 

180  borde*=CHR*<233) : borde2*=STRING*<2,207) 

190  LOCATE  1,3:PRINT  STRING*<39, borde*) : PRINT  STRING*<39, 

borde*) 
200  FOR  i=l  TO  19 

210  PRINT  borde2*;TAB<38) ;borde2* 
220  NEXT 

230  PRINT  STRING*<39,  borde*) -.PRINT  STRING*(39,  borde*)  ; 
240  WINDOW  #1,3,37,5,23 
250  CLSttl 

260  SYMBOL  240,0,60,126,126,126,126,60,0 
270  raq*= " ! " +CHR* ( 8 ) +CHR* ( 10 ) + " ! " 
280  bor*="  "+CHR*<8)+CHR*<10)+"  " 
290  pel*=CHR*(240) 
300  PEN  3 
310  LOCATE  2,1:  PRINT"  Jugador  1:     0" ;  :  LOCATE  24,1 '.PRINT" 

Jugador  2:     0" 
320  RETURN 

330  n=INT(RND*2) : CLSttl : punto=0 
340  PEN  3 

350  FOR  i=l  TO  2: LOCATE  x ( i ), y < i ): PRINT  raq*;:NEXT 
360  ON  n  GOTO  390 
370  xb=2l:dx=l 
380  GOTO  400 
390  xb=19:dx=-l 
400  yb=12:dy=INT(RND*3)-l 
410  RETURN 
420  GOSUB  600 
430  oxb=xb: oyb=yb 
440  GOSUB  500 

450  IF  nota>0  THEN  SOUND  129, nota,50, 15, 1 
460  LOCATE  oxb, oyb: PRINT"  "; 
470  LOCATE  xb,yb: PRINT  pel* 
480  IF  punto=0  THEN  420 
490  RETURN 

500  LOCATE  xb+dx,yb+dy:ch*=COPYCHR*<#0) 
510  nota=0 

520  IF  ch*="  "  THEN  xb=xb+dx: yb=yb+dy: RETURN 
530  IF  ch*="!"  THEN  dx=2-dx-2: dy=INT (RND*3) -1 : nota=200: RE 

TURN 
540  IF  ch*=LEFT*(borde2*, 1)  THEN  570 
550  IF  ch*=borde*  THEN  dy=2-dy-2: nota=250 
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560 
570 
580 
590 
600 

610 
620 

630 
640 
650 
660 

670 
680 
690 
700 
710 

720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
320 
830 


RETURN 

IF  dx>0  THEN  puntosl=puntosl+l  ELSE  puntos2=puntos2+l 

punto=l : nota=2000 

RETURN 

p(l)=(INKEY<69) >=0>  +  <INKEY<72>  >=0)+ABS( ( INKEY (71 ) >=0) 

+(INKEY(73) >=0) >*2 

IF  comp=l  THEN  p <2)=ABS(y <2)<yb)*2+ <y <2) >yb) : GOTO  630 

p (2)= (INKEY (4) >=0)+( INKEY (48) >=0) +ABS ( (INKEY (5) >=0)+( 

INKEY (49) >=0) )*2 

PEN  3 

FOR  i=l  TO  2 

LOCATE  x(i) ,y(i)+p(i) : ch*=COPYCHR* (tt0) 

IF  ch*="  H  THEN  LOCATE  ^(i) ,y(i) : PRINT  bar*; : y ( i ) =y ( i 

)+ROUND(p(i) /2) 

LOCATE  x(i) ,y(i) : PRINT  raq*; 

NEXT 

PEN  1 

RETURN 

PEN  2:PRINT:PRINT  TAB ( 15) "Ping-Pong" : PRINT  TAB (15)"-- 


PEN  3: PRINT: PRINT  TAB (10) "Para  mover  raquetas 

PRINT: PRINT:PEN  1 

PRINT"  Jugador  1      Jugador  2 


6 
3 
: PRINT  TAB (14) ' 
!  PRINT: PRINT 


PRINT"     A 

PRINT"     Z 

PEN  3: PRINT: PRINT  TAB(14)"o  con 

PRINT: PRINT 

PEN  2 

PRINT  TAB(7) "Elija  <1>  o  <2>  jugadores" 

i*=INKEY*:IF  i*<>"l"  AND  i*<>"2"  THEN  810 

IF  i*="l"  THEN  comp=l  ELSE  comp=0 

MODE  l: RETURN 


Direccion":PRINT 
ARRIBA" 
ABAJO": PRINT 
j  oyst icks" 
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Esgrima  electrico 


jTrate  de  'tocar'  a  su  oponente!  Para  dos  jugadores.  Teclado  o  joysticks. 

10  '  ESGRIMA  ELECTRICO,  por  Alexander  Martin 

20  '  copyright  (c)  AMSOFT  1985 

30  ' 

40  DEFINT  a-z 

50  MODE  0 

60  GOSUB  980 

70  GOSUB  1370 

80  GOSUB  270 

90  GOSUB  1520 

100  GOSUB  1370 

110  GOSUB  1270 

120  ' 

130  ' 

140  REM  empezar 

150  IF  termina  THEN  GOTO  100 

160  GOSUB  240 

170  FRAME: IF  pldir  THEN  GOSUB  570  ELSE  FRAME: FRAME 

180  FRAME: IF  p2dir  THEN  GOSUB  620  ELSE  FRAME:FRAME 

190  IF  plsa=-l  THEN  GOSUB  670 

200  IF  p2sa=-l  THEN  GOSUB  720 

210  GOTO  140 

220  ' 

230  ' 

240  IF  j  THEN  380  ELSE  480 

250  ' 

260  ' 

270  CLSIPEN  6 

280  PRINT: PRINT"    ELIJA  CONTROL" 

290  PRINT:PRINT:PRINT:PRINT"  pulse  J/T  [ENTER]" 

300  LOCATE  4, 10: PRINT" JOYSTICKS"; TAB (4)  ;  "0  TECLAS" 

310  LOCATE  12, 10: IF  j  THEN  PRINT"*" : ELSE  PRINT"  " 

320  LOCATE  12,11:IF  j  THEN  PRINT"  " : ELSE  PRINT"*" 

330  IF  N0T(INKEY(45) )  THEN  j=-l 

340  IF  N0T(INKEY(37) )  THEN  j =0 

350  IF  N0T(INKEY(18) )  THEN  RETURN  ELSE  310 

360  ' 

370  ' 

380  pl=JOY(0) :p2=J0Y(l) 

390  pldir=(pl  AND  l)*-l+(pl  AND  2)*0.5 

400  p2dir=(p2  AND  l)*-l+(p2  AND  2)*0.5 

410  IF  pi  AND  16  THEN  plsa=plsa-l :  IF  plsa=-l  THEN  AFTER  1 
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5  GOSUB  770 
420  IF  p2  AND  16  THEN  p2sa=p2sa-l : IF  p2sa=-l  THEN  AFTER  1 

5  GOSUB  770 
430  IF  plsa  THEN  pldir=0 
440  IF  p2sa  THEN  p2dir=0 
450  RETURN 
460  ' 
470  ' 

480  p2dir=< ( INKEY (4) =0)*1 ) + ( ( INKEY (5) =0)*-l ) 
490  pldir=( ( INKEY (69) =0)*1 )+ ( ( INKEY (71 ) =0)*-l ) 
500  IF  INKEY (63) =0  THEN  plsa=plsa-l : IF  plsa=-l  THEN  AFTER 

15  GOSUB  770 
510  IF  INKEY ( 10) =0  THEN  p2sa=p2sa-l : IF  p2sa=-l  THEN  AFTER 

15  GOSUB  770 
520  IF  plsa  THEN  pldir=0 
530  IF  p2sa  THEN  p2dir=0 
540  RETURN 
550  ' 
560  ' 
570  pt=plwp+pldir:lF  pt>25  OR  pt<6  THEN  RETURN  ELSE  plwp= 

pt 
580  pldir=0  ^ 

590  PEN  l:LOCATE  3,  plwp:  CLS*»3:  PRINT  CHR* (209) 5 : RETURN 
600  ' 
610  ' 
620  pt=p2wp+p2dir: IF  pt>25  OR  pt<6  THEN  RETURN  ELSE  p2wp= 

Pt 
630  p2dir=0 

640  PEN  2IL0CATE  18, p2wp: CLS#5: PRINT  CHR*(21 1 );: RETURN 
650  ' 
660  ' 

670  PAPER  #4, 4: WINDOW  #4, 4, 17, plwp, plwp: CLS#4: FRAME: FRAME 
680  PAPER  #4,0:CLS#4 
690  GOTO  570 
700  ' 
710  ' 

720  PAPER  #6,5:WIND0W  #6,  4,  17,  p2wp,  p2wp:  CLS*»6:  FRAME:  FRAME 
730  PAPER  *»6,0:CLS#6 
740  GOTO  620 
750  ' 
760  ' 
770  pwpe=(plwp=p2wp) : IF  plsa  AND  N0T(p2sa)  AND  pwpe  THEN 

plsc=plsc+l: SOUND  132,120, 10,0, 1 ,0: PRINTttl , a*(plsc) ; : 

IF  plsc=9  THEN  860 
780  IF  p2sa  AND  NOT (plsa)  AND  pwpe  THEN  p2sc=p2sc+l : SOUND 
132,100,10,0, l,0:PRINT#2,a*(p2sc) ;: IF  p2sc=9  THEN  86 
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790 
800 
810 
820 
830 
840 
850 
860 
870 
880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


0 

IF  plsa  THEN  SOUND 

IF  p2sa  THEN  SOUND 

plsa=0 

p2sa=0 

RETURN 


132,40,70,0,1,1 
132,56,70,0,1,1 


PEN  6 

LOCATE  2, 10:PRINT"FIN  DE  LA  PARTIDA" 

IF  plsc=9  THEN  INK  1,2,20: INK  2,0  ELSE  INK  2,6, 17: INK 

1,0 
SOUND  129, 1000,0, 12, 3:S0UND  130,900,0,12,3 
WHILE  INKEY*<>"" : WEND 
ti=TIME: WHILE  t !+2000>TIME:WEND 
WHILE  INKEY*=""  :  WEND 
CLS  i. 

termina=-l  ^ 

RETURN 


a*(0)=" 111101101101111" 
a* ( 1 ) ="001001001001001 " 

a* (2) ="11100111 1100111" 

a* (3)=" 111001111001111" 

a* (4) ="100100101 11 1001" 

a* (5)=" 11 11001110011 11" 

a* (6)=" 111100111101111" 

a* (7) ="11 1001001010010" 

a* (8)=" 111101111101111" 

a*  ( 9 ) =" 1 1 1 101 1 1 1001001 " 

FOR  n=0  TO  9 

tiempo=LEN(a*(n) ) 

FOR  n2=l  TO  tiempo 

IF  MID*(a*(n)  ,n2,  1)="1"THEN  MID*(a*(n)  ,  r>2,  1 )  =CHR*(  14 

3)  ELSE  MID*(a*(n)  ,n2,  ll.=CHR*<32) 

NEXT  n2,n 


b*=BESGRIMA  ELECTRICO" 

c*=CHR*(32)+CHR*(164)+"  Alexander  Martin" 
ENV  1,=9,2000:ENT  -1,6,3,1 

ENV    2, 127,0,0, 127,0,0, 127,0,0, 127,0,0, 127,0,0 
ENV    3, =9, 9000 
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1220  BORDER  0 

1230  INK  0,12:PEN  #4,l:PEN  #6,2:PEN  #1,1:PEN  #2,2:PAPER  # 

1,3: PAPER  #2, 3: PEN  #0,6 
1240  RETURN  'de  preparar  constantes 
1250  ' 
1260  ' 
1270  INK  0,12:INK  1,2:INK  2,6:INK  3, 13: INK  4,20:INK  5,17: 

INK  6,20 
1280  WINDOW  #3,3,3,6,25:WIND0W  #5,18,18,6,25 
1290  WINDOW  #1,3,5, 1,5:WIND0W  #2, 16, 18, 1 , 5: WINDOW  #7,1,20 

,1,5: PAPER  #7,3 
1300  CLS:CLS#7:PRINT#l,a*<0) 5 : PRINT#2, a*<0) 5 : plsc=0: p2sc= 

0:plwp=5:p2wp=24:pldir=l:p2dir=l 
1310  GOSUB  570:GOSUB  620 

1320  SOUND  1,1000,0, 12, 2:S0UND  2,900,0,12,2 
1330  plsa=0:p2sa=0: termina=0 
1340  RETURN 
1350  ' 
1360  ' 
1370  CLS 
1330  PEN  7 

1390  FOR  r.=l  TO  LEN(b*) 
1400  LOCATE  l+n,10 
1410  FOR  n2=LEN<b*)  TO  n  STEP-1 
1420  PRINT  MID*<b*,n2, 1) 
1430  LOCATE  1+n, 10 
1440  SOUND  135, 20*n2,5, 12,2,1 
1450  NEXT  n2,n 
1460  SOUND  135,100,0,13,3,1,20 

1470  pen  6:print:print:print:print  c* 

1480  FOR  n=l  TO  5000: NEXT 

1490  RETURN 

1500  ' 

1510  ' 

1520  IF  j  THEN  RETURN 

1530  CLS 

1540  LOCATE  6,5 

1550  PRINT'CONTROLES" 

1560  PRINT 

1570  PRINT-JUGADOR  1   JUGADOR  2" 

1580  PRINT 

1590  PRINT"   A    arriba    6" 

1600  PRINT"   2    abaJD     3" 

1610  PRINT"   X   disparo    ?"' 

1620  t!=TIME: WHILE  t ! +1000 >TIME: WEND 

1630  RETURN 


Que  usted  lo  disfrute  ...  A3/1 1 


Amthello 


El  juego  de  la  reflexion.  Trate  de  rodear  y  capturar  los  cuadrados  de  su  oponente  sin 
dejar  las  suyos  al  descubierto.  Para  un  jugador  contra  el  ordenador.  S61o  teclado. 

10  "AMTHELLO,  por  M.  J.  Gribbins 

20  'copyright  <c)  AMSOFT  1984 

30  ' 

40  BORDER  14 

50  CLEAR 

60  MODE  l:PEN  0: PAPER  1 : CLS 

70  INK  0,0:INK  1,14:INK  2,18:INK  3,26 

80  LOCATE  2,3:PEN  3: PRINT" A" : LOCATE  3, 4: PRINT"M" : LOCATE  4 

, 5: PRINT"T": LOCATE  5, 6: PRINT"H" 
90  LOCATE  6,7:PRINT"E":L0CATE  7, 8: PRINT"L" : LOCATE  8,9:PRI 

NT"L":LOCATE  9, 10: PRINT"0" 
100  WINDOW  #1,2,39,22,25:PAPER  #1,1:PEN  #1,0:CLS#1 
110  PEN  0 

120  LOCATE  #1,5, l:PRINTttl, "LAS  NEGRAS  SIEMPRE  EMPIEZAN" 
130  LOCATE  #1,4,3:PRINT#1, "ELIJA  BLANCAS  <B>  0  NEGRAS  <N> 

140  b*=INKEY*:IF  b*=""  THEN  140 

150  IF  b*="B"  OR  b*="b"  THEN  q%=3: n%=0: GOTO  210 

160  IF  b*="N"  OR  b*="n"  THEN  q%=0: n%=3:G0T0  210 

170  CLSttl: LOCATE  #1,4,3 

180  PRINTttl,"     SOLO  BLANCAS  0  NEGRAS" 

190  FOR  t=0  TO  1000: NEXT  t 

200  GOTO  140 

210  DIM  c%(10,10) ,p%(9,9) ,cl%(8) , c2%(8) , cx%<9) ,cy%(9) 

220  il%=2: j 1%=2: i2%=7: j2%=7 

230  FOR  i%=0  TO  9 

240  c%(i%,o%)=6:c%(0, i%)=6 

250  c%(9, i%)=6:c%(i%,9)=6 

260  NEXT  i% 

270  FOR  i%=l  TO  8 

280  READ  cl%(i%) ,c2%(i%) 

290  FOR  j%=l  TO  8 

300  READ  p%(i%,j%) 

310  c%<i%,j%)=6 

320  NEXT  j%:NEXT  i% 

330  c%  <  4 , 4 ) =3 : c% ( 4 , 5 ) =0 : c%  <  5 , 4 ) =0 : c% ( 5 , 5 ) =3 

340  FOR  k%=l  TO  58 

350  READ  ar%,br%,cr%,dr% 

360  PLOT  ar%,br%:DRAW  cr%,dr%,0 
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1DRAW  290+(30*d%) , 89+(30#e 
IDRAW  270+<30*d%) ,89+(30*e 


370  NEXT  k% 

380  GOSUB  1460 

390  IF  q%=3  GOTO  770 

400  CLS#l: INPUT  #1,"  ELIJA  FILA  " ; e% 

410  IF  e%<l  OR  e%>8  GOTO  400 

420  LOCATE  81,1,3: INPUT  #1,"  ELIJA  COLUMNA  " 5 d% 

430  IF  d%<l  OR  d%>8  GOTO  420 

440  IF  c%(d%,e%)=6  GOTO  480 

450  CLS#l: LOCATE  ttl , 5, 2: PRINT#1 , "ESE  CUADRADO  YA  ESTA  OCU 

PADO ! " 
460  FOR  t=l  TO  1000: NEXT  t 
470  GOTO  400 
480  PLOT  270+<30*d%) ,70+<30*e%) 

%)  ,q% 
490  PLOT  290+(30*d%),70+<30*e%) 

%)  ,q% 
500  GOTO  540 

510  FOR  m%=0  TO  19  STEP  2:PL0T  270+ (30*d%) , 70+m%+ (30*e%) 
520  DRAW  290+(30*d%) , 70+m%+ (30*e%) ,6:NEXT  m% 
530  GOTO  400 
540  vrx%=0 
550  FOR  k%=l  TO  8 
560  vr%=0:c3%=d%:c4%=e% 
570  c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 
580  IF  C%(c3%,c4%)=n%  GOTO  590  ELSE  600 
590  vr%=vr%+l:GOTO  570 

600  IF  c%(c3%,c4%)=6  GOTO  610  ELSE  620 
610  NEXT  k%:GOTO  670 
620  IF  vr%=0  GOTO  610  ELSE  630 
630  vrx%=vrx%+vr% 

640  c3%=c3%-cl%(k%) :c4%=c4%-c2%(k%) 
650  IF  c%(c3%,c4%)=6  GOTO  610  ELSE  660 
660  c%(c3%,c4%)=q%:G0T0  640 
670  IF  vrx%=0  GOTO  680  ELSE  710 
680  CLSttl:PRINT#l,"ESO  NO  ES  POSIBLE" 
690  FOR  t=l  TO  1000: NEXT  t 
700  GOTO  510 

710  e%=e%:d£=d%:vrx%=vrx% 

720  CLS#l:PRINT#l, "USTED  VA  A  LA  LINEA  " 5 e% 
730  PRINT#1,"      Y  A  LA  COLUMNA  tt ; d% 
740  LOCATE  ttl , 2, 4: PRINTttl , "CON  LO  QUE  CONSIGUE  "5vrx%5" 

UADRADO(S) " 
750  c%(d%,e%)=q%: GOSUB  1710 
760  GOSUB  1460 
770  CLSttl: LOCATE  ttl , 10, 2: PRINT#1 , 


'AHORA  ME  TOCA  A  MI 
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780  p%=0:vrx%=0:vry%=0 

790  IF  il%*jl%=l  AND  i2%*j2%=64  GOTO  860 

800  FOR  k%=2  TO  7 

810  IF  c%(2,k%)<>6  THEN  il%=l 

820  IF  c%(7,k%)<>6  THEN  i2%=8 

830  IF  c%(k%,2)<>6  THEN  j 1%=1 

840  IF  c%<k%,7)<>6  THEN  j2%=8 

850  NEXT  k% 

860  FOR  i%=il%  TO  i2% 

870  FOR  j%=jl%  TO  j2% 

880  IF  c%(i%,j%)=6  GOTO  1030 

390  NEXT  j%:NEXT  i% 

900  IF  p%>0  THEN  1000 

910  IF  pas%=l  GOTO  920  ELSE  940 

920  CLSttlrPRINTttl, "BLOQUEADO!  YO  TAMBIEN  TENGO  QUE  PASAR. 

FIN  DE  LA  PARTIDA" 
930  FOR  t=l  TO  1000: NEXT  t:GOTO  1550 
940  CLSttl: LOCATE  ttl , 18, 2: PRINTttl , "TENGO  QUE  PASAR" 
950  GOSUB  2720 

960  IF  pas%=l  GOTO  970  ELSE  990 
970  CLS#l:PRINT#l, "BLOQUEADO!  USTED  TAMBIEN  TIENE  QUE 

PASAR.  FIN  DE  LA   PARTIDA.  " 
975  RETURN 

980  FOR  t=l  TO  1000: NEXT  t : GOTO  1550 
990  GOTO  400 

1000  IF  lc%=0  THEN  lc%=l: RANDOMIZE  lc%: r 1%=RND ( lc%) 
1010  cxl%=cx%(rl%) :cx2%=cy%(rl%) 
1020  GOTO  1220 
1030  vrx%=0 
1040  FOR  k%=l  TO  8 
1050  vr%=0:c3%=i%:c4%=j% 
1060  c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 
1070  IF  c%(c3%,c4%)=q%  GOTO  1080  ELSE  1090 
1030  vr%=vr%+l:GOTO  1060 

1090  IF  c%(c3%,c4%)=6  GOTO  1100  ELSE  1110 
1100  NEXT  k%:GOTO  1130 
1110  IF  vr%=o%  GOTO  1100  ELSE  1120 
1120  vrx%=vrx%+vr%:GOTO  1100 
1130  IF  vrx%=0  GOTO  890 
1140  IF  p%(i%,j%)<p%  GOTO  890 
1150  IF  p%(i%,j%)>p%  GOTO  1160  ELSE  1170 
1160  p%=p%(i%, j%) :vry%=vrx%: lc%=0: cx%(0) =i%: cy%(0) =j%: GOT 

0  890 
1170  IF  vry%>vrx%  GOTO  890 
1180  IF  vry%<vrx%  GOTO  1190  ELSE  1200 
1190  lc%=0: vry%=vrx%:cx%(0)=i%:cy%(0)=j%:GOTO  890 
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1200  lc%=lc%+l:cx%(lc%)=i%:cy%(lc%)=j% 

1210  GOTO  890 

1220  cx2%=cx2%:cxl%=cxl%:vry%=vry% 

1230  CLSttl:PRINTttl,"YO  VOY  A  LA  FILA  ";cx2% 

1240  PRINTttl,"   Y  A  LA  COLUMNA  H;cxl% 

1250  LOCATE  ttl ,  1 ,  4:  PRINTttl ,  "CON  LO  QUE  CONSIGO  "!vry%!"  C 

UADRADO(S) M 
1260  PLOT  270+(30*cxl%) , 70+ (30*cx2%) : DRAW  290+ (30*cxl%) , 8 

9+(30*cx2%) ,  n% 
1270  PLOT  290+(30*cxl%) ,70+ (30*cx2%) : DRAW  270+ (30*cxl%) ,8 

9+(30*cx2%) ,n% 
1280  FOR  t=l  TO  1000: NEXT  t 
1290  FOR  U%=1  TO  8 
1300  vr%=0:c3%=cxl%:c4%=cx2% 
1310  c3%=c3%+cl%(k%) :c4%=c4%+c2%(U%) 
1320  IF  c%(c3%,c4%)=q%  GOTO  1330  ELSE  1340 
1330  vr%=vr%+l:GOTO  1310 

1340  IF  c%(c3%,c4%)=6  GOTO  1350  ELSE  1360 
1350  NEXT  k%:GOTO  1400 
1360  IF  vr%=0  GOTO  1350 
1370  c3%=c3%-cl%(k%) :c4%=c4%-c2%(k%) 
1380  IF  c%(c3%,c4%)=6  GOTO  1350 
1390  c%(c3%,c4%)=n%:G0T0  1370 
1400  c%(cxl%,cx2%)=n% 
1410  GOSUB  2720 
1420  GOSUB  1460 

1430  IF  pas%=l  GOTO  1440  ELSE  1450 
1440  CLSttl :  PRINTttl,  "     USTED  TIENE  QUE  PASAR":FOR  t  =  l  TO 

1000: NEXT  t:GOTO  770 
1450  GOTO  400 
1460  FOR  i%=l  TO  8 
1470  FOR  j%=l  TO  8 
1480  FOR  m%=l  TO  19  STEP  2 

1490  z%=270+<30*i%> :h%=70+(30*j%) :w%=h%+m% 
1500  PLOT  2%,w%:DRAW  z%+20, w%, c%( i%, j%) 
1510  NEXT  m%:NEXT  j%:NEXT  i% 
1520  x%=x%+l 
1530  IF  x%=61  GOTO  1550 
1540  RETURN 
1550  cq%=0:cn%=0 
1560  FOR  i%=l  TO  8 
1570  FOR  j%=l  TO  8 

1580  IF  c%(i%,j%)=q%  THEN  cq%=cq%+l 
1590  IF  c%(i%,j%)=n%  THEN  cn%=cn%+l 
1600  NEXT  j%:NEXT  i% 
1610  IF  cq%>cn%  GOTO  1680 
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1620  IF  cq%=cn%  GOTO  1630  ELSE  1650 

1630  CLS#l:LOCATE  #1 , 25, 2: PRINTttl , "BLOQUEADO" 

1640  END 

1650  CLSttl: LOCATE  #1 , 5, 1 : PRINTttl , "USTED  TIENE  "5cq%;"  CUA 

DRADOS.  YO  TENGO  ";cn% 
1660  LOCATE  #1 , 11 , 3: PRINTttl , "YO  HE  GANADO  ...  ■'■" 
1670  END 

1680  CLS#l:  LOCATE  #1 , 5, 1 : PRINTttl , "USTED  TIENE  ";cq%;''  CUA 
DRADOS.  YO  TENGO  ";cn% 

1690  LOCATE  #1 , 5, 3: PRINT#1 , "MUY  BIEN.  USTED  HA  GANADO  ... 
iiin 

1700  END 

1710  IF  c%(2,2)=q%  AND  <c%<3,l)=n%  OR  c%<l,3)=n%)  GOTO  17 

20  ELSE  1730 
1720  p%(3,l)=l:p%(l,3)=l 
1730  IF  c%(7,7)=q%  AND  <c%(8,6)=n%  OR  c%<6,8)=n%)  GOTO  17 

40  ELSE  1750 
1740  p%<8,6)=l:p%(6,8)=l 
1750  IF  c%(2,7)=q%  AND  <c%(l,6)=n%  OR  c%<3,8)=n%)  GOTO  17 

60  ELSE  1770 
1760  p%<l,6)=l:p%(3,8)=l 
1770  IF  c%<7,2)=q%  AND  <c%<6,l)=n%  OR  c%(8,3)=n%)  GOTO  17 

80  ELSE  1790 
1780  p%<6,l)=l:p%(8,3)=l 

1790  IF  d%=l  OR  d%=8  OR  e%=l  OR  e%=8  GOTO  1820 
1800  IF  cxl%=l  OR  cxl%=8  OR  cx2%=l  OR  cx2%=8  GOTO  1820 
1810  RETURN 

1820  FOR  j%=l  TO  8  STEP  7 
1830  FOR  i%=2  TO  7 

1840  IF  c%(i%,j%)=n%  GOTO  1850  ELSE  1860 
1850  p% ( i%+l , j %) =21 : p% ( i%-l , j %) =21 
1860  IF  c%(j%,i%)=n%  GOTO  1870  ELSE  1880 
1870  p%(j%, i%+l)=21:p%(j%,i%-l)=21 
1880  NEXT  i% 
1890  FOR  i%=2  TO  7 

1900  IF  c%(i%,j%)=q%  GOTO  1910  ELSE  1920 
1910  p%(i%+l, j%)=2:p%(i%-l, j%)=2 
1920  IF  c%<j%, i%)=q%  GOTO  1930  ELSE  1940 
1930  p%(j%, i%+l)=2:p%(j%,i%-l)=2 
1940  NEXT  i%:NEXT  j% 

1950  p%(l,2)=i:p%(i,7)=i:p%(2,l)=i:p%(7,i)=i 

1960  P%<2,8)=l:p%(7f8)=l:p%(8,2)=l:p%(8,7)=l 

1970  FOR  i%=2  TO  7 

1980  IF  c%(l,i%-l)=q%  AND  c% ( 1 , i%+l ) =q%  THEN  p%(l,i%)=25 

1990  IF  c*/.<8,i%-l)=q%  AND  c%<8,  i%+l )  =q%  THEN  p%<8,i%)=25 

2000  IF  c%<i%-l,l)=q%  AND  c% ( i%+l , 1 ) =q%  THEN  p%(i%,l)=25 
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2010  IF  c%(i%-l,8)=q%  AND  c%( i%+l ,8) =q%  THEN  p%(i%,8)=25 

2020  NEXT  i% 

2030  FOR  j%=l  TO  8  STEP  7 

2040  FOR  i%=4  TO  8 

2050  IF  c%(j%,i%)On%  GOTO  2140 

2060  ic%=i%-l:IF  c%(j%,  ic%)=6  GOTO  2140 

2070  IF  c%(j%, ic%)=q%  GOTO  2080  ELSE  2090 

2080  ic%=ic%-l:GOTO  2070 

2090  IF  c%(j%, ic%)=6  GOTO  2110 

2100  GOTO  2140 

2110  IF  ic%=0  GOTO  2140 

2120  IF  c%(j%, i%+l)=q%  AND  c%( j%, ic%-l ) =6  GOTO  2140 

2130  p%(j%, ic%)=26 

2140  IF  c%(i%,j%)On%  GOTO  2230 

2150  ic%=i%-l:IF  c%(ic%,j%)=6  GOTO  2230 

2160  IF  c%(ic%, j%)=q%  GOTO  2170  ELSE  2180 

2170  ic%=ic%-l:GOTO  2160 

2180  IF  c%(ic%,j%)=6  GOTO  2200 

2190  GOTO  2230 

2200  IF  ic%=0  GOTO  2230 

2210  IF  c%(i%+l, j%)=q%  AND  c%( ic%-l , j%) =6  GOTO  2230 

2220  p%(ic%, j%)=26 

2230  NEXT  i% 

2240  FOR  i%=l  TO  5 

2250  IF  c%(j%,i%)On%  GOTO  2340 

2260  ic%=i%+l:IF  c%(j%,ic%)=6  GOTO  2340 

2270  IF  c%(j%, ic%)=q%  GOTO  2280  ELSE  2290 

2280  ic%=ic%+l:GOTO  2270 

2290  IF  c%(j%,ic%)=6  GOTO  2310 

2300  GOTO  2340 

2310  IF  ic%=9  GOTO  2340 

2320  IF  c%(j%, i%-l)=q%  AND  c%( j%, ic%+l ) =6  GOTO  2340 

2330  p%(j%, ic%)=26 

2340  IF  c%(i%,j%)On%  GOTO  2430 

2350  ic%=i%+l:IF  c%(ic%,j%)=6  GOTO  2430 

2360  IF  c%(ic%, j%)=q%  GOTO  2370  ELSE  2380 

2370  ic%=ic%+l:GOTO  2360 

2380  IF  c%(ic%,j%)=6  GOTO  2400 

2390  GOTO  2430 

2400  IF  ic%=9  GOTO  2430 

2410  IF  c%<i%-l, j%)=q%  AND  c%( ic%+l , j%) =6  GOTO  2430 

2420  p%(ic%, j%)=26 

2430  NEXT  i%:NEXT  j% 

2440  IF  c%(l,l)=n%  GOTO  2450  ELSE  2460 

2450  FOR  i%=2  TO  6: p% ( 1 , i%) =20: p%( i%, 1 ) =20: NEXT  i% 

2460  IF  c%(l,8)=n%  GOTO  2470  ELSE  2480 
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2470  FOR  i%=2  TO  6: p%( i%, 8) =20: p% ( 1 , 9-i%) =20: NEXT  i% 

2480  IF  c%<8,l)=n%  GOTO  2490  ELSE  2500 

2490  FOR  i%=2  TO  6: p%<9-i%, 1 ) =20: p%<8, i%) =20: NEXT  i% 

2500  IF  c%(8,8)=n%  GOTO  2510  ELSE  2520 

2510  FOR  i%=3  TO  7:p%( i%, 8) =20:p%(8, i%) =20:NEXT  i% 

2520  IF  C%<1,1)<>6  THEN  p%(2,2)=5 

2530  IF  c%<1,8)<>6  THEN  p%(2,7)=5 

2540  IF  c%(8,1)<>6  THEN  p%<7,2)=5 

2550  IF  c%(8,8)<>6  THEN  p%<7,7)=5 

2560  p% ( 1 , 1 ) =30: p% ( l , 8 ) =30: p% ( 8 , 1 ) =30: p% ( 8 , 8 ) =30 

2570  FOR  i%=3  TO  6 

2580  IF  c%(l,i%)=n%  THEN  p%<2,i%)=4 

2590  IF  c%<8,i%)=n%  THEN  p%<7,i%)=4 

2600  IF  c%(i%,l)=n%  THEN  p%<i%,2)=4 

2610  IF  c%(i%,8)=n%  THEN  p%<i%,7)=4 

2620  NEXT  i% 

2630  IF  c%(7,l)=q%  AND  c%(4,l)=n%  AND  c%(6,l)=6  AND  c%(5, 
1)=6  THEN  p%<6,l)=26 

2640  IF  c%(l,7)=q%  AND  c%<l,4)=n%  AND  c%(l,6)=6  AND  c%(l, 
5) =6  THEN  p%(l,6)=26 

2650  IF  c%(2,l)=q%  AND  c%<5,l)=n%  AND  c%(3,l)=6  AND  c%(4, 
1)=6  THEN  p%(3,l)=26 

2660  IF  c%(l,2)=q%  AND  c%(l,5)=n%  AND  c%(l,3)=6  AND  c%(l, 
4)=6  THEN  p%<l,3)=26 

2670  IF  c%(8,2)=q%  AND  c%<8,5)=n%  AND  c%(8,3)=6  AND  c%(8, 

4)=6  THEN  p%(8,3)=26 
2680  IF  c%(2,8)=q%  AND  c%(5,8)=n%  AND  c%(3,8)=6  AND  c%(4, 

8)=6  THEN  p%(3,8)=26 
2690  IF  c%<8,7)=q%  AND  c%(8,4)=n%  AND  c%(8,5)=6  AND  c%(8, 

6)=6  THEN  p%(8,6)=26 
2700  IF  c%(7,8)=q%  AND  c%(4,8)=n%  AND  c%<5,8)=6  AND  c%(6, 

8)=6  THEN  p%<6,8)=26 
2710  RETURN 
2720  pas%=0 
2730  FOR  i%=l  TO  8 
2740  FOR  j%=l  TO  8 
2750  IF  c%(i%,j%)=q%  GOTO  2780 
2760  NEXT  j%:NEXT  i% 
2770  pas%=l: RETURN 
2780  FOR  k%=l  TO  8 
2790  vr%=0:c3%=i%:c4%=j% 
2800  c3%=c3%+cl%(k%) :c4%=c4%+c2%<k%) 
2810  IF  c3%<1  OR  c3%>8  GOTO  2820  ELSE  2830 
2820  NEXT  k%:GOTO  2760 

2830  IF  c4%<1  OR  c4%>8  GOTO  2820  ELSE  2840 
2840  IF  c%(c3%,c4%)=n%  GOTO  2850  ELSE  2860 
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2850  vr%=vr%+l:GOTO  2800 

2860  IF  c%<c3%,c4%)=q%  GOTO  2820  ELSE  2870 

2870  IF  vr%>0  THEN  RETURN 

2880  GOTO  2820 

2890  DATA  1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 

2900  DATA  3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 

2910  DATA  0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 

2920  DATA  -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,-1, 

30,1,20,10,10,20,1,30 
2930  DATA  263,100,263,120,270,130,255,130,255,130,255,140 

,255,140,270, 140 
2940  DATA  270,140,270,150,270,150,255,150,255,160,270,160 

,270,160,270,180 
2950  DATA  270,180,255,180,270,170,255,170,270,190,270,210 

,270,200,255,200 
2960  DATA  255,200,255,210,255,220,270,220,270,220,270,230 

,270,230,255,230 
2970  DATA  255,230,255,240,255,240,270,240,255,250,270,250 

,270,250,270,260 
2980  DATA  270,260,255,260,255,250,255,270,270,280,270,300 

,270,300,255,300 
2990  DATA  255,310,255,330,255,330,270,330,270,330,270,310 

,270,310,255,310 
3000  DATA  255,320,270,320 
3010  DATA  310,355,310,375,350,355,335,355,335,355,335,365 

,335,365,350,365 
3020  DATA  350,365,350,375,350,375,335,375,365,355,380,355 

,380,355,380,375 
3030  DATA  380,375,365,375,380,365,365,365,410,355,410,375 

,410,365,395,365 
3040  DATA  395,365,395,375,425,355,440,355,440,355,440,365 

,440,365,425,365 
3050  DATA  425,365,425,375,425,375,440,375,455,375,455,355 

,455,355,470,355 
3060  DATA  470,355,470,365,470,365,455,365,485,375,500,375 

,500,375,500,355 
3070  DATA  515,375,515,355,515,355,530,355,530,355,530,375 

,530,375,515,375 
3080  DATA  515,365,530,365 
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Guante  bianco 


Llevese  las  joyas  del  senor  conde.  Muchos  obstaculos  con  los  que  tropezar,  luces  que 
encender,  y  cuidado  con  el  perro.  Para  un  jugador  contra  el  ordenador.  Teclado  o 
joystick. 

10  'GUANTE  BLANCO,  por  David  Radisic 

20  'copyright  (c)  AMSOFT  1985 

30  ' 

40  MODE  0:INK  0,0:BORDER  0:INK  1,26: INK  2, 15: INK  3,25 

50  INK  4,14:INK  5,24,12:INK  6,0:INK  7,0:INK  8,0:PAPER  #1, 

60  retardo=200 

70  DIM  objx(5,20) ,objy(5,20) , joyax(5,20) , joyay(5,20) 

80  GOSUB  380 

90    GOSUB  720 

100  pausa=200: GOSUB  340 

110  IF  joyas=0  THEN  GOSUB  980 

120  PEN  4 

130  FOR  i=10  TO  12 

140  LOCATE  15, i :PRINT"BOTIN"; 

150  NEXT 

160  PAPER  0:CLS#2: PAPER  8 

170  GOSUB  1180 

180  GOSUB  1240 

190  GOSUB  1380 

200  GOSUB  1520 

210  IF  rm=0  THEN  GOSUB  1910 

220  IF  muerto=0  THEN  160 

230  pausa=100: GOSUB  340 

240  PAPER  0:CLS:PEN  1 

250  LOCATE  4, 3: PRINT "Qui ere  j ugar " ; 

260  LOCATE  5, 5: PRINT"otra  vez?"; 

270  PEN  5: LOCATE  7, 7: PRINT"S/N" ; 

280  i*=UPPER*(INKEY$) : IF  i*<>"S"  AND  i*<>"N"  THEN  280 

290  IF  i*="Nu  THEN  MODE  2: PEN  1 : STOP 

300  RUN 

310  IF  perro=l  THEN  RETURN 

320  perro=l :perrox=minx (rro) : perroy=miny (rm) 

330  RETURN 

340  FOR  bucle=l  TO  pausa 

350  FRAME 

360  NEXT 

370  RETURN 

380  rm=l:xp=6:yp=4:hombre*=CHR*(224) :perrD=0: robado=0 
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390  SYMBOL  240,8,8,8,8,8,8,8,8 

400  SYMBOL  241,0,0,0,0,255,0,1  0 

410  SYMBOL  242,0,0  0,0,15,8,8,8 

420  SYMBOL  243,0,0,0,0,248,8,8,8 

430  SYMBOL  244,8,8,8,8,248,0,0,0 

440  SYMBOL  245,8,8,8,8,15,0,0,0 

450  SYMBOL  246,8,12,13,14,12,12,8,8 

460  SYMBOL  247,8,12,12,14,13,12,3,8 

470  SYMBOL  248,8,24,88,56,24,24,8,8 

480  SYMBOL  249,8,24,24,56,88,24,8,8 

490  SYMBOL  250,0,0,255,129,129,129,255,0 

500  SYMBOL  251,28,20,20,20,20,20,20,28 

510  SYMBOL  252,0,0,255,255,255,255,255,0 

520  SYMBOL  253,28,28,28,28,28,28,28,28 

530  SYMBOL  255,195,165,60,126,90,60,36,24 

540  ENT  1,12,-4,1 

550  ENT  -2, =1000, 60, =3000, 40 

560  ENV  1,10,1,5,2,-4,1,2,-1,20 

570  vent*(l)=STRIN6*(2,250):vent*(2)=CHR*(251)+CHR*(8)+CH 

R*  < 10) +CHR* ( 251 ) +CHR* (8) +CHR* ( 10) +CHR* ( 251 ) 
580  puerta*(l)=STRING*(2,252) :puerta*(2)=CHR*(253)+CHR*(8 

) +CHR* ( 10) +CHR* ( 253) +CHR* (8) +CHR* ( 10) +CHR* ( 253) 
590  conm*(l,0)=CHR*(246) : conm*( 1 , 1 ) =CHR*(247) 
600  conm*(2,0)=CHR*(248):conm*(2,l)=CHR*(249) 
610  joya*=CHR*<144) : obj*=CHR*(233) :perro*=CHR*<255) 
620  gol*=CHR*(246) +CHR*(248) +CHR*(247) +CHR* (249) +CHR*(252 

)+CHR*(253)+CHR*(250)+CHR*<251)+joya*+obj*+perro* 

630  RESTORE  3020 

640  FOR  i=l  TO  5 

650  READ  minx(i) ,miny (i) ,maxx (i) ,maxy (i ) 

660  READ  dir (i,l) ,dir (i,2) ,dir(i,3) ,dir (i,4) 

670  NEXT 

680  WINDOW  ttl,minx (rm) -1 ,maxx (rm) +1 ,miny (rm)-l,maxy (rm)+l 

690  WINDOW  #2,1,14,1,25 

700    CLSttl:  PAPER    #0,8 

710    RETURN 

720  ORIGIN  50,50 

730  INK  6,24,12 

740  RESTORE  3070 

750  GOSUB  1290 

760  LOCATE  1,20 

770  PEN  5:PRINT">"5 

780  PEN  l:PRINT"Puertas  y  ventanas"; 

790  PEN  5:PRINT"<"; : PEN  1 

800  LOCATE  5, 21: PRINT "para  escapar" ; 

810  LOCATE  9,l:PRINT-PASE":L0CATE  10,2IPRINT  CHR*(213)CHR 
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$(212); 
820  pausa=300:GOSUB  340 
830  CLSrLOCATE  1,3: INK  6,0 

840  PEN  l:PRINT  hombre*; "   Usted,  el  ladron" : PRINT 
850  PEN  2IPRINT  LEFT* (puerta* ( 1 ), 1 ); LEFT* <puerta*<2) , 1 ); " 

Puertas": PRINT 
860  PEN  3CPRINT  conm* ( 1 ,0) ; conm* (2,0) ; "  Luces  apagadas":P 

RINT 
870  PEN  3: PRINT  conm* ( 1 , 1 ) 5 conm* <2, 1 ) 5 "  Luces  encendidas" 

IPRINT 
880  PEN  4: PRINT  LEFT*( vent*( 1 ) , 1 ) ; LEFT*< vent* (2) , 1 ) ; "  ven 

tanas" :PRINT 
890  PEN  5:PRINT  joya*;"   Piedras  preciosas" : PRINT 
900  PAPER  l:PEN  0: PRINT  obj*;"   Obstaculos  " : PEN  1: PAPER 

0: PRINT 
910  PEN  l:PRINT  perro*; "   El  perro" 
920  PEN  5: PRINT: PRINT: PRINT 

930  PRINT-Utilice  j oystick" : PRINT'o  teclas  de  cursor" 
940  aux=REMAIN(l) 
950  AFTER  retardo*4,l  GOSUB  340 
960  RETURN 
970  ' 

980  'Generar  j  oyas  y  obstaculos 
990  ' 

1000  FOR  hab=l  TO  5 

1010  j  oyar  =  INT  <RND*8) +2: obj  r=INT  <RND*10) +5 
1020  minx=minx(hab) :miny=miny <hab) :maxx=maxx (hab) :maxy=ma 

xy (hab) 
1030  FOR  i=l  TO  joyar 
1040  x=INT(RND*(maxx-minx+l) )+minx 
1050  y=INT(RND*(maxy-miny+l) )+miny 
1060  j  oyax ( hab , i ) =x : j  oyay ( hab , i ) =y 
1070  joyas=joyas+l 
1080  NEXT  i 
1090  FOR  i=l  TO  objr 
1100  x=INT(RND*(maxx-minx+l) )+minx 
1110  y=INT(RND*(maxy-miny+l) )+miny 
1120  objx(hab, i ) =x: obj y (hab, i ) =y 
1130  NEXT  i 

1140  j oyas ( hab) =joyar: obj (hab)=objr 
1150  NEXT  hab 
1160  CLS 
1170  RETURN 

1180  ON  rm  GOTO  1190,1200,1210,1220,1230 
1190  RESTORE  2680: RETURN 
1200  RESTORE  2750: RETURN 
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1210 
1220 
1230 
1240 
1250 

1260 
1270 
1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 


RESTORE  2820: RETURN 

RESTORE  2890: RETURN 

RESTORE  2970: RETURN 

PAPER  0:READ  rm*: PAPER  8 

WINDOW  ttl,minx(rm)-l,maxx<rm)+l,miny<rm)-l,maxy<rm)+ 

l:CLS#l 

PEN  l: LOCATE  1,1: PRINT  SPACE* (19); 

LOCATE  l,l:PRINT"Habitacion:  ";rm*; 

IF  luces<rm)  THEN  INK  7, 10: INK  8,10  ELSE  INK  7,0: INK 

8,0 
READ  a*: IF  a*="FIN"  THEN  RETURN 
IF  a*="D"  THEN  2190 
IF  a*="W"  THEN  2270 

IF  a*="L"  THEN  GRAPHICS  PEN  1 : GOTO  2350 
IF  a*="S"  THEN  2430 
IF  a*="F"  THEN  GRAPHICS  PEN  6: GOTO  2350 


PRINT"***ERROR  ***" 5 
STOP 

J 

* Dibuj ar  j  oyas/obj  etos 

PEN  6 

FOR  i=l  TO  obj (rm) 

LOCATE  objx(rm, i) ,objy(rm, i) 

PRINT  obj*; 

NEXT 

PEN  5 

FOR  i=l  TO  joyas(rm) 

LOCATE  joyax(rm, i) , joyay(rm, i) 

PRINT  joy a* 5 

NEXT 

PEN  l: LOCATE  xp,yp: 

RETURN 

x+=0:y+=0:PEN  1 

IF  INKEY(0)<>-1  OR 

IF  INKEY(2)<>-1  OR 

IF  INKEY<8)<>-1  OR 

IF  INKEY<1X>-1  OR 

IF  x  +  =0  AND  y+=0  THEN  1640 

LOCATE  xp+x-F,yp  +  y+:ht*=COPYCHR*<#0> 

IF  ASC(ht*)  >239  AND  ASC(ht*)<246  THEd  1520 

IF  ht*<>"  "  THEN  1670 

LOCATE  xp,yp:PRINT"  "5 

PAPER  0: LOCATE  4, 24: PRINT"        ";: PAPER  8 

xp=xp+x+ : yp=yp+y+ 

LOCATE  xp,yp:PRINT  hombre*; 


: PRINT  hombre*; 


INKEY(72)<>-1 
INKEY(73)<>-1 
INKEY(74)<>-1 
INKEY<75)<>-1 


THEN 
THEN 
THEN 
THEN 


y+  =  -l 
y+  =  l 
x  +  =  -l 
x  +  =  l 


Que  usted  lo  disfrute  . . 


A3/23 


.'650  IF  perro>0  THEN  perro=perro  MOD  2+1:  IF  perro=2  THEN 

2560 
1660  GOTO  1520 

1670  gol=INSTR(gol*,ht*) : car=ASC (MID*(gol*, gol , 1) ) 
1680  ON  gol  GOTO  1700,1700,1700,1700,1760,1760,1860,1910, 

1980,2100,2660 
1690  GOTO  1610 

1700  IF  gol>2  AND  gol<5  THEN  car=car-l 
1710  IF  gol<3  THEN  car=car+l 

1720  PEN  3IL0CATE  xp  +  x-F ,  yp  +  y-f :  PRINT  CHR*(car); 
1730  luces(rm)=luces(rm)  XOR  1 
1740  IF  luces(rm)  THEN  INK  7, 10: INK  8,10  ELSE  INK  7,0: INK 

8,0 
1750  GOTO  1520 

1760  IF  X-FO0  AND  y-f<>0  THEN  1640 
1770  IF  x-f<0  THEN  dir=4  ELSE  IF  x-f  >0  THEN  dir=3 
1780  IF  y-f<0  THEN  dir  =  l  ELSE  IF  y-f  >0  THEN  dir=2 
1790  IF  dir(rm,dir)=-l  THEN  1640  ELSE  rm=dir (rm, dir) 
1800  IF  perro>0  THEN  GOSUB  310 
1810  IF  dir=l  THEN  xp=6: yp=maxy (rm) 
1820  IF  dir=2  THEN  xp=6: yp=miny (rm) 
1830  IF  dir=3  THEN  xp=minx (rm) : yp=13 
1840  IF  dir=4  THEN  xp=maxx (rm) : yp=13 
1850  RETURN 

1860  IF  xp>5  AND  xp<8  THEN  1890 
1870  IF  xp<6  THEN  dir=4  ELSE  dir=3 
1880  GOTO  1790 

1890  IF  yp>13  THEN  dir=2  ELSE  dir  =  l 
1900  GOTO  1790 
1910  PAPER  0:CLS:PEN  1 

1920  LOCATE  3,  3:  PRIW'Usted  ha  escapado"; 
1930  LOCATE  8, 5: PRINT"conH ; 
1940  IF  joyas=robado  THEN  LOCATE  8, 7:PRINT"todas  las"5ELS 

E  LOCATE  8,7 
1950  PRINT  USING  "  ##n;robado; 
1960  PEN  5:L0CATE  8, 9: PRINT" j oyas" ; 
1970  muerto=l: RETURN 

1980  LOCATE  xp,yp:PRINT»  "  ;  :  xp=xp  +  x-f  :  yp=yp  +  y-f 
1990  i=0 
2000  i  =  i  + 1 

2010  IF  i>joyas(rm)  THEN  1520 

2020  IF  joyax(rm,  i )  Oxp  OR  j  oyay  (rm,  i )  Oyp  THEN  2000 
2030  IF  i=joyas(rm)  THEN  2060 
2040  j  oyax ( rm , i ) = j  oy ax ( rm , j oyas ( rm ) ) 
2050  joyay (rm, i ) =j oyay (rm, j oyas (rm) ) 
2060  Joyas(rm)=jDyas(rm) -l: rDbadD=rDbadD+l 
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2070  MOVE  400, 150+(robado*2)  ,  1,  l'.DRAW  555, 150+  (robado*2)  , 

1,1 
2080  SOUND  129,248,10,12,0,1 

2090  GOTO  1990 

2100  ruido=INT(RND*15) 

2110  SOUND  1,3000, 10, ruido, 0,0, 10 

2120  PAPER  0: LOCATE  4, 24: PRINT"Choque  ";: PAPER  8 

2130  IF  ruido<10  OR  retardo=50  THEN  1640 

2140  retardo=retardo-50 

2150  aux=REMAIN(l) 

2160  AFTER  retardo*4,l  60SUB  310 

2170  GOTO  1640 

2180  ' 

2190  'Dibujar  puertas 

2200  ' 

2210  READ  no,pu* 

2220  IF  pu*="V"  THEN  pu=2  ELSE  pu=l 

2230  PEN  2 

2240  pic*=puerta*(pu) : GOSUB  2510 

2250  GOTO  1290 

2260  ' 

2270  'Dibujar  ventanas 

2280  ' 

2290  READ  no,ve* 

2300  IF  ve*="V"  THEN  ve=2  ELSE  ve=l 

2313  PEN  4 

2320  pic*=vent*<ve) : GOSUB  2510 

2330  GOTO  1290 

2340  ' 

2350  'Dibujar  rectas 

2360  ' 

2370  READ  xl,yl,x2,y2 

2380  MOVE  xl,yl,,0 

2390  DRAW  xl,y2, ,0:DRAW  x2,y2,,0 

2400  DRAW  x2,yl, ,0:DRAW  xl,yl,,0 

2410  GOTO  1290 

2420  ' 

2430  'Dibujar  interruptores 

2440  ' 

2450  READ  no,co* 

2460  IF  co*="L"  THEN  co=l  ELSE  co=2 

2470  PEN  3 

2480  p ic*=conm*< co, 0) : GOSUB  2510 

2490  GOTO  1290 

2500  ' 

2510  'Escribir  car 
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2520  ' 

2530  READ  x,y:LOCATE  x,y:PRINT  pic*; 
2540  no=no-l:IF  no>0  THEN  2530 
2550  RETURN 

2560  PEN  l:LOCATE  perrox, perroy : PRINT"  "5 

2570  hombre*=CHR*<225> 

2580  IF  (perrox=xp  AND  perroy=yp)  OR  (perrox=xp+x-f  AND  p< 
rroy=yp+y-F)  THEN  2660 

2590  IF  perrox<xp  THEN  perrox=perrox+l 

2600  IF  perrox>xp  THEN  perrox=perrox-l 

2610  IF  perroy<yp  THEN  perroy=perroy+l 

2620  IF  perroy>yp  THEN  perroy=perroy-l 

2630  LOCATE  perrox, perroy : PRINT  perro*; 

2640  SOUND  1,0,RND*40, 10, 1,2,31 

2650  GOTO  1520 

2660  PRINT-MORDIDO" j 

2670  muerto=l: RETURN 

2680  DATA  Pasillo 

2690  DATA  L, 64, 308, 226, 4 

2700  DATA  D, 2, H, 6, 3, 6, 22 

2710  DATA  D,2,V,4,12,9,11 

2720  DATA  S,1,L,4,11 

2730  DATA  S,1,R,9,14 

2740  DATA  FIN 

2750  DATA  Sal  a 

2760  DATA  L, 2, 308, 258, 4 

2770  DATA  D,1,V,10,12 

2780  DATA  W,1,H,6,3 

2790  DATA  W,1,V,2,12 

2800  DATA  S,2,R,10,11,10,15 

2810  DATA  FIN 

2820  DATA  Comedor 

2830  DATA  L, 2, 308, 258, 4 

2840  DATA  W,1,V,10,12 

2850  DATA  W,1,H,6,3 

2860  DATA  D,1,V,2,12 

2870  DATA  S, 2, L, 2, 11 , 2, 15 

2880  DATA  FIN 

2890  DATA  Cocina 

2900  DATA  L, 2, 276, 384, 4 

2910  DATA  D, 2, H, 6, 5, 6, 22 

2920  DATA  W,1,H, 10,22 

2930  DATA  W,1,V,14,13 

2940  DATA  D,1,V,2,13 

2950  DATA  S,1,L,2,16 

2960  DATA  FIN 
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2970  DATA  Despensa 
2980  DATA  L, 2, 276, 256, 4 
2990  DATA  D, 1 , V, 10, 12 
3000  DATA  S,1,R,10,11 
3010  DATA  FIN 

3020  DATA  5,4,8,21,0,4,3,2 
3030  DATA  3,4,9,21,-1,-1,1,-1 
3040  DATA  3,4,9,21,-1,-1,-1,1 
3050  DATA  3,6,13,21,1,0,-1,5 
3060  DATA  3,6,9,21,-1,-1,4,-1 
3070  DATA  L, 64, 308, 480, 100 
3080  DATA  F, 250, 98, 294, 102 
3090  DATA  F, 250, 306, 294, 310 
3100  DATA  F, 390, 94, 430, 106 
3110  DATA  F, 390, 302, 430, 314 
3120  DATA  F, 474, 240, 488, 270 
3130  DATA  F,474, 124,488, 154 
3140  DATA  F, 58, 240, 72, 270 
3150  DATA  L, 226, 308, 322, 180 
3160  DATA  L, 160, 180,480, 100 
3170  DATA  L,64,180,160,100 
3180  DATA  FIN 
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XPOS 3.91 

XSUB 5.37 


Y         YPOS 3.91 


Z         Z6calos  de  corriente  continua 1.2  1.3 

ZONE 3.91  9.21 


Indice  A4/13 


E     S     P     A     IM    A 


AVDA.  DEL  MEDITERRANEO,  9  -  28007  MADRID 


